Discussion :

[soso78]

Bonjour,

Voilà, je tente d'utiliser la librairie "vbsendmail" sur le site ici : http://www.freevbcode.com/ShowCode.Asp?ID=109 qui permet d'envoyer des emails multiples de manière très simple.

Ce programme est à l'origine écrit pour VB6, et je tente de l'adapter pour Access 2003 sans trop de difficulté il est vrai excepté... qu'il y a une instruction qui n'existe pas en VBA. Il s'agit de "withevents" (dont je n'ai pas très bien compris d'ailleurs son utilisation).

Ainsi, dans les exemples, on intialise la classe comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private WithEvents poSendMail As vbSendMail.clsSendMail

Ma question : comment modifier cela pour access ? Ou comment remédier à ce problème ? Sinon, y-a-t-il un moyen de le contourner ?

Ou bien, connaissez-vous d'autres librairies qui permettent l'envoi multiple d'email... sans passer par les librairies "Outlook" ?

Merci par avance pour vos réponses.

[SfJ5Rpw8]

tu modifier la ligne par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim poSendMail As vbSendMail.clsSendMail

si tu jette un coup d'oeil dans le .doc fourni avec la librairie tu pourra voir

' Module Level Declaration (WithEvents optional but recommended)

WithEvents , optionnel....

Pour info dans MSDN ..

Le mot clé WithEvents est employé dans les contextes suivants :

Dim, instruction

Private, instruction

Public, instruction
...

WithEvents Facultatif.Mot clé indiquant que l'argument varname est unevariable objet utilisée pour répondre aux événements déclenchés par unobjet ActiveX. Valide uniquement dans desmodules de classe. Vous pouvez déclarer autant de variables distinctes que vous le souhaitez à l'aide du mot clé WithEvents, mais vous ne pouvez l'utiliser pour créer destableaux avec WithEvents. Les mots clés New et WithEvents ne peuvent être utilisés ensemble.

Sinon sous Excel 2000 , la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private WithEvents poSendMail As vbSendMail.clsSendMail

est valide si par exemple tu l'inclus dans le code d'un Userform. .. cela doit être pareil sous Access..

[soso78]

Merci pour tes explications, mais comment enclencher les procédures "SendSuccessful" et "SendFailed" selon les cas ? Il me semble que dans ce cas, c'est l'objet (vbsendmail.dll) qui envoi au programme ces fonctions (par withevents ?). En VBA... comment fait-on ? J'ai déjà essayé d'implémenter ces procédures mais aucun résultat :-(.

[SfJ5Rpw8]

bine moi j'ai tous simplement mis la fonction donnée en exemple dans le.doc dans mon userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub poSendMail_SendSuccesful()
 
	‘ your code here …
	MsgBox ("Mail Sent OK!”)
 
End Sub

.. et cela fonctionnne....
j'ai bien déclaré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private WithEvents poSendMail As vbSendMail.clsSendMail

en début du code de mon userform

PS: (toujours sous excel... j'ai pas acces 2000..)