Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
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 5002 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




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^