How to setup option to check if email is valid before sending?

[CD Tom]

Currently I have an email option that allows users to send out mass emails, they can select certain groups or send to the complete database that has an email address. The option uses MS Outlook, everything works great, but Outlook has a funny problem that if the email address isn't complete like missing the .com etc then Outlook will not send out anything and gives no message as to what email is wrong. I would like to put a check in this e-mail option that would check ahead of time and make sure the email is complete. I know this option should have been in the input screen where that information was entered but didn't know how and at the time didn't have this email option in the program.
Hopefully someone will have some code that will check for a complete e-mail address.
Thanks again for all your help

[TheSmileyCoder]

I dont know if there are any official "rules" for emails, but this is something I threw together for you:

Public Function fBoolValidEmail(strEmail As String) As Boolean
'Purpose: To make a few basic checks on email addresses to determine if they are valid
'Author:  TheSmileyCoder
 
 
'Check that we received something
    If strEmail & "" = "" Then
        fBoolValidEmail = False
        Exit Function
    End If
 
'Checks that there is a @ in string
    Dim intAT As Integer
    intAT = InStr(1, strEmail, "@")
    If Not intAT > 0 Then
        fBoolValidEmail = False
        Exit Function
    End If
 
'Check that there is a . on the right hand side of the @
    Dim intDOT As Integer
    intDOT = InStr(intAT, strEmail, ".")
    If Not intDOT > intAT Then
        fBoolValidEmail = False
        Exit Function
    End If
 
'Check that the . part is either .com or .dk or .org
    Dim strDomain As String
    strDomain = LCase(Right(strEmail, Len(strEmail) - InStrRev(strEmail, ".")))
    Select Case strDomain
        Case "dk", "com", "org"
            'Valid
                fBoolValidEmail = True
                Exit Function
        Case Else
            'POSSIBLY invalid
                fBoolValidEmail = False
            'If you want, you can comment out the following line
                MsgBox "Unknown domain found:" & strDomain
            Exit Function
 
    End Select
End Function

I think that should atleast satisfy outlook. If you want to confirm the emails are valid, you can take a look at a something like this:
Validating Emails

[CD Tom]

That looks like it might do it. I'll give it a try in a little while and let you know how it works. Thanks for all your help.