kan jemand helfen. Eigentlich sollte es mit vbCrLf klappen. Über Hilfe wäre ich sehr dankbar. Gruß, M.
Private Sub appelloMail_Click()
Link = "mailto:mholst81@hotmail.com" _
+ "?subject=eUD Prepaid PBS and ROI Q" _
+ "&body=Hi Moritz, " & vbCrLf & _
"I have got the following question(s) concerning the above named sheet:"
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & Link
End Sub