Envoi d'emails par Delphi
Bonjour,
pour envoyer un email par deplhi, j'ajoute un composant tidsmtp, et un tidmessage.
j'utilise le boc suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| IdMessage1.Clear; //Efface l'entête et le corps du message
IdMessage1.From.Text :=Edit1.Text; //Adresse email de l'expediteur
IdMessage1.Date:=Date; //Date de l'envoi du message
IdMessage1.Subject:=Edit4.Text; //Sujet du message
IdMessage1.Body.Assign(Memo1.Lines); //Corps du message
//Connexion au serveur smtp
IdSMTP1.AuthenticationType:=atLogin; //Type d'authentification
IdSMTP1.Host:=cm.serv.Text; //Hôte (par exemple pour Free : smtp.free.fr)
IdSMTP1.Port:=cm.nport.Value; //Port (par exemple pour Free : 25)
IdSMTP1.UserName:=cm.user.Text; //Nom d'utilisateur
IdSMTP1.Password:=cm.mpass.Text; //Mot de passe
IdMessage1.Recipients.EMailAddresses:=Edit2.Text; //Adresse email du destinataire
IdSMTP1.Connect; //Connexion
IdSMTP1.Send(IdMessage1); //Envoi du message |
jusqu'ici, j'envoie sans problème. je l'ai fait avec plusieurs emails du serveur Yahoo.
j'ai un email du serveur gmail. j'ai utilisé le même code source ça ne marche pas.
j'ai essayé la config de cet email sur outlook, ça ne marche pas jusqu'à ce que j'ai coché "ce serveur nécessite une connexion cryptée SSL".
Pouvez vous m'indiquer comment activer cette option par delphi, pour que je puisse envoyer de cet email??
merci de votre collaboration;)
