Clever-Excel-Forum

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

Hallo,

nimm bei

Code:
myAttachments.Add = DateiName

das "=" raus, dann sollte es hinhauen.

Außerdem fehlt for "Body" der Punkt

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

Primo Centurio

MisterBurns

Primo Centurio