Donnez votre avis..
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
|
RESEAU - SMTPClient
UTILISER LE COMPOSANT SMTP POUR ENVOYER UN MAIL
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 Réactions à cet article
| ACCES RAPIDE
RECHERCHE
LES INSTRUCTIONS
LES COMPOSANTS
Divers
INSTRUCTIONS
Où ça, qui ça?
VISITES
visiteurs visiteurs en ligne ARCHIVES GAMBAS 1/2
|