Bonjour,

Aujourd'hui nous allons nous interesser au controle SMTP qui permet l'envoi de mail.

1)creation de l'interface.
Creez l'interface de sorte que l'on puisse saisir :

-Le destinataire du message nommée tto
-L'objet du message nommé tobject
-Le contenu du message nommée tcontent

Un bouton envoyer le mail nommé bsend
Un bouton quitter nommé bclose

2) Remplir le code de l'evenement click du bouton envoyer

Saisissez ce code :

PUBLIC SUB bsend_Click()
SmtpClient1.To.Add(tto.Text) 'destinataire du message
SmtpClient1.Subject = tobject.Text 'objet du message
SmtpClient1.From = "lemail@lemail.fr"'adresse expediteur
SmtpClient1.Host = "smtp.free.fr" 'serveur smtp
SmtpClient1.Port = 25 'port
SmtpClient1.Add(tcontent.Text, "text/plain") 'contenu et type
SmtpClient1.Send() 'envoi du message
Message.Info("Message envoyé avec succès!") 'message si bien envoyé
CATCH 'interception d'une erreur
Message("une erreur s'est produite, veuillez recommencer !")
END

Voila pour aujourd'hui.
 

TELECHARGER L'EXEMPLE ICI

 

Remarque : Si vous avez ce message d'erreur :

Server won't accept sender while starting dialog(smtp error code #575)

l'adresse de l'expediteur n'est pas dans le bon format. (mail@mail.com)

si vous avez le signal #11, C'est que vous avez oublié une propriété. 
pour que le controle marche, il faut saisir toutes les lignes.