Discussion :

[FredericB]

Bonjour,

J'utilise un code trouvé sur ce forum pour envoyer un courriel avec TIdSMTP.
J'ai juste changé mon host, Username et Password.
Je lance mon appli, et j'obtiens une erreur 10053 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Exception class EIdSocketError with message 'Socket Error # 10053
Software caused connection abort.'

J'ai essayé avec un autre serveur SMTP, et j'obtiens la même chose.

Voici le code que j'utilise:

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
 
TIdEMailAddressList *obj_TIDRecipientList;
	TIdMessage *obj_TIDMessage;
	TIdAttachment *obj_TIDAttachment;
 
	if(TIdSMTP1->Connected())   	TIdSMTP1->Disconnect();
 
	if(!TIdSMTP1->Connected())
	{
		TIdSMTP1->Host               = "ici Mon SMTP";
		TIdSMTP1->Port               = 25;
		TIdSMTP1->Username           = "ici MonUserName";
		TIdSMTP1->Password           = "ici MonPassWord";
 
 
		if((TIdSMTP1->Username.Trim().Length() == 0) && (TIdSMTP1->Password.Trim().Length() == 0))
		{
			TIdSMTP1->AuthenticationType = atNone;
		}
		else
		{
			TIdSMTP1->AuthenticationType = atLogin;
		}
 
 
		TIdSMTP1->Connect();
	}
 
	if(TIdSMTP1->Authenticate())
	{
		obj_TIDMessage                             = new TIdMessage(this);
		obj_TIDMessage->From->Address              = "ici MonEmail";
		obj_TIDMessage->From->Name                 = "ici MonEmail";
		obj_TIDMessage->ReplyTo->EMailAddresses    = "ici MonEmail";
 
		obj_TIDRecipientList                       = new TIdEMailAddressList(obj_TIDMessage->Recipients);
		obj_TIDRecipientList->Add();
		obj_TIDRecipientList->EMailAddresses       = "EmailDestinataire";
 
		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:\\test.txt");
		obj_TIDAttachment->ContentType             = "application/txt";
 
		TIdSMTP1->Send(obj_TIDMessage);
		obj_TIDMessage->Clear();
	}
	else
	{
		ShowMessage("Erreur d'authentification");
	}
 
	TIdSMTP1->Disconnect();
	TIdSMTP1->Free();
	obj_TIDMessage->Free();

Auriez-vous une idée d'ou provient cette erreur ?

Merci d'avance
Fred

[FredericB]

Je viens de trouver le problème.
C'était mon antivirus qui bloquait le port 25 de certaines applications.
Ouh la, j'ai honte !!