Dateianhang an E-Mail

Moderator: ModerationP

Dateianhang an E-Mail

Beitragvon Daniela1967 » 23. Mai 2022, 08:13

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
Daniela1967
 

Re: Dateianhang an E-Mail

Beitragvon knobbi38 » 23. Mai 2022, 08:41

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
knobbi38
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4229
Registriert: 02. Jul 2015, 14:23


Zurück zu Access Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 25 Gäste