Signatur in Serienmail aus Excel

Hallo Community,
ich habe folgendes Problem und zwar bekomme ich die Signatur einfach nicht in meine Mail. Trotz .GetInspector passiert wenn dann nur, dass die Signatur als CSS Text in der Mail steht..
Hier mein Ausschnitt:
For lngZaehler = 2 To lngMailNr
If Cells(lngZaehler, 2) "" Then
Set objOLMail = objOLOutlook.CreateItem(0)
With objOLMail
.GetInspector.Activate
.To = Cells(lngZaehler, 2)
.CC = ""
.BCC = ""
olOldBody = .htmlBody
.Sensitivity = 0
.Importance = 2
.Subject = "blabla"
.htmlBody = Cells(lngZaehler, 1) & vbCrLf & _
"Halloooo" & vbCrLf & _
"Mit freundlichen Grüßen" & vbCrLf & _
"Frederic" & olOldBody
.Attachments.Add strAttachmentPfad1
.htmlBody = Replace(.htmlBody, vbCrLf, "
")
Rem Word-Editor-Objekt erstellen (zum Formatieren erforderlich)
Set wdApp = .GetInspector
Set wdDoc = wdApp.WordEditor
Set wdRange = wdDoc.Range
wdRange.WholeStory
Rem Emailtext formatieren
With wdRange
Rem Schriftart und Schriftgröße festlegen
.Font.Name = "Arial"
.Font.Size = 11
End With
.Display
'.Send

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Frederic,
das liegt wahrscheinlich am WordEditor, der falsch platziert ist...
Ich würde ohnehin darauf verzichten und eine HTML-Version daraus machen.
Hier mal ein Beispiel:
Und falls Du gerne Deine Formatierung im Excelfeld vornehmen möchtest, melde Dich hier noch mal. Da habe ich auch was.

Option Explicit

Sub Test()

 Dim lngZaehler As Long, lngMailNr As Long

 Dim sSignatur As String, sMailtext As String

 lngMailNr = 3

 With CreateObject("Outlook.Application")

  For lngZaehler = 2 To lngMailNr

    If Cells(lngZaehler, 2) &LT;&GT; "" Then

      With .CreateItem(0)

        .BodyFormat = 3

        .GetInspector: sSignatur = .htmlbody

        .To = Cells(lngZaehler, 2).Value

        .CC = ""

        .BCC = ""

        .Sensitivity = 0

        .Importance = 2

        .Subject = "blabla"

        sMailtext = "&LT;span style='font-family:Arial; font-size:11pt;color:#000000;'&GT;" _

                  & Cells(lngZaehler, 1) & "&LT;br&GT;" _

                  & "Halloooo,&LT;br&GT;" _

                  & "Mit freundlichen Grüßen&LT;br&GT;" _

                  & "Frederic" _

                  & "&LT;/span&GT;"

        .htmlbody = sMailtext & sSignatur

        .Attachments.Add strAttachmentPfad1

        .Display

        '.Send

      End With

    End If

  Next lngZaehler

 End With

End Sub

Viele Grüße aus Freigericht
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread