Access 2016, automatisierte Mail über Exchange-Server
07.11.2024 09:16:43
GerhardJ
ich vesende mit VBA aus Access eine Mail mit einem pdf-Attachment. Wenn die mail über Outlook versandt wird ist alles gut, die Mail kommt beim Empfänger richtig an. Wenn sie über den Exchange-Server versandt wird besteht sie beim Empfänger nur mehr aus einer wirren Menge von Zahlen und Buchstaben.
Mein einfacher Code dazu
Dim objOutlook As outlook.Application
Dim objmail As outlook.MailItem
Dim attach As String
Set objOutlook = CreateObject("Outlook.Application")
Set objmail = objOutlook.CreateItem(olMailItem)
With objmail
.To = Me.RP_MAIL
.Subject = MailText
.Attachments.Add attach, olCombination
.Display
.send ' Sendet die Email automatisch
End With
Ich mache ofenbar irgend etwas falsch - hab aber keine Ahnung. Vielleicht kann mir irgendwer auf die Sprünge helfen - vielen Dank im Voraus für Eure Hilfe.
Anzeige