Email aus Access

Public Sub °°EmailClick(adrFeld As String)
On Error GoTo Er
Application.FollowHyperlink "mailto:" & adrFeld
Ex: Exit Sub
Er: MsgBox "Bitte überprüfen Sie, ob es sich um eine korrekte Email-Adresse handelt."
Resume Ex
End Sub