envoi d'email problème de retour ligne

Version imprimable

13/07/2006, 08h56
flydan

envoi d'email problème de retour ligne

Bonjour,

Je suppose que c'est une éternel question que de savoir comment envoyer un email en delphi :cry:

J'ai donc chercher et ai trouvé qu'avec le ShellExecute on pouvait le faire.
Mais j'ai un problème, c'est que le message qui apparaît dans mon email ne possède pas les retour ligne.

voici ce que j'ai écrit pour composer mon message :

procedure TForm1.Button1Click(Sender: TObject);
begin
P30:= Jour_absence+' - '+Type_jour+' - '+Code_absence;
Liste_jour:= liste_jour+P30+CHR(13)+CHR(10);
Memo1.Text:= liste_jour;
end;

et ce que j'ai écrit pour envoyer l'email :

procedure TForm1.Button2Click(Sender: TObject);
begin
adr := 'xxxxx@infrabel.be';
sujet := 'P30 de ..............';
messge := Memo1.Text;
email := 'mailto:'+adr+'?subject='+sujet+'&body='+messge;
Memo2.text := email ;
ShellExecute(handle, 'open', Pchar(email), nil, nil, sw_normal);
end;

Pourtant quand j'envois vers une fenêtre mémo le Pchar(email), je vois bien que le corps du message possède les retours lignes !!! 8O

Si quelqu'un a une idée ou me dire comment faire autrement...;)

merci
13/07/2006, 09h33
TicTacToe

Salut,

Met ton code dans les balises 'CODE' et ce sera plus clair à relire pour tout le monde.

Sinon, en ce qui concerne ton problème, je suis peut-être complétement à coté de la plaque mais ca peut être une piste.

Si le corps de ton mail par défaut est défini en HTML, les retours chariots ne seront pas compris (le retour chariot est la balise <br>).

Dans le corps de ton text, ton mémo, essaye en toute lettre d'inserer '<br>'.

Si cela provoque de retours chariot dans ton mail, c"etait ca le problème, sinon.... faut chercher ailleurs :)

si c'est ca 2 solutions:
tu remplaces tous les retours chariot par '<br>'
ou bien tu te débrouilles pour envoyer ton mail en mode texte pur.

Début de réponse

Salut,

Je vois que tu travailles toi aussi pour infrabel.

Je sais pas si tu sais, mais tu peux utiliser les composants Indy : TIdMessage et TIdSMTP. Et pour ça il faut être connecté à un serveur SMTP par ton réseau ou par Internet.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
{--- Affecte un message -------------------------------------------------}
procedure TfenEmail.AssignMessage(Msg: TIdMessage);
var
 i: integer;
begin
  Msg.Clear; //Efface l'entête et le corps du message
  Msg.From.Text :='machin@infrabel.be'; //Adresse email de l'expediteur
  Msg.ReplyTo.EMailAddresses:='truc@infrabel.be'; //Adresse email où le 
  Msg.Date:=Date; //Date de l'envoi du message
  Msg.Subject:=ediSujet.Text; //Sujet du message
  Msg.Body.Assign(MemoBody.Lines); //Corps du message
  Msg.IsEncoded := True;
  for i := 0 to ListeFichiers.Count - 1 do
    TIdAttachmentFile.Create(Msg.MessageParts,ListeFichiers[i]); 
end;
 
{--- Envoi du message ---------------------------------------------------}
procedure TfenEmail.EnvoiMessage(MsgAEnvoyer: TIdMessage; Priority: integer);
begin
  //Priorité du message
  case priority of
  0: MsgAEnvoyer.Priority := mpHighest; 
  1: MsgAEnvoyer.Priority := mpHigh;
  2: MsgAEnvoyer.Priority := mpNormal;
  3: MsgAEnvoyer.Priority := mpLow;
  4: MsgAEnvoyer.Priority := mpLowest;
  end;
  //Connexion au serveur smtp
  IdSMTP1.AuthType := atNone; //Type d'authentification
  IdSMTP1.Host := ediHost.Text; //Hôte (par exemple : smtp.free.fr)
  IdSMTP1.Port:= StrToInt(ediPort.Text); //Port (généralement : 25)
  IdSMTP1.UserName := ediUser.Text; //Nom d'utilisateur
  IdSMTP1.Password := ediPassword.Text; //Mot de passe
  IdSMTP1.Connect; //Connexion
  try
    IdSMTP1.Send(MsgAEnvoyer); //Envoi du message
  finally
    IdSMTP1.Disconnect; //Déconnexion
  end;
end;

13/07/2006, 18h26
flydan

Salut,

Ben vi vive Infrabel :lol:

Je ne savais pas pour éditer le code je le ferais dès à présent.
Sinon, effectivement cela ne marche pas avec <br> , ce n'est pas en html mais du texte.

Je débute en delphi et dans mes recherches j'ai trouvé avec TIdMessage et TIdSMTP. J'avais téléchargé un exemple mais le compilateur me donnait des erreurs je crois que les composants indy ne sont pas installé :oops: je vais regarder pour les installé.

Merci pour la rapidité de vos réponses.
14/07/2006, 09h30
flydan

finalement trouvé

voilà, je post la solution. Bien que je ne sais pas si cela intéresse beaucoup de monde.

En fait , les CHR(13) qui sont ds mon memo.text ne pas compris lors du transfert vers l'email il faut absolument les remplacer par '%0D%0A' :D

merci pour tout

a bientôt