Ms Access Senden Sie E-Mail mit dem Bericht als Anlage

Mithilfe von VBA-code-generator in MS Access, ich habe in der Lage code zu schreiben, öffnet sich Outlook und senden Sie mir eine E-Mail mit dem Klick auf eine Schaltfläche. Ich habe Probleme mit dem hinzufügen eines Anhangs. Die meisten Codes die ich gefunden habe, fügt Dateien außerhalb der MS-Datenbank als Anhang hinzufügen möchte ich, dass ein Bericht erstellt, in meiner Datenbank als Anhang.

Private Sub EmailReport_Click()
Dim oApp As New Outlook.Application
Dim oEmail As Outlook.MailItem

'Email the results of the report generated
Set oEmail = oApp.CreateItem(olMailItem)
oEmail.To = "[email protected]"
oEmail.Subject = "Training Roster"
oEmail.Body = "Roster Information"

With oEmail
    .Send
    MsgBox "Email Sent"
End With

Bin ich auf der Suche in einem Befehl ähnlich

oEmail.Attachments.Add Me.

..Aber ich kann nicht finden die richtige Kombination für das hinzufügen von meinem Bericht.
Danke!!

Exportieren Sie Ihren Bericht extern in einem .PDF und dann fügen Sie die Anhänge verweisen auf den vollständigen Dateipfad.
Ich glaube nicht, dass das funktioniert für mich. Gibt es mehrere Benutzer für diese Datenbank und ich kann nicht erwarten, den vollständigen Pfad an mehreren Arbeitsplätzen.
Die Nutzung der Datenbank ist die aktuelle Lage: Application.CurrentProject.Path &"\" & "filename.pdf" so PDF gespeichert wird, wo die Datenbank liegt.

InformationsquelleAutor Stacy | 2015-11-25

  1. 5

    Wie bereits erwähnt, exportieren Sie Ihre Berichte in eine externe Datei wie .pdf-Datei um, die Sie an Ihre ausgehenden E-Mails. Erinnere mich an einen Bericht in einer internen Access-Objekt und nicht ohne weiteres in ein Datei-format für E-Mail. Mit DoCmd.OutputTo, können Sie dynamisch erstellen Sie die pdf-on-the-fly-Datum-gestempelt und in gleichen Ort wie die Datenbank für eine generalizeable Lösung für alle Ihre Benutzer.

    Private Sub EmailReport_Click()
Dim oApp As New Outlook.Application
Dim oEmail As Outlook.MailItem
Dim fileName As string, todayDate As String    

'Export report in same folder as db with date stamp
todayDate = Format(Date, "MMDDYYYY")
fileName = Application.CurrentProject.Path & "\ReportName_" & todayDate & ".pdf"
DoCmd.OutputTo acReport, "ReportName", acFormatPDF, fileName, False

'Email the results of the report generated
Set oEmail = oApp.CreateItem(olMailItem)
With oEmail
    .Recipients.Add "[email protected]"
    .Subject = "Training Roster"
    .Body = "Roster Information"
    .Attachments.Add fileName
    .Send        
End With

MsgBox "Email successfully sent!", vbInformation, "EMAIL STATUS"
    Das ist genau das, was ich wollte!!! Danke!!!!!

    InformationsquelleAutor Parfait

  2. 2

    Exportieren Sie den Bericht als PDF-Datei per E-Mail mit:

    DoCmd.SendObject(ObjectType, ObjectName, OutputFormat, To, Cc, Bcc,Subject, MessageText, EditMessage, TemplateFile)
    Sie cand siehe mehr dazu im web: msdn.microsoft.com/en-gb/library/office/ff197046.aspx

    InformationsquelleAutor David

  3. 0

    Mit DoCmd.SendObject Sie müssen zum aktualisieren von Outlook-Programmatischen Zugriff zu deaktivieren Warnungen über das automatische versenden von E-Mails. In meinem Fall der administrator der Domäne aktiviert diese Optionen zu ändern. Mehr Informationen hier.

    InformationsquelleAutor user3627268

Schreibe einen Kommentar