Hallo zusammen,
ich verwende Access 2016 und Thunderbird. Meine Rechnungsdatenbank erstellt auf Knopfdruck einen Bericht aus einem Rechnungsformular. Im Bericht wiederum kann man die Rechnung per Schaltfläche drucken oder als PDF in einen bestimmten Ordner exportieren. Nun möchte ich den Bericht per neuem Knopf ebenfalls als PDF an die Kunden-Emailadresse verschicken.
Bisher habe ich keinen passenden Code gefunden. Ich möchte also keinen Anhang einhängen. Ähnlich also, wenn ich ein Objekt im Explorer mit der rechten Maustaste mit Senden an auswähle. Nur muss ich ja dann die Mailadresse separat einfügen.
Mailadresse, Betreff und Freitext mit Grußformel sollten schon eingefügt sein, senden, fertig...
Vereinfacht, fand ich das hier.
Sub SendEmailWithAttachments()
Dim objEmail As Object
Set objEmail = CreateObject("Thunderbird.Application")
With objEmail
.To = "recipient@example.com" 'Hier würde ich das Feld mit txtMailadresse des Kunden angeben
.Subject = "Subject Here"
.Body = "Email body text here."
.Attachments.Add "C:\path\to\your\file1.pdf" 'Kann hier der Name des Berichts hin?
'.Attachments.Add "C:\path\to\your\file2.docx"
.Send
End With
Set objEmail = Nothing
End Sub
Wobei ich auch prüfen möchte, ob es eine Email-Adresse gibt.
Wer kann helfen?
Viele Grüße aus der Algarve
Hallo,
wo kann man denn so einen Blödsinn finden?
Dafür kannst du DoCmd.SendObject verwenden und übergibst die passenden Parameter, z.B. zum Versenden eines Reports im PDF Format.