Excel VBA PDF erstellen und E-Mail Versenden
25.03.2016 16:24:17
Dirk
ich habe ein Problem und kommen nicht weiter.
Mit Excel 2010 läuft das nachstehende VBA.
Ich kann die Auswahl vom E-Mail Empfänger mit Range ("A3") ansprechen.
Wenn ich das gleiche VBA mit Excel 2013 ausführen möchte erhalte ich nachstehende
Meldung
Laufzeitfehler `-2147417851(80010105)`:
Die Methode `To`für das Objekt`_Mailterm`ist fehlgeschlagen.
Wenn ich eine Mailadresse vorgebe.
zB. .To = "d.beranek@online.de" läuft das VBA.
Da ich aber in einer Zelle die jeweilige Mailadresse ausgeben will benötige ich einen Bezug wie bei Range.
Sub emai_test2()
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.To = Range("A3")
.Subject = "Testmail"
.Body = " Die Excel Datei ist als PDF beigegelgt."
'.send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
Bin ein Neuling in VBA.
Ich bedanke mich schon zum jetzigem Zeitpunkt bei Allen die Verständnis haben und bei dem Auffinden einer Lösung behilflich sind.
Schöne Ostertage aus NRW
Dirk Beranek