[access] sendobject

[Heras]

Ik heb een database waaruit iedere maandag een statusrapportage verzonden moet worden. Dat doe ik simpelweg door een sendobject. Nu heb ik echter de vraag gekregen of het overzicht in zowel rtf als in xls formaat gemaild kan worden.

Nu kan ik natuurlijk 2 mailtjes versturen, maar aangezien ik straks 50 ontvangers heb voor die mailtjes is dat niet echt een mooie oplossing.

Kan ik het zo maken dat er één mailtje gegenereerd wordt met daarin als bijlage zowel een rapport als rtf bestand én een query als excel bestand. In één mailtje dus.

Ik gebruik nu de volgende code om het rapport te verzenden;

code:

DoCmd.SendObject acSendReport, "Rapport1", acFormatRTF,
Me.mail, , , "Statusoverzicht " & Me.naam & " " & date, 
"Statusoverzicht voor " & Me.naam & Chr(13) & 
"Dit statusoverzicht bevat gegevens van " & DCount 
("[BFOnr]", "Statusoverzicht") & " projecten.", False

[ Voor 18% gewijzigd door Heras op 01-04-2003 11:29 . Reden: layout ]

[henkleerssen]

Ja... Volgens mij kun je dat gewoon doen in de macro taal.. ipv de VBA taal.. vrij simpel geloof ik..
Met dat docmd .. tja das dus 1 commando van de macro taal binnen access...

[henkleerssen]

En als je het toch wilt gaan doen in vba.. met MAPI object gaan werken.. moet je ff voorbeeldjes halen van google...

[Heras]

De Macrotaal?¿?

[KingRichard]

Je kunt hier inspiratie opdoen over hoe je met MAPI mail kunt versturen en attachments kunt toevoegen. Of bij MSDN

[henkleerssen]

Heras schreef op 01 April 2003 @ 12:25:
De Macrotaal?¿?

Ja .. van oudsher heeft access dat nog in zich.. ja ja..
vandaar ook dat domme Docmd in access vba.. allemaal legacy wat de klok slaat...
Zoek nou maar gewoon op MAPI VB samples... dan kom jer ook wel...

[Boss]

Als je van outlook gebruik kan maken is het een stuk makkelijker:

code:

dim app as Outlook.Application
dim msg as Outlook.Mailitem
set msg = app.createitem mailtje)
msg.attachements.add
msg.send

of zoiets, ff snel wat ranizgs uit mn hoofd. In ieder geval kan je Outlook volledig via VBA aansturen.