VB en meerder mails te gelijk versturen

[Verwijderd]

Ik heb hier een mooi voorbeeld om mail te versturen in VB, werkt perfect. Mijn probleem is echter dat dit per mail gaat.... Dus...

Verbinden.....
Mailtje versturen
Afsluiten
Verbinden.....
Volgende Mailtje versturen
Afsluiten
etc..

Aangezien er ongeveer 50 mailtjes per keer verstuurd moeten worden duurd dit erg lang... Weet iemand hoe je deze code kan aanpassen zodat er meer in eens verstuurd kan worden ?

VB CODE:

Const SESSION_SIGNON = 1
Const SESSION_SIGNOFF = 2
Const MESSAGE_COMPOSE = 6
Const ATTACHTYPE_DATA = 0
Const RECIPTYPE_TO = 1
Const RECIPTYPE_CC = 2
Const MESSAGE_RESOLVENAME = 13
Const MESSAGE_SEND = 3

MAPISession1.Action = SESSION_SIGNON

MAPIMessages1.SessionID = _
Mainform.MAPISession1.SessionID
MAPIMessages1.Action = MESSAGE_COMPOSE
MAPIMessages1.MsgSubject = "Hallo"

MAPIMessages1.MsgNoteText = "Hoi"
MAPIMessages1.RecipIndex = 0
MAPIMessages1.RecipType = RECIPTYPE_TO
MAPIMessages1.RecipDisplayName = "[e-mail]"
MAPIMessages1.RecipAddress = "[e-mail]"

MAPIMessages1.Action = MESSAGE_SEND
MAPISession1.Action = SESSION_SIGNOFF

[RobzQ]

Probeer eens de emailadressen te scheiden door een ; ?

[Verwijderd]

Het zijn niet dezelfde berichten...

MsgNoteTXT krijg telkens een andere waarde.

Dus hier heb ik niks aan

Maar toch bedankt...

[Janoz]

Probeer er anders iets van te maken als:
verbinden
mail versturen
mail versturen
mail versturen
mail versturen
.
.
mail versturen
afsluiten

Dat zal waarschijnlijk een stuk sneller zijn

[Verwijderd]

MAPISession1.Action = SESSION_SIGNON

Mail 1
Mail 2
Mail 3
etc

MAPISession1.Action = SESSION_SIGNOFF

Heb ik al eens geprobeerd maar dat gaat dus ook niet... Dan krijg ik een error met SESSIONID... en als je die verhoogd dan krijg je invalid Session ID

[Limhes]

ik weet niet of je met het smtp protocol bekend bent, maar daar kun je volgens mij gewoon mailtjes achter elkaar zetten en ze vervolgens versturen. Dus ongeveer:

code:

tcp-socketverbinding openen naar mailserver:25...

HELO
// het volgende stukje kun je meerdere malen herhalen
MAIL FROM:<[e-mail]>
RCPT TO:<[e-mail]>
DATA
messagebody en headers gescheiden door vbCrLf
.   //afsluiten met "." & vbCrLf
// einde van het stukje
QUIT

socketverbinding sluiten als ie nog niet gesloten is

[Verwijderd]

Ik weet niet wat je allemaal op je computer hebt staan, maar als je IIS geïnstalleerd hebt, dan heb je inderdaad STMP automatisch erbij. Zoek dan eens wat meer info over CDONTS. Dit werkt ontzettend simpel.