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
Salut tout le monde,

Voilà mon problème : je souhaite envoyé le contenu d'un fichier texte dans un e-mail.

Je suis parvenu à charger le contenu du fichier dans un memo avec : "Memo1.Lines.LoadFromFile(fic)".

Je parviens sans problème à envoyer l'e-mail mais le problème est que le contenu de l'e-mail est vide.

Est ce que quelqu'un aurait une idée?

@++
Afficher la suite 

6 réponses

Répondre au sujet
xt3 23 Messages postés mardi 10 janvier 2006Date d'inscription 13 février 2006 Dernière intervention - 25 janv. 2006 à 16:51
+3
Utile
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;
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de xt3
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention - 25 janv. 2006 à 14:42
0
Utile
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
Commenter la réponse de Cirec
xt3 23 Messages postés mardi 10 janvier 2006Date d'inscription 13 février 2006 Dernière intervention - 25 janv. 2006 à 14:53
0
Utile
Merci pour le lien, je vais aller regarder ça. @+
Commenter la réponse de xt3
cs_nadirmed 1 Messages postés lundi 23 janvier 2006Date d'inscription 25 janvier 2006 Dernière intervention - 25 janv. 2006 à 15:15
0
Utile
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 !!!!!!!!!!!!)
Commenter la réponse de cs_nadirmed
xt3 23 Messages postés mardi 10 janvier 2006Date d'inscription 13 février 2006 Dernière intervention - 25 janv. 2006 à 16:19
0
Utile
Ce lien n'explique pas comment faire pour envoyer le contenu d'un fichier texte dans un mail.

Est ce que quelqu'un d'autre aurait une autre idée?
Commenter la réponse de xt3
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 25 janv. 2006 à 16:28
0
Utile
-->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
Commenter la réponse de jlen100

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.