[acces97] sendobject

[Verwijderd]

Hallo,

ik had een vraag. Momenteel draait er iedere nacht een programma wat emailtjes verzend naar diverse afdelingen betreffende hun orderoverzicht.
Situatie:
ik heb een tabel die iedere nacht geupdate wordt. Hieraan heb ik een query gekoppeld die de orderoverzichten maakt voor de afdelingen.
Binnenkort moet het programma uitgebreid worden en moeten er iedere nacht meer dan honderd emailtjes verzonden worden.
De vraag is nu, moet ik mijn vb aanpassen om het geheel wat sneller te laten verlopen (iedere email is een query), of laten zoals hij is.
Moet ik bv eerst een tabel maken van alle nieuwe bestellingen en dan een soort select from where?

Huidige situatie:

Function verzend_bestand_afdeling_??_6()
On Error GoTo verzend_bestand_afdeling_??_Err
Dim Db As Database
Dim Rs As Recordset
Dim ordernummer As String

Set Db = CurrentDb

Set Rs = Db.OpenRecordset("overzicht bestellingen afdeling ??")


If Rs.RecordCount > 0 Then GoTo Start Else GoTo Einde

Start:

DoCmd.SendObject acQuery, "Overzicht bestellingen afdeling ??", "MicrosoftExcel(*.xls)", "[e-mail]", , , "overzicht bestellingen afdeling ??", "Geachte heer/mevrouw, hierbij zenden wij u het overzicht betreffende de bestellingen van afdeling ?? die gisteren zijn ingevoerd.", False, ""


verzend_bestand_afdeling_??_Exit:
Exit Function

Einde:

DoCmd.SendObject , "Geen bestellingen", , "[e-mail]", , , "overzicht bestellingen afdeling ??", "Geachte heer/mevrouw, gister hebben wij geen orders voor afdeling ?? ingevoerd.", False, ""

[Boss]

100 e-mailtjes? Dat kan toch nooit veel tijd kosten,? En als het 's nachts wordt gedaan is het toch helemaal niet erg als het een uurtje nodig heeft?

Je zou overigens ook eens kunnen overwegen om ipv docmd.sendobject direct gebruikt te maken van Outlook. Dan heb je iets meer vrijheid voor het maken van de mailtjes. Moet je ff Outlook aanvinken bij de verwijzingen en een mail-item maken.

Als ik zo verder naar je code kijk, lijkt het erop dat je voor ieder bedrijf een aparte tabel maakt? Dat kost onnodig veel ruimte. Je kan in docmd.sendobject ook een query opgeven, en die als tabel verzenden. Dan hoef je al die create-table dingen niet te doen.