dr.cornwallis
Goto Top

Access Report per Email versenden, hat jemand zufällig einen Code dafür(VBA)

Liebe Gemeinde(oder besser gesagt lieber Highload)face-smile,

wie in der Überschrift enthalten suche ich nach einem funktionierenden Code um einen Access Report mit Outlook 2010(2013 oder 2016) x86.zu versenden.
Die Email muss weder Text noch sonstiges enthalten, einfach den Report als Anhang+die erforderlichen Empfänger.


Besten Dank!

Gruß

Dr.

Content-Key: 313340

Url: https://administrator.de/contentid/313340

Ausgedruckt am: 19.03.2024 um 07:03 Uhr

Mitglied: colinardo
Lösung colinardo 23.08.2016 aktualisiert um 12:45:46 Uhr
Goto Top
Hallo Dr.
da reicht ein Einzeiler face-wink
DoCmd.SendObject acSendReport, "DeinReport", acFormatPDF, To:="user@domain.de", Subject:="Test", MessageText:="Dein Body"  
Grüße Uwe
Mitglied: Tungdal
Tungdal 23.08.2016 um 12:51:03 Uhr
Goto Top
Hallo,
wow, dass das auch in nem Einzeiler geht...
Ich hatte mir das damals mühsam ergoogelt und dieser hat einiges an Text mehr xD
Danke für den Code, colinardo face-smile
Mitglied: Dr.Cornwallis
Dr.Cornwallis 23.08.2016 um 12:52:32 Uhr
Goto Top
Wow, das ging ja schnell face-smile.


Vielen Dank!


Gruß

Dr.
Mitglied: Dr.Cornwallis
Dr.Cornwallis 23.08.2016 um 12:53:07 Uhr
Goto Top
Zitat von @Tungdal:

Hallo,
wow, dass das auch in nem Einzeiler geht...
Ich hatte mir das damals mühsam ergoogelt und dieser hat einiges an Text mehr xD
Danke für den Code, colinardo face-smile


Dito face-smile
Mitglied: colinardo
colinardo 23.08.2016 aktualisiert um 13:22:45 Uhr
Goto Top
Zitat von @Tungdal:
Ich hatte mir das damals mühsam ergoogelt und dieser hat einiges an Text mehr xD
Geht natürlich auch auf die herkömmliche Art, mit der man natürlich alle Freiheiten der Anpassung einer Outlook-Mail hat face-smile
Sub AttachReportToMail()
    ' Outlook Objekt erstellen  
    Set objOL = CreateObject("Outlook.Application")  
    ' Pfad für Report-PDF festlegen  
    strAttachment = Environ("TEMP") & "\demo_report.pdf"  
    ' Report als PDF exportieren  
    DoCmd.OutputTo acOutputReport, "DEIN REPORT", acFormatPDF, strAttachment  
    ' neue Mail erstellen und PDF anhängen  
    Set objMail = objOL.CreateItem(0)
    With objMail
        .Subject = "Dein Betreff"  
        .Body = "Mit freundlichen Grüßen"  
        .Attachments.Add strAttachment
        .Display
    End With
    Set objOL = Nothing
End Sub
Danke für den Code, colinardo
Keine Ursache, man hilft gerne.

Grüße Uwe
Mitglied: Dr.Cornwallis
Dr.Cornwallis 23.08.2016 um 13:30:46 Uhr
Goto Top
Zitat von @colinardo:

Zitat von @Tungdal:
Ich hatte mir das damals mühsam ergoogelt und dieser hat einiges an Text mehr xD
Geht natürlich auch auf die herkömmliche Art, mit der man natürlich alle Freiheiten der Anpassung einer Outlook-Mail hat face-smile
> Sub AttachReportToMail()
>     ' Outlook Objekt erstellen  
>     Set objOL = CreateObject("Outlook.Application")  
>     ' Pfad für Report-PDF festlegen  
>     strAttachment = Environ("TEMP") & "\demo_report.pdf"  
>     ' Report als PDF exportieren  
>     DoCmd.OutputTo acOutputReport, "DEIN REPORT", acFormatPDF, strAttachment  
>     ' neue Mail erstellen und PDF anhängen  
>     Set objMail = objOL.CreateItem(0)
>     With objMail
>         .Subject = "Dein Betreff"  
>         .Body = "Mit freundlichen Grüßen"  
>         .Attachments.Add strAttachment
>         .Display
>     End With
>     Set objOL = Nothing
> End Sub
> 
Danke für den Code, colinardo
Keine Ursache, man hilft gerne.

Grüße Uwe


Feine Sache, dabei lernt man auch gleich was('...)!


Besten Dank!
Mitglied: Tungdal
Tungdal 23.08.2016 um 14:21:34 Uhr
Goto Top
Ja, das ist der Code, den ich kenne face-smile
Der andere reicht aber für meine Zwecke vollkommen.