Formatierungsproblem E-Mail aus Excel
28.01.2015 11:00:58
Sascha
Ich habe folgendes Makro erstellt und komme derzeit durch Recherche nicht mehr weiter:
Sub Email_versenden()
Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
For i = 1 To 25
If Worksheets("E-Mail").Cells(6 + i, 2) = "m" Then
If Worksheets("E-Mail").Cells(6 + i, 5) = "X" Then
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Worksheets("XXX").Cells(17, 1 + i)
.Subject = "Ihre Bewerbung"
.htmlbody = "Sehr geehrter Herr " & Worksheets
("E-Mail").Cells(6 + i, 3)
& ",'"
& "'zunächst ...
'" & ...
.display
End With
End If
Set MyOutApp = Nothing
Set MyMessage = Nothing
Else
If Worksheets("E-Mail").Cells(6 + i, 2) = "w" Then
If Worksheets("E-Mail").Cells(6 + i, 4) = "X" Then
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Worksheets("XXX").Cells(17, 1 + i)
.Subject = "Ihre Bewerbung"
.htmlbody = "Sehr geehrte Frau " & Worksheets
("E-Mail").Cells(6 + i, 3)
& ",'"
& "'zunächst ...
'" & ...
.display
End With
End If
End If
Set MyOutApp = Nothing
Set MyMessage = Nothing
End If
Next i
End Sub
ZUR ERKLÄRUNG:
Ich habe eine Datenbank mit persönlichen Informationen unserer Mandanten. Diese bekommen regelmäßig E-Mails und das wollten wir jetzt automatisieren, sodass man nicht jede E-Mail einzeln erstellen muss.
In Tabelle "E-Mail" stehen alle Namen (Nach- und Vorname) der Mandanten, die Daten werden aus Tabelle "XXX" gezogen (auch die E-Mailadresse).
In der Tabelle "E-Mail" soll dann lediglich ausgewählt werden, wer eine E-Mail erhalten soll. (If Worksheets("E-Mail").Cells(6 + i, 4) = "X" Then) und auf Button-Druck werden dann die E-Mails erstellt.
(Mit "If Worksheets("E-Mail").Cells(6 + i, 2) = "m" Then" wird die Anrede bestimmt)
Soweit funktioniert das Makro auch, jedoch konnte ich bei meiner Recherche nicht herausfinden, wie ich die Textformatierung auch auf die Nachnamen der Mandanten (in der erstellten E-Mail) anwenden kann. Die gesamte E-Mail muss nach den Vorgaben unseres CD erstellt sein, deswegen ist die Formatierung so wichtig.
Kennt hier jemand eine Möglichkeit?
Wenn ich "Worksheets("E-Mail").Cells(6 + i, 3).font.colorindex = 3" eingebe bzw. "Worksheets("E-Mail").Cells(6 + i, 3).font.name ="Arial"", dann gibt er die Email mit dem Inhalt "0" aus. (Hier wäre auch die Frage, wie ich Schriftart und -farbe verknüpfen kann).
Vielen Dank für Eure Mühen!
Grüße Sascha
P.S.: Die "'" vor den html-Formatierungsbefehlen habe ich eingefügt, dass man sehen kann wie der Code aufgebaut ist. Der Text ist natürlich wesentlich länger inkl. Fußnoten. Der Übersichthalber habe ich diesen aber weggelassen.