Guten Morgen miteinander,
Gerne würde ich aus dem Excel ein E-Mail versenden mit einem angefügtem PDF. Das PDF soll ein Tabellenblatt von Excel sein.
Der Fall sieht so aus. Ich habe drei Tabellenblätter "Rechnung_1" / "Rechnung_2" / "Rechnung_3". Gerne würde ich das VBA so anpassen, dass es bei jedem Tabellenblatt die E-Mail "D5" nimmt und das Tabellenblatt in ein PDF konvertiert und das als Anhang angehängt wird. So wie ein automatischer Rechnungsversand.
Unten habe ich mal das coding für das erstellen eines E-Mails. Leider weiss ich nicht wie ich das mit dem Anhang lösen.
Vielen Dank euch im voraus für das Coding. Das Hilft mir wirklich.
Private Sub RechnungsEmail()
Dim i&, OutApp As Object, OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
For i = 1 To UBound(arr)
Set OutMail = OutApp.Createitem(0)
With OutMail
.To = arr(d, 5)
.CC = ""
.BCC = ""
.Subject = "Rechnung" & arr(i, 5)
.HTMLBody = "Sehr geehrte(r) " & arr(i, 2) & ","
.Display 'senden erfolgt manuell
'.sent 'sendet direkt
End With
Set OutMail = Nothing
Next i
Set OutApp = Nothing
End Sub