Mail

Question

Bonjour,
Aujourd'hui, je vous demande comment envoyer un e-mail via delphi.
Le but est d'envoyer un email dont le texte sera contenu dans un Memo => Memo1.
Comment fa    ire ?
Merci

Cirec · Answer

Salut,

Comment faire ? ... c'est très simple ... il suffit de faire une recherche sur le site et/où avec Google et des réponses tu trouvras.

 
@+
Cirec

<hr siz="" />

kopierreko · Answer

J'ai testé mais les techniques ne marchent pas >< je ne reçoit jamais le mail.
Merci

cs_MAURICIO · Answer

Salut, 
Utilises les composants Indy10 + démo sur leur site: 
www.indyproject.org

A+

kopierreko · Answer

ben j'ai fais plusieurs tests e à chaque fois le même message:

Connection Closed Gracefull !

Et jamais rien dans la boite ...
Je ne sais pas quoi faire .
Merci

cs_MAURICIO · Answer

Bem commence par lire le manuel de Indy, ça va t' aider ...

kopierreko · Answer

j'ai même pris un exemple et adapté le code à mon programme et ça fait exactement pareil.

procedure TForm1.coClick(Sender: TObject);
begin
Memo1.text:='Message n°1: ' + ms1.Text + ' Message n°2: ' +ms2.text;

//******************************
// Confection du message
//******************************
If messagedlg('envoyez le message ?',mtConfirmation,[mbyes,MbNo],0) = Mrno then exit;

// Assignation du memo au corps du message
IdMessage1.SetBody(Memo1.Lines);

// Definition du niveau de priorité
IdMessage1.Priority := mpHighest;

// Adresse de l'emetteur du message
IdMessage1.From.Address := 'pk64@ymail.com';

// Sujet du message

IdMessage1.Subject := 'MSN Messenger';

// Destinataire du message
IdMessage1.Recipients.EMailAddresses := Memo1.Text; // Tedit

IdMessage1.ReceiptRecipient.Address := 'kopierreko@gmail.com';

//******************************
// paramêtre du client SMTP
// (connexion au serveur)
//******************************

IdSMTP1.Username := 'psproduction@ton-hebergement-gratuit.com';
IdSMTP1.Host := 'smtp.ton-hebergement-gratuit.com';
IdSMTP1.Password := '****';

// Poster
Try
IdSMTP1.Connect(300);
IdSMTP1.Send(IdMessage1);
Finally
IdSMTP1.Disconnect;
IdMessage1.MessageParts.Clear;
End;
ShowMessage('Opération terminée');
end;

Un idée ?
Merci

jlen100 · Answer

salut 
es -tu bien sur de l'adresse du serveur SMTP?
 pour GMAIL  c'est:
 Serveur SMTP : smtp.gmail.com
JLen

kopierreko · Answer

Tourjours pareil: "Connection Closed Gracefully !!"

With IdMessage1 do
   Begin
   Memo1.Text:='Mes1 ' + mes1.Text + ' mes2: ' + mes2.text;
   From.Text:='Cible';
   Recipients.EMailAddresses:='kopierreko@gmail.com';
   Subject :='aucun';
   Body.Assign(Memo1.Lines);
   End;
With IdSMTP1 do
   Begin
   //******************************
// paramêtre du client SMTP
// (connexion au serveur)
//******************************

IdSMTP1.Username := 'kopierreko@gmail.com';
IdSMTP1.Host := 'smtp.gmail.com';
IdSMTP1.Password := '*****';

// Poster
Try
IdSMTP1.Connect(-1);
IdSMTP1.Send(IdMessage1);
Finally
IdSMTP1.Disconnect;
IdMessage1.MessageParts.Clear;
End;
ShowMessage('Opération terminée');
end;
   End;

Une idée ?
Merci quand même

jlen100 · Answer

attention GMAIL n'utilise pas le port 25

kopierreko · Answer

Quel port utilise Gmail ?
J'ai cherché sur leur site en vain
Merci

kopierreko · Answer

Bonsoir non merci j'ai trouvé le port, pour ceux qui le veulent: Voici les informations qui vous seront nécessaires : Informations POP, pop.gmail.com Utilise SSL : Oui Port: 995, ---- Informations SMTP, smtp.Gmail.com Utilise une Authentification : Oui Utilise SSL : Oui Port: 465 ou 587, ---- Nom du compte, Votre nom d'utilisateur (incluant "@gmail.com") Je n'obtioent cependant rien; Pas de message, pas d'alerte, pas d'erreur. Rien Merci et désolé pour el double post

Mail

11 réponses

Votre réponse

Discussions similaires