Envoie e-mail avec indy [Résolu]
xt3
23
Messages postés
mardi 10 janvier 2006Date d'inscription
13 février 2006
Dernière intervention
-
25 janv. 2006 à 14:20 - Dernière réponse :
xt3
23
Messages postés
mardi 10 janvier 2006Date d'inscription
13 février 2006
Dernière intervention
- 25 janv. 2006 à 16:51
- Envoie e-mail avec indy
- Pb causé par envoie e-mail ! (lire images du dossier) [Résolu] (Résolu) » Forum - Visual Basic
- Envoie e-mail vers boite outlook » Forum - ASP / ASP.NET
- Envoie e-mail en c++ avec visual c++6 » Forum - C / C++ / C++.NET
- Envoie d'un message e-mail à partir de votre application vb.net ou asp.net » Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Accusé de réception d'un e-mail envoie avec NMSMTP [Résolu] (Résolu) » Forum - Delphi / Pascal
6 réponses
Meilleure réponse
C'est bon les gars, problème résolu, ça marche.
Pour ceux que ça intéresse voici mon script :
procedure TForm1.Button2Click(Sender: TObject);
var
IdMessage : TiDMessage;
IdSMTP : TiDSMTP;
mel : String;
melrep : String;
melsuj : String;
melport : String;
melport2 : Integer;
melserv : String;
inifile : TIniFile;
begin
inifile := TIniFile.Create(NormalDir(ExtractFilePath(Application.ExeName)) + 'arcs.ini');
mel := inifile.ReadString('Mail', 'meldest','');
melrep := inifile.ReadString('Mail', 'melrep','');
melsuj := inifile.ReadString('Mail', 'melsujet','');
melport := inifile.ReadString('Mail', 'smtpport','');
melserv := inifile.ReadString('Mail', 'smtpserver','');
inifile.Free;
IdMessage := TIdMessage.Create(nil);
IdMessage.From.Address := melrep;
IdMessage.ReplyTo.Add.Address := melrep; //@ de réponse et / ou destinataire
IdMessage.Recipients.Add.Address := mel;
IdMessage.Subject := melsuj; //Sujet du message
IdMessage.ContentType := 'text/plain';
IdMessage.Body := Memo5.Lines;
//Envoi du message
IdSMTP := TIdSMTP.Create(nil);
melport2 := StrToInt(melport);
IdSMTP.Port := melport2;
IdSMTP.Host := melserv;
//Connexion et envoi du message avec test
Try
IdSMTP.Connect;
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
IdSMTP.Free;
IdMessage.Free;
end;
end;
Pour ceux que ça intéresse voici mon script :
procedure TForm1.Button2Click(Sender: TObject);
var
IdMessage : TiDMessage;
IdSMTP : TiDSMTP;
mel : String;
melrep : String;
melsuj : String;
melport : String;
melport2 : Integer;
melserv : String;
inifile : TIniFile;
begin
inifile := TIniFile.Create(NormalDir(ExtractFilePath(Application.ExeName)) + 'arcs.ini');
mel := inifile.ReadString('Mail', 'meldest','');
melrep := inifile.ReadString('Mail', 'melrep','');
melsuj := inifile.ReadString('Mail', 'melsujet','');
melport := inifile.ReadString('Mail', 'smtpport','');
melserv := inifile.ReadString('Mail', 'smtpserver','');
inifile.Free;
IdMessage := TIdMessage.Create(nil);
IdMessage.From.Address := melrep;
IdMessage.ReplyTo.Add.Address := melrep; //@ de réponse et / ou destinataire
IdMessage.Recipients.Add.Address := mel;
IdMessage.Subject := melsuj; //Sujet du message
IdMessage.ContentType := 'text/plain';
IdMessage.Body := Memo5.Lines;
//Envoi du message
IdSMTP := TIdSMTP.Create(nil);
melport2 := StrToInt(melport);
IdSMTP.Port := melport2;
IdSMTP.Host := melserv;
//Connexion et envoi du message avec test
Try
IdSMTP.Connect;
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
IdSMTP.Free;
IdMessage.Free;
end;
end;
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 95 internautes ce mois-ci
Salut,
les mails c'est pas vraiment mon truc mais regarde cette source il me semble qu'il y utilise les composants Indy
http://www.delphifr.com/code.aspx?ID=35495
@+
Cirec
les mails c'est pas vraiment mon truc mais regarde cette source il me semble qu'il y utilise les composants Indy
http://www.delphifr.com/code.aspx?ID=35495
@+
Cirec
salut , S.O.S , terriens en detresse ,
j'ai une question qui me tourmente l'esprit (et les notes !!!!!!!) et à laquelle je voudrais absolument une réponse :comment intriduire des données sous Excel sur une base de données de Delphi5?
P.S: une grande récompense à la clé ( beaucoup de merci !!!!!!!!!!!!)
j'ai une question qui me tourmente l'esprit (et les notes !!!!!!!) et à laquelle je voudrais absolument une réponse :comment intriduire des données sous Excel sur une base de données de Delphi5?
P.S: une grande récompense à la clé ( beaucoup de merci !!!!!!!!!!!!)
-->nadirmed sur ce post tu es sensé répondre à la question posée par
xt3 pas en poser une autre sans rapport avec le sujet; si tu veux avoir
une réponse à ta question tu vas en bas de la liste et tu cliques sur 'poser une question'
mais tu peux aussi commencer par regarder avec le moteur de recherche en cherchant à 'excel'
@+
jlen
xt3 pas en poser une autre sans rapport avec le sujet; si tu veux avoir
une réponse à ta question tu vas en bas de la liste et tu cliques sur 'poser une question'
mais tu peux aussi commencer par regarder avec le moteur de recherche en cherchant à 'excel'
@+
jlen
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.