Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Erstelltes PDF via VBA in Outlook einfügen
#1
Hallo miteinander

Ich hoffe ihr hattet alle schöne Pfingsten.

Ich habe folgendes Problem und ich konnte bis jetzt keine Lösung finden.

Folgender Befehl speicher mir das Blatt in ein PDF mit einem bestimmten Namen. Jedes Mal wenn er mir das gleiche PDF im Outlook einfügen soll, bekomme ich den Laufzeitfehler 440.

Kann mir jemand sagen, ob ich ihm code einen Fehler habe?

Code:
Private Sub CommandButton1_Click()
   Const DateiPfad = "R:\01 Rezeption\03_Verträge\2018 HS\"
   Dim DateiName As String
   
   DateiName = DateiPfad & Range("E13") & "_" & Range("L4") & ".pdf"  ' Name und Erstelldatum

   Range("A1:L114").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       DateiName, Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
       False
       
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("J4")
.Subject = "Offer"
Body = ""
myAttachments.Add = DateiName
.Display
End With

Set OutlookApp = Nothing
Set OutlookMailItem = Nothing

End Sub


Herzlichen Dank und freundliche Grüsse

Primo Centurio
Antworten Top
#2
Hallo,

nimm bei

Code:
myAttachments.Add = DateiName

das "=" raus, dann sollte es hinhauen.

Außerdem fehlt for "Body" der Punkt
Schöne Grüße
Berni
[-] Folgende(r) 1 Nutzer sagt Danke an MisterBurns für diesen Beitrag:
  • Primo Centurio
Antworten Top
#3
Ausgezeichnet Mister Burns  :19:

Herzlichen Dank dir, und für den Hinweis betreffen dem . vor dem body.

Wünsche dir noch einen schönen Tag.

Freundliche Grüsse

Primo Centurio
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste