WIDGETS GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
VISITES

   visiteurs

   visiteurs en ligne

Où ça, qui ça?
RESEAU - SMTPClient
UTILISER LE COMPOSANT SMTP POUR ENVOYER UN MAIL

 


 


zemail.png

 
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.
 
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.
 
 

Date de création : 09/01/2012 @ 16:44
Dernière modification : 09/01/2012 @ 16:50
Catégorie : RESEAU
Page lue 3110 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LOGICIELS GAMBAS 2
LES INSTRUCTIONS
LES COMPOSANTS
Divers

^ Haut ^