Hallo zusammen,
letztens hatte ich die Frage, wie ich aus Excel heraus eine Mail mit der voreingestellten Signatur starte. Dank netter Foren-Leser habe ich das auch ziemlich schnell lösen können.
Nun habe ich aber aufbauend darauf eine weitere Frage.
In einem bestimmten Zeilen-Bereich sollen Texte eingegeben werden. Damit diese ab und an angepasst werden können, müssen diese veränder bar sein. Die Qual ist, dass hin und wieder Absatz sein muß. Um das ganze leichter zu machen, habe ich also eine Hilfsspalte eingefügt, um den Texteingeber die Möglichkeit geben zu können, z.B in der Zeile 5 soll ein Absatz sein.
Diesen Text lese ich aus, übergebe das an eine Variable, die übergebe ich quasi an Outlook ( Info : die Mail soll die eingestelle Signatur behalten ) und damit sollte es sein.
Aber :
Der Absatz wird nicht übergeben.
Wie müßte ich meinen unten stehenden Ablauf schreiben, dass der Absatz auch so in Outlook ankommt :
Hier mein Code :
( Ich bin gerade zu blöd eine bestimmte Zeile so einzugeben, dass sie auch gezeigt wird. Daher in schriftform alles... )
'wenn Anmeldebestätigung per Mail ausgewählt wurde
If a_Bestätigung = 1 Then
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
'Übergabe der Email-Anschrift aus der TN-Tabelle, die das Mail erhalten soll
strRecipients = ActiveCell.Value
'Texte auslesen
For i = 1 To 15
If Sheets("Texte").Cells(18 + i, 3).Value "" And _
Sheets("Texte").Cells(18 + i, 2).Value = "Text" Then
Email_Text = Email_Text + Sheets("Texte").Cells(18 + i, 3).Value + " "
ElseIf Sheets("Texte").Cells(18 + i, 2).Value = "Absatz" Then
Email_Text = Email_Text + Chr(13) + Chr(13)
End If
Next i
'Email Text zusammenfassen und Fomrat : Calibri 11 setzen
Email_Text1 = " Eckige Klammer auf span style=""font-size:11pt; font-family:'Calibri'""eckige KLammer zu " & ActiveSheet.Cells(aktive_zeile, 8).Value & ActiveSheet.Cells(aktive_zeile, 11).Value & " eckige Klammer auf br und zu " & Email_Text & " eKl auf br und zu"
'alles an Outlook übergeben
With objMail
.getinspector.display
olOldBody = .htmlBody
.To = strRecipients
.Subject = Sheets("Voreinstellung").Cells(64, 2).Value
.htmlBody = Email_Text1 & olOldBody
'.display
End With
Set objOutlook = Nothing
Set objMail = Nothing