ik zou graag meeredere rapport mee sturen met email Hoe?

[dinoshop]

heb dus een stukje script gemaakt waarin rapporten verzonden moeten worden alleen werkt het niet wat moet ik aan passen?

zie hier voor beeld zoals ik hem nu heb.

stDocBijlage= "Factuur Bijlage"
DoCmd.OpenReport stDocName, acPreview, , "[ProjectID]=" & Me.ProjectID
DoCmd.OpenReport Stdocbijlage, acPreview, , "[ProjectID]=" & Me.ProjectID
DoCmd.SendObject acSendReport, stDocName, acFormatPDF, Email, , , , Stekst, True
DoCmd.SendObject acSendReport, StDocBijlage, acFormatPDF, Email, , , , Stekst, True

hij neemt nu niet stDocBijlage mee in de mail

 

[OctaFish]

wat moet ik aan passen?

Alles .
Met SendObject kan het namelijk niet. Het doet precies wat het zegt: verzenden van één object. Dus ofwel alles apart verzenden, maar dat is denk ik dan niet handig, of werken met een Mailclient. Daarbij geeft Microsoft je een geweldige keuze, je kunt namelijk gebruik maken van... Outlook . Daarbij moet je een Outlook sessie openen en daar de mail in maken. Dan kun je meerdere bijlagen toevoegen.
De truc is dus dat je de complete mail niet meer in Access maakt, maar in Outlook.

 

[dinoshop]

Octa
ik denk zelf dat dit zou moeten werken, kan jij je blik er eens over laten gaan ?

Private Sub EMail_Click()
Dim Email As String
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Dim strAttach1 As String
Dim strAttach2 As String

Email = DLookup("Factuurmail", "tblDebiteuren", "[DebID]=" & [DebID])
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

DoCmd.OutputTo acOutputReport, "factuur", acFormatPDF, "i:\factuur.pdf", False
DoCmd.OutputTo acOutputReport, "factuur 2", acFormatPDF, "i:\factuur 2.pdf", False

strAttach1 = "i:\factuur.pdf"
strAttach2 = "i:\factuur 2.pdf"

With objEmail
.To = Me.Email
.Subject = "Night Warehouse Productivity Reports"
.Body = "Night warehouse productivity reports"
.Display
.Attachments.Add strAttach1
.Attachments.Add strAttach2

End With

Kill strAttach1
Kill strAttach2
End Sub

 

[OctaFish]

Bijna goed... Er zit een foutje in de .To regel, en je kunt je variabelen nuttiger inzetten. Dat laatste is dan uiteraard geen fout, maar een verbetering .

    strAttach1 = "i:\factuur.pdf"
    strAttach2 = "i:\factuur 2.pdf"
    DoCmd.OutputTo acOutputReport, "factuur", acFormatPDF, strAttach1, False
    DoCmd.OutputTo acOutputReport, "factuur 2", acFormatPDF, strAttach2, False
    
    With objEmail
[COLOR="#0000FF"][B]        .To = Email[/B][/COLOR]
        .Subject = "Night Warehouse Productivity Reports"
        .Body = "Hierbij ontvangt u de Night Warehouse Productivity Reports."
        .Display
        .Attachments.Add strAttach1
        .Attachments.Add strAttach2
    End With

 

[dinoshop]

dank is groot

 

[dinoshop]

dacht dat goed was alleen moet hij filteren op projectid, probeer het maar krijg nog niet voor mekaar hij pakt alles