Dateianhang an E-Mail

[Daniela1967]

Hallo Ihr Lieben,

ich würde gerne mal wieder eure Hilfe in Anspruch nehmen. Wie bekomme ich denn bei diesem Code die Datei, die ich vorher als PDF erstellt habe, beim E-Mail-Versand aus dem Explorer in meine E-Mail?

Code: Alles auswählen

'Brief als PDF erstellen:

DoCmd.OpenReport Me.txt_Berichtsname, acViewPreview, , "LoginID=" & Me.LoginID

DoCmd.OutputTo acOutputReport, Me.txt_Berichtsname, "PDF", _
"F:\XXXXX\Lizenznehmerverwaltung\80-Briefe\01LoginDaten\" & Me.txt_Lizenznehmer & "\" & _
Me.txt_Dateiname & ".pdf"
DoCmd.Close acReport, Me.txt_Berichtsname

'Brief als E-Mail versenden:

 Dim objOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim i As Integer
    Set objOutlook = New Outlook.Application
    Set objMail = objOutlook.CreateItem(olMailItem)
    With objMail
        .Subject = "Zugänge"
        .SentOnBehalfOfName = "xxxxx@xxxxx.de"
        .Importance = olImportanceNormal
        .ReadReceiptRequested = False
        .Display
      End With

Herzlichen Dank schon mal im Voraus für die Bemühungen.
Gruß Daniela

[knobbi38]

Hallo Daniela,

Beispiele für das versenden von Mail mit Anhang gibt es hier im Forum genug, als dass man das nochmals extra auflisten müsste.
Du hast aber ein paar Fehler in deinem Code, die so nicht funktionieren würden. Hier mal das grundsätzliche Muster:

Code: Alles auswählen

    With objMail
      .To = "xxx@yyyy.de"
      .Subject = "Mittelung"
      .BodyFormat = 2                       ' olFormatHTML
      .HTMLBody = strHTMLMailText
      .Attachments.Add AttachmentFilePath, 1
    End With

    objMail.Display


Du solltest also mindestens noch einen Empfänger und ein Betreff einfügen. Die Eigenschaft .SentOnBehalfOfName wird selten verwendet und die Bedeutung solltest du nochmal nachlesen, sie gilt eher für den Absender.
AttachmentFilePath ist eine Variable und in ihr wird dann der der komplette Pfad und Dateiname zur PDF Datei erwartet.

Gruß Ulrich