Envoie e-mail avec indyRésolu

Question

Salut tout le monde,

Voil&#224; mon probl&#232;me : je souhaite envoy&#233; le contenu d'un fichier texte dans un e-mail.

Je suis parvenu &#224; charger le contenu du fichier dans un memo avec : "Memo1.Lines.LoadFromFile(fic)".

Je parviens sans probl&#232;me &#224; envoyer l'e-mail mais le probl&#232;me est que le contenu de l'e-mail est vide.

Est ce que quelqu'un aurait une id&#233;e?

@++

xt3 · Accepted Answer

C'est bon les gars, probl&#232;me r&#233;solu, &#231;a marche. 

Pour ceux que &#231;a int&#233;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&#233;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;

xt3 · Answer

Merci pour le lien, je vais aller regarder &#231;a. @+

cs_nadirmed · Answer

salut , S.O.S , terriens en detresse , 
j'ai une question qui me tourmente l'esprit (et les notes !!!!!!!) et &#224; laquelle je voudrais absolument une r&#233;ponse :comment intriduire des donn&#233;es sous Excel sur une base de donn&#233;es de Delphi5?
P.S: une grande r&#233;compense &#224; la cl&#233; ( beaucoup de merci !!!!!!!!!!!!)

xt3 · Answer

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&#233;e?

jlen100 · Answer

-->nadirmed sur ce post tu es sens&#233; r&#233;pondre &#224; la question pos&#233;e par
xt3 pas en poser une autre sans rapport avec le sujet; si tu veux avoir
une r&#233;ponse &#224; 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 &#224; 'excel'

@+

jlen

Envoie e-mail avec indy

5 réponses

Votre réponse