Bonjour tout le monde,
Je suis en train de peaufiné un peu mon code d'envoi d'email.
Pour ce faire j'ai, au départ, fais un texte que j'ai envoyer avec la IdSMTP et IdMessage. J'ai pu constaté deux choses:
A partir de la, je me pose deux interrogations:
- Les carractères spéciaux, ne s'affichent pas correctement, dans le mail à la réception.
- Je n'ai pas trouvé de code de formatage en HTML pour un mail envoyer ainsi!
Code de base:
- Peut t on me dire ce qui faut que je face avec le code ci-dessous pour envoyer un mail avec des caractères spéciaux?
- peut t on me donné la démarche nécessaire pour réaliser un mail au format HTMl en utilisant le code ci dessous ?
je vous remercie pour les indications que vous me donnerais sur ce sujet.
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68 //--------------------------------------------------------------------------- void __fastcall TForm1::ButtonEnvoyer1Click(TObject *Sender) { AnsiString TextMail; TextMail = "Bonjour,\r"; TextMail += "Voici un email délivré automatiquement par un projet automatique"; Memo1->Lines->Add("-------------------------------------------------------------------------------------------------------------------------"); Memo1->Lines->Add(TextMail); if(IdSMTP1->Connected()) { IdSMTP1->Disconnect(); } if(!IdSMTP1->Connected()) { IdSMTP1->Host = "smtp.wanadoo.fr"; IdSMTP1->Port = 25; IdSMTP1->UserId = "blabla"; IdSMTP1->Password = "motdepasse"; if((IdSMTP1->UserId.Trim().Length() == 0) && (IdSMTP1->Password.Trim().Length() == 0)) { IdSMTP1->AuthenticationType = atNone; } else { IdSMTP1->AuthenticationType = atLogin; } IdSMTP1->Connect(); } if(Form1->IdSMTP1->Authenticate()) { IdMessage1->From->Address = "logiciel@wanadoo.fr"; IdMessage1->From->Name = "Logiciel"; IdMessage1->ReplyTo->EMailAddresses = "logiciel@wanadoo.fr"; IdMessage1->Recipients->Add(); IdMessage1->Recipients->EMailAddresses = "blabla@wanadoo.fr"; IdMessage1->Recipients = IdMessage1->Recipients; IdMessage1->Subject = "Essai d'un envoie automatique"; IdMessage1->Body->Add(TextMail); IdSMTP1->Send(IdMessage1); IdMessage1->Clear(); } else { ShowMessage("Erreur d'authentification"); } IdSMTP1->Disconnect(); //IdSMTP1->Free(); //IdMessage1->Free(); } //---------------------------------------------------------------------------
Cordialement.
Partager