VBA Email mit Anhang als PDF
17.12.2020 21:48:46
Marko
mit diesem Makro erzeuge ich eine vordefinierte Mail. Dieses Makro funktioniert.
Nun möchte ich einen Anhang als PDF, generiert aus der Tabelle "Ausw1" - Bereich "A1:G105", dieser Mail anhängen. Leider bekomme ich das nicht hin und benötige Eure Hilfe. Vielen Dank im Voraus.
Sub Grafik8_Klicken()
msg = MsgBox(Sheets("Tabelle1").Range("F6").Value, vbYesNo, "Microsoft Outlook")
If msg = vbYes Then
Rem PDF-Datei erstellen
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Sheets("Tabelle1").Range("F4").Value
.Subject = Sheets("Tabelle1").Range("F7").Value
.body = "Hallo " & Sheets("Tabelle1").Range("F3").Value & "," & vbCrLf & vbCrLf & "mit dieser _
Mail erhalten Sie die Übersicht Ihres aktuellen Konzentrations-Bonus (" & Sheets("Tabelle1").Range("F8").Value & ")." & vbCrLf & vbCrLf & "Haben Sie Fragen? Rufen Sie mich bitte an. "
.Display
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
'MsgBox "Tu es !"
Else
MsgBox "Keine E-Mail erstellt!", vbOKOnly, "Microsoft Outlook"
End If
End Sub