Tried to add onto this code but I'm a useless noob... :(

[jdwils]

Hello,

I have no knowledge of Visual Basic to be honest; The comment at the end of the code shows where I pinched the code from. All works apart for my first "null" section that I tried to add, if someone could explain why this doesn't work that would be great.

Site wouldn't let me explain issue further as apparently my info was marked as "spam"

Many thanks in advance,
Jordan.

Private Sub Send_Email_Button_Click()
If InStr([E-Mail], "") = Null Then
    MsgBox "Please Enter a Valid E-mail Address"
    Exit Sub
End If
    If InStr([E-Mail], "@") = False Then
    MsgBox "The email address '" & [E-Mail] & "' does not appear to be a valid address"
    Exit Sub
Else
Application.FollowHyperlink "Mailto:" & [E-Mail]
' https://www.experts-exchange.com/questions/21474709/MAILTO-Function-In-MS-Access.html
End If
End Sub
 

[PhilOfWalton]

Hi Jordan

Nice to have you join Bytes.

The code that you need is nearly right, what you need is

    If IsNull(E-Mail) Then
        MsgBox "Please Enter a Valid E-mail Address"
        Exit Sub
    End If
    .....

A more thorough check is this

Public Function IE-MailAddress(ByVal E-Mail As String, _
    Optional ByRef sReason As String) As Boolean
 
    'If False is returned, the reason for its failure will be passed back into the optional reason string.
    'IsValid = IE-MailAddress("[e-mail]", InvalidReason)
    'MsgBox "Invalid mail address, the reason given is: " & InvalidReason
 
    Dim nCharacter As Integer
    Dim sBuffer As String
 
    E-Mail = Trim(E-Mail)
 
    If Len(E-Mail) < 8 Then
        sReason = "Too short"
        Exit Function
    End If
 
    If LCase(Right(E-Mail, 1)) Like "[a-z]" Then
        GoTo CheckAt
    End If
    sReason = "Illegal character at end"        ' Check for '.' etc at end
    Exit Function
 
CheckAt:
    If InStr(E-Mail, "@") = 0 Then
        sReason = "Missing the @"
        Exit Function
    End If
 
    If InStr(InStr(E-Mail, "@") + 1, E-Mail, "@") <> 0 Then
        sReason = "Too many @"
        Exit Function
    End If
 
    If InStr(E-Mail, ".") = 0 Then
        sReason = "Missing the period"
        Exit Function
    End If
 
    If InStr(E-Mail, "@") = 1 Or InStr(E-Mail, "@") = Len(E-Mail) Or _
        InStr(E-Mail, ".") = 1 Or InStr(E-Mail, ".") = Len(E-Mail) Then
        sReason = "Invalid format"
        Exit Function
    End If
 
    For nCharacter = 1 To Len(E-Mail)
        sBuffer = Mid$(E-Mail, nCharacter, 1)
        If Not (LCase(sBuffer) Like "[a-z]" Or sBuffer = "@" Or _
        sBuffer = "." Or sBuffer = "-" Or sBuffer = "_" Or IsNumeric(sBuffer)) Then
             sReason = "Invalid character"
             Exit Function
        End If
    Next nCharacter
 
    nCharacter = 0
 
    On Error Resume Next
 
    sBuffer = Right(E-Mail, 4)
    If InStr(sBuffer, ".") = 0 Then GoTo TooLong:
    If Left(sBuffer, 1) = "." Then sBuffer = Right(sBuffer, 3)
    If Left(Right(sBuffer, 3), 1) = "." Then sBuffer = Right(sBuffer, 2)
    If Left(Right(sBuffer, 2), 1) = "." Then sBuffer = Right(sBuffer, 1)
 
    If Len(sBuffer) < 2 Then
        sReason = "Suffix too short"
        Exit Function
    End If
 
TooLong:
   If Len(sBuffer) > 3 Then
      sReason = "Suffix too long"
      Exit Function
   End If
 
   sReason = Empty                      ' Dropped through to here, so email address OK
   IE-MailAddress = True
 
End Function

I think if you read it, it is fairly obvious what checks it makes.

Phil