Envoie e-mail avec indy [Résolu]

Question

Posez votre question Signaler Répondre au sujet

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

Delphi / Pascal Posez votre question Signaler Répondre au sujet

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

Signaler Commenter la réponse de Cirec

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

Signaler Commenter la réponse de xt3

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. @+

Signaler Commenter la réponse de cs_nadirmed

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 !!!!!!!!!!!!)

Signaler Commenter la réponse de xt3

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?

Signaler Commenter la réponse de jlen100

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

Accepted Answer

+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é ? Oui Non

Envoie e-mail avec indy [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !