Zeilenumbrüche gehen verloren
Peter
Ich habe einen Code entdeckt, mit dem ich Emails versenden kann. Funktioniert auch alles super bis auf eine Kleinigkeit: die Zeilenumbrüche vom Mailtext (Zelle C1) gehen beim kopieren der Daten ins Outlook alle verloren. Ich vermute, dass es nur ein kleiner Befehl ist, der mir fehlt, kann jedoch weder hier im Forum, noch in der Excel Hilfe dazu etwas finden.
Ich bin wirklich sehr froh, wenn mir jemand hierzu einen Tipp geben kann. Schon mal vielen Dank!!!
Beste Grüße,
Peter
=============================================
Sub Email_Versand()
Dim sAddress As String, sSubject As String, sTxt As String
sAddress = Sheets("mail").Range("a1").Value
sSubject = Sheets("mail").Range("b1").Value
sTxt = Sheets("mail").Range("c1").Value
Call Mail(sAddress, sSubject, sTxt)
End Sub
=============================================
Meine Vermutung ist ja, dass es mit dem Befehl "sTxt As String" zusammenhängt, also dass der Text damit als Strang versendet wird. Doch genau das will ich nicht. Wenn ich jedoch "sTxt not As String" schreibe, meckert das Makro schon bevor ich es überhaupt starte. 'false' hat auch nicht funktioniert und "TextFrame" statt String hat auch nicht geklappt. Ich weiß echt nicht weiter.
Also um das Problem zu konkretisieren: die Zelle mit dem Text der Mail enthält Absätze, die ich mit "Alt + Enter" einfüge. Statt "Alt + Enter" könnte ich auch einen html Befehl wie z.B.
einsetzen (wobei auch das nicht funktioniert hat).
Über eine Lösung wäre ich wirklich dankbar weil ich noch VB Anfänger bin.
Herzlichen Dank,
Peter