VBA BODY und Signatur.BODY
24.04.2021 02:04:53
Marko
ich habe eine Frage zu folgendem Code, mit dem ich eine E-Mail mit Anhang erzeuge. Dieser Code funktioniert. Dann habe ich die Signatur aus meinem Outlook mit eingebaut. Diese wird angezeigt. Auch das funktioniert. Wenn die Signatur Signatur.BODY in der E-Mail angezeigt wird, ist jedoch der Text (BODY) nicht mehr da. Nehme ich "Signatur.BODY" wieder weg, erscheint die Signatur in einem für mich unbrauchbaren Format. Was mache ich falsch? Wie muss ich die Anordnung verändern, dass zuerst der Text und dann die Signatur erscheint. Vielen Dank für Eure Hilfe.
Sub EmailErzeugenLft_3()
Dim app As Object
Dim file As String
Dim isNew As Boolean
Dim olAPP As Object
Dim olOldBody As String
Dim strBody As String
Dim strSignatur As String
file = Sheets("Tabelle3").Range("L20").Text & ".pdf"
Sheets("Tabelle16").Range("A1:G61").ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
On Error Resume Next
Set app = GetObject(, "Outlook.Application")
If app Is Nothing Then
Set app = CreateObject("Outlook.Application")
isNew = True
End If
With app.CreateItem(0)
.To = Sheets("Tabelle3").Range("M17").Value
.CC = ""
.BCC = ""
.Subject = Sheets("Tabelle3").Range("L20").Value
.BODY = Sheets("Tabelle3").Range("M11") & strSignatur & vbCrLf & vbCrLf _
& Signatur.BODY
.GetInspector.Display
strSignatur = .BODY
.Attachments.Add Environ("TEMP") & "\" & file
.ReadReceiptRequested = True
.Display
End With
If isNew Then app.Quit
End Sub
Anzeige