Vraagje ?

[jo geuens]

Hoe kan ik 2 rapporten in een mail verzenden ?

deze gebruikte ik om 1 rapport te versturen maar met 2 werkt deze niet

Private Sub mail_Click()
On Error GoTo Err_mail_Click

    Dim stDocName As String
    


    stDocName = "rptVoorraad" [COLOR="#FF0000"]& "rptVerbruik"[/COLOR]  
    DoCmd.SendObject acReport, stDocName, , , , , "Voorraad & Verbruik", "Hier het overzicht van deze week "

Exit_mail_Click:
    Exit Sub

Err_mail_Click:
    MsgBox Err.Description
    Resume Exit_mail_Click
    
End Sub

 

[OctaFish]

En welke code gebruikte je dan voor het tweede rapport?

 

[jo geuens]

hoi octafish

het stuk dat in het rood staat maar dat rapport komt niet mee in mijn mail

 

[OctaFish]

Vind je het gek? Je vult de variabele met twee tekstblokken: stDocName = "rptVoorraad" & "rptVerbruik". De waarde van stDocName bevat dus met deze opdracht één woord: "rptVoorraadrptVerbruik". En ik wed er mijn huis onder dat je geen rapport hebt dat 'rptVoorraadrptVerbruik' heet. Wil je 2 rapporten sturen, dan moet je 2 keer de opdracht uitvoeren.

 

[jo geuens]

bedoel je 2 mails sturen dat is nu net niet de bedoeling, ik wil de 2 rapporten in 1 mail hoe ga ik dan tewerk ?

 

[rebirth]

of dat kan met sendobject weet ik niet, maar ik heb in het verleden wel een dergelijk iets gemaakt op een andere manier, en door gebruik te maken van outlook.
Wel maakte ik hiervoor eerst pdf files van de rapporten, en die voegde ik dan als outlookattach bij in het emailbericht en liet ik die automatisch versturen.

 

[jo geuens]

hoi

mag ik ook weten hoe je dat dan deed? in vba

 

[rebirth]

Access een rapport als pdf laten opslaan, kan je eenvoudig via een macro realiseren. Gewoon even spelen met de "UitvoerenNaar" actie, en je zal snel genoeg vinden wat je nodig hebt.

De mail versturen kan met het volgende:

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachmenet
 
Set objOutlook = CreateObject (“Outlook.Application”)
 
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
 
With objOutlookMsg
               Set objOutlookRecip = .Recipients.Add(emailadres@email.be)
               objOutlookRecip.Type = olTo
 
               Set objOutlookRecip = .Recipients.Add(emailadres@email.be)
               objOutlookRecip.Type=olCC
 
.Subject = “onderwerp van je mail”
.Body = “hier kan je tekst zetten die in je mail zelf komt te staan.”
.Importance = olImportanceHigh
 
TheDate = Format (now(), “mm-dd”)
 
SetobjOutlookAttach = .Attachments.Add(“C:\bestandsnaam.pdf”)
SetobjOutlookAttach = .Attachments.Add(“C:\bestandsnaam2.pdf”)
 
 
For Each objOutlookRecip In .Recipients
   objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then objOutlookMsg.Display
End If
Next
.Send
End with
Set ojbOutlookMsg = Nothing
Set objOutlook = Nothing

Hopelijk geraak je hiermee wat verder.

 

[OctaFish]

Je kunt ook een workaround gebruiken door de twee rapporten in één rapport te zetten, waarbij ze dus een subrapport op dat nieuwe rapport zijn. Dan kun je weer één mail sturen.