Bonjour à tous,

pour envoyer des mails j'utilise mail4delphi qui fonctionne bien sur le port 587,
mon soucis le mail reçu re respecte pas la mise en forme de l'émission ? Pas de respect de saut à la ligne ?
Mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
Begin
    Head := 'Gest-Immo serveur Smtp : ' + Dm1.Smtp_Host + ' sur port : ' + IntToStr(Dm1.Smtp_Port);
    Body.Lines.Add('Gest-Immo configuration du serveur Smtp');
    Body.Lines.Add(' Serveur : ' + Dm1.Smtp_Host);
    Body.Lines.Add(' Port : ' + IntToStr(Dm1.Smtp_Port));
    LMail := TMail.new
    .From(Dm1.Smtp_Exp)
    .SSL(Dm1.Smtp_Ssl)
    .Host(Dm1.Smtp_Host)
    .Port(Dm1.Smtp_Port)
    .Auth(Dm1.Smtp_Auth)
    .UserName(Dm1.Smtp_User)
    .Password(Dm1.Smtp_Password)
    .ReceiptRecipient(False)
    .AddCC(Dm1.Smtp_CC)
    .AddBCC(Dm1.Smtp_BCC)
    .AddTo(E5.Text)
    .Subject(Head)
    .AddBody(Body.Lines.Text) ;
 
  if LMail.SendMail then
    ShowMessage('Mél expédié correctement');
 
  end;
Le soucis est le même avec l'exemple fournit par mail4delphi .
Une idée pour garder la mise en page ?