Bonjour à tous,
le code suivant fonctionne avec "XXXXX@gmail.com" et pas avec "XXXXX@laposte.net" (je n'ai pas tester d'autres adresses).
En mettant Idmessage1.NoEncode := True, les 2 adresses reçoivent le mail sans sujet sans rien.
Merci de votre aide !!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Idmessage1.Clear; Idmessage1.Date := Now; Idmessage1.CharSet := 'iso-8859-1'; // Idmessage1.NoEncode := True; Idmessage1.Encoding := MeMIME; Idmessage1.ContentType := 'multipart/mixed'; // 'text/plain'; IdMessage1.ReplyTo.EMailAddresses := FMails.MailReponse.Text; IdMessage1.From.Text := FMails.MailExpedit.Text; Idmessage1.from.address := FMails.MailExpedit.Text; // e-mail do remetente Idmessage1.recipients.emailaddresses := FMails.MailDestin.Text; Idmessage1.subject := FMails.SujetMail.Text; Idmessage1.AttachmentEncoding := 'MIME';
Partager