[TIdSMTP] Envoi d'un mail avec authentification ?

[Résolu][TIdSMTP] Envoi d'un mail avec authentification ?

Bonjour a tous,

Je voudrais utiliser l'objet TIdSMTP pour envoyer en mail avec authentification d'utilisateur, car j'ai pas très envie de me taper tout le boulot avec un socket, quelqu'un aurait il utilisé auparavent cet objet?

Merci d'avance. :wink:

Bon comme je vois que personne c'est lancé, j'ai finis par le faire.
Si ça peut interréser quelqu'un :

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
42
43
44
45
46
47
48
49
50
51
TIdEMailAddressList *obj_TIDRecipientList;
TIdMessage *obj_TIDMessage;
TIdAttachment *obj_TIDAttachment;
 
if(TIdSMTP1->Connected())
	TIdSMTP1->Disconnect();
 
if(!TIdSMTP1->Connected()){
	TIdSMTP1->Host               = "217.0.116.152";
	TIdSMTP1->Port               = 25;
	TIdSMTP1->UserId             = "usuario.acens.com";
	TIdSMTP1->Password           = "password";
 
	if((TIdSMTP1->UserId.Trim().Length() == 0) && (TIdSMTP1->Password.Trim().Length() == 0)){
		TIdSMTP1->AuthenticationType = atNone;
	}else{
		TIdSMTP1->AuthenticationType = atLogin;
	}
 
        TIdSMTP1->Connect();
}
 
if(Form1->TIdSMTP1->Authenticate()){
	obj_TIDMessage                             = new TIdMessage(this);
	obj_TIDMessage->From->Address              = "personne@personne.com";
	obj_TIDMessage->From->Name                 = "personne";
	obj_TIDMessage->ReplyTo->EMailAddresses    = "personne@personne.com";
 
	obj_TIDRecipientList                       = new TIdEMailAddressList(obj_TIDMessage->Recipients);
	obj_TIDRecipientList->Add();
	obj_TIDRecipientList->EMailAddresses       = "personne@personne.com";
 
	obj_TIDMessage->Recipients                 = obj_TIDRecipientList;
	obj_TIDMessage->Subject                    = "subject";
 
	for(int i=0; i<10; i++){
		obj_TIDMessage->Body->Add("Ligne " + String(i));
	}
 
	obj_TIDAttachment                          = new TIdAttachment(obj_TIDMessage->MessageParts, "c:\\monfichier.pdf");
	obj_TIDAttachment->ContentType             = "application/pdf";
 
	TIdSMTP1->Send(obj_TIDMessage);
	obj_TIDMessage->Clear();
}else{
	ShowMessage("Erreur d'authentification");
}
 
TIdSMTP1->Disconnect();
TIdSMTP1->Free();
obj_TIDMessage->Free();

Il a fallu le chercher, ce topic, mais c'est nickel !
Enfin un qui fonctionne au poil, sans etre compliqué !
Merci bien Bacus !

De rien, StreM

Si tu as besoin de plus... Tu sais.

A vrai dire, oui j'aurais bien besoin de plus... :lol:
Comment je pourrais me servir de tout ca dans une application console ?
Quelles lignes je dois rajouter dans quels fichiers pour pouvoir me servir des fonctions de ce composants ?
Passque je ne voudrais pas que mon prog devienne trop gros, alors je prefere en console...
Mais je debute ! :oops:

Merci !