Discussion :

[rgarnier]

Bonjour,

j'essaie (en vain) d'envoyer un mail à partir de mon appli xmlrad. A chaque fois, j'ai ce message d'erreur en activant les traces :

11:40:43 547.014 0 - 0 TXMLSMTP 4 Send2 Sender[rgarnier@vega-systems.com] Receiver[rgarnier@vega-systems.com]
11:40:43 547.074 0 - 0 TXMLSMTP 4 Try to connect to RemoteHost[smtp.vega-systems.com]
11:41:04 421.008 0 - 0 TXMLSMTP 2 Send2 Exception RemoteHost[smtp.vega-systems.com] ErrorContext[CONNECT_FAILED] ErrorCode[400] ErrorLevel[4] MaxRetries[2] Sender[rgarnier@vega-systems.com] Receiver[rgarnier@vega-systems.com] - WSAETIMEDOUT

Le pb est donc (à priori) que je n'arrive pas à me connecter à mon srv smtp.

Là ou c'est bizarre, c'est que si je crée un petit projet delphi avec un TSMTP + TIdMassage, je lui passe mon SMTP.Host et là, ça marche du premier coup ... donc, mon srv smtp est bien accessible.

Pour info, j'ai essayé en direct mail et ça marche pas non plus.

Je sèche complètement, donc si quelqu'un peut m'aider ...

Merci d'avance.

[RDM]

version de XMLRAD ?

quand tu fais un telnet depuis la machine où il y a l'application XMLRAD
sur smtp.vega-systems.com sur le port 25 ca se connecte ?

[rgarnier]

version de XMLRAD ?

XMLRAD2006 R2

quand tu fais un telnet depuis la machine où il y a l'application XMLRAD
sur smtp.vega-systems.com sur le port 25 ca se connecte

pas de pb, ça marche

[RDM]

il n'y a pas de raison qu'il n'y arrive pas si le telnet fonctionne.
essaye l'IP sinon
est-ce que tu peux me donner la configuration de tes InitParams section SMTP ?

[rgarnier]

Le voici (avec l'adresse ip correpsondant au serveur smtp)

<SMTP>
<SMTP_DirectMail/>
<SMTP_HeloName/>
<SMTP_DNS/>
<SMTP_Host>80.118.172.16</SMTP_Host>
<SMTP_Password/>
<SMTP_Port>25</SMTP_Port>
<SMTP_ReceiveTimeOut>1000</SMTP_ReceiveTimeOut>
<SMTP_UserName/>
<XMLC_OptionMail>1</XMLC_OptionMail>
</SMTP>

[RDM]

ah j'ai une piste: augmente le ReceiveTimeOut qui n'est que d'une seconde...
Ton serveur met pas mal de temps à répondre un 220 ... (genre près de 50 secondes...)

[rgarnier]

J'avais essayé ça. Sans succès.

J'ai essayé avec un serveur local et au lieu d'avoir WSATIMEDOUT, j'ai WSAECONNREFUSED.

J'ai donc essayé d'intégrer le code suivant dans un evt beforexmlservice, afin de controler ma capacité à envoyer un mail via inetinfo. Et ça marche sans pb ...

var
zSmtp : TIdSMTP;
zMess : TIdMessage;
zDest : TIdEMailAddressItem;
begin
zSmtp := TIdSMTP.Create(nil);
zMess := TIdMessage.Create(zSmtp);
zSMTP.Host := '192.168.26.206';
zSMTP.Connect;
zMess.From.Address := 'rgarnier@vega-systems.com';
zMess.From.Name := 'Renaud Test';
zMess.Recipients.Add;
zDest := zMess.Recipients.Add;
zDest.Address := 'rgarnier@vega-systems.com';
zMess.Subject := 'sujet cioucou';
zMess.Body.Text := 'coucou body';
zsmtp.Send(zmess);

[RDM]

ok alors fait la même chose avec un TXMLSMTP:

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
var
  XMLSMTP: TXMLSMTP;
begin
  XMLSMTP := TXMLSMTP.Create;
  try
    SMTP.DirectMail := False;
    SMTP.ReceiveTimeOut := 60000;
    SMTP.RemoteHost := '192.168.26.206';
    SMTP.FromAddress := 'rgarnier@vega-systems.com';
    SMTP.AddTo('rgarnier@vega-systems.com', '');
    SMTP.Subject := 'sujet coucou';
    SMTP.Body := 'coucou body';
    SMTP.Send2(False);
  finally
    XMLSMTP.Free;
  end;
end;

au passage l'ip que t'as mis dans les InitParams n'est pas celle que t'as mis dans le code...

[rgarnier]

Pour l'ip, c'est un serveur smtp local (que j'ai mis dans les initparams)

J'ai essayé ton exemple et l'erreur est toujours WSACONNREFUSED ...

[RDM]

c'est pas possible. si tu me dis qu'un
telnet 192.168.26.206 25
fonctionne y a pas de raison que XMLSMTP n'yarrive pas non plus car il fait la même chose.
ou alors c'est les droits de l'utilisateur IWAM ou IUSR qui n'aurait pas le droit d'ouvrir une socket.
ou bien ton serveur smtp refuse la connexion d'une socket venant de ton ip...

[rgarnier]

Ok, je vais continuer mes recherches ....

Merci.