Bonjour a tous,

Voici mon soucis je souhaite créer un module générique d'envoi de mail par SMTP avec VbSendMail.

J'ai tester la fonction avec les .exe fourni dans le .zip télécharger ça marche impect et je souhaite créé avec cet librairie un module générique pour de multiples fonction d'envoie par messagerie.

Mais lors du premier essai avec un formulaire MSAccess il me met :

Erreur d'éxecution '2185':

Impossible de faire référence à une propriété ou de la définir pour un contrôle
si ce dernier n'est pas activé.
Et il m'indique en mode débogage

la ligne suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub cmdSend_Click()
 
poSendMail.SMTPHost = Me.txtServer.Text ' <- Arret debogueur ici
 
poSendMail.From = Me.txtFrom.Text
poSendMail.FromDisplayName = Me.txtFromName.Text
poSendMail.Recipient = Me.txtTo.Text
poSendMail.RecipientDisplayName = Me.txtToName.Text
poSendMail.ReplyToAddress = Me.txtFrom.Text
poSendMail.Subject = Me.txtSubject.Text
'poSendMail.Attachment = txtFileName.txt     ' file attachment(s), optional
poSendMail.Message = Me.txtBody.Text
poSendMail.Send
 
End Sub
Pour info :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Option Compare Database
Option Explicit
Private WithEvents poSendMail As vbSendMail.clsSendMail
 
Private Sub Form_Load()
   'Initialize the component
   Set poSendMail = New clsSendMail
End Sub
J'ai ajouté la référence à "SMTP SendMail for Vb6"

Si vous saviez de quoi il en retourne ça serait cool parce que je seche un peu là