Sub emailtest()
 
    Dim adresse As String
    Dim subj As String
    Dim inhalt As String
    Dim mailversand As String
 
    adresse = "xxx@adresse.de"
    subj = "Testmail"
    inhalt = "TEST TEST TEST" & Chr(13) _
    & "Ob des geht ?"
    mailversand = "mailto:" + adresse + "?Suject=" + subj + "&Body=" + inhalt
    ActiveWorkbook.FollowHyperlink Address:=mailversand
 
End Sub

 "%OD%OA"