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 :
Et il m'indique en mode débogageErreur 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é.
la ligne suivante :
Pour info :
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
J'ai ajouté la référence à "SMTP SendMail for Vb6"
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
Si vous saviez de quoi il en retourne ça serait cool parce que je seche un peu là
Partager