PDF opslaan en emailen

[john0112]

Hoi Allemaal,

Ik ben bezig om vanuit een formulier een rapport te maken en als een pdf op te slaan en te emailen.
Nu lukt het me om het huidige raport te selecteren en op te slaan als pdf zonder dat je het rapport te zien krijgt.

Alleen het emailen wil niet lukken.

Ik ben redelijk nieuw met access en VBA dus ik kom er nu niet meer aan uit en zou echt wat hulp kunnen gebruiken.
Onderstaande de code die ik nu heb gemaakt.

Private Sub CMDprintEnVertuurBrandweerlijst_Click()

Dim folder As String
Dim strDocName As String
Dim sFilter As String

On Error GoTo Err_CMDprintEnVertuurBrandweerlijst_Click

folder = CurrentProject.Path & "\documenten\pdf\brandweerlijst\"
MkDir folder
    Resume Opslaan_CMDprintEnVertuurBrandweerlijst

Opslaan_CMDprintEnVertuurBrandweerlijst:
    strDocName = "rpt_Brandweerlijst"
    sFilter = "BPSbrandweerID=" & Me.BPSbrandweerID
    strDocName = "rpt_Brandweerlijst"

DoCmd.OutputTo acOutputReport, strDocName, acFormatPDF, folder & Me!BPSbrandweerID & ".pdf"
DoCmd.OpenReport strDocName, acViewPreview, , "BPSbrandweerID=" & Me.BPSbrandweerID, acHidden, sFilter
DoCmd.SendObject acSendReport, strDocName, acFormatPDF, "email@nuplex.com", , , "Brandweerlijst", "Hierbij weer de brandweerlijst voor deze week", True
DoCmd.Close acReport, strDocName
    

Exit_CMDprintEnVertuurBrandweerlijst_Click:
    Exit Sub

Err_CMDprintEnVertuurBrandweerlijst_Click:
    MsgBox Err.Description
    Resume Exit_CMDprintEnVertuurBrandweerlijst_Click
    
End Sub

 

[OctaFish]

Je gebruikt SendObject; een ander email commando is er niet. Wat werkt er dan niet?

 

[john0112]

Opgelost

Ik had een kleine fout staan maar is al opgelost toch bedankt voor je reactie OctaFish

 

[OctaFish]

Overigens is het veel beter om je rapport te koppelen aan een vaste query die je steeds aanpast met de QueryDefs collectie. Ik heb daar al een paar keer voorbeeldjes van gepost, zoek ze maar eens op.