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

Liebe Gemeinde(oder besser gesagt lieber Highload)

,

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.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 313340

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

Ausgedruckt am: 25.11.2024 um 00:11 Uhr

7 Kommentare

Neuester Kommentar

Hallo Dr.
da reicht ein Einzeiler

DoCmd.SendObject acSendReport, "DeinReport", acFormatPDF, To:="user@domain.de", Subject:="Test", MessageText:="Dein Body"  

Grüße Uwe

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

Wow, das ging ja schnell

.

Vielen Dank!

Gruß

Dr.

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

Dito

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

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

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

> 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!