jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 2014
-
22 mars 2011 à 15:55
Caribensila
Messages postés2527Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention16 octobre 2019
-
24 mars 2011 à 14:33
bonjour à tous,
une fois n'est pas coutume j'ai un petit soucis que je n'arrive pas à résoudre (encore que je ne sois pas sur que cela vienne du programme: je soupçonne plutôt Windaube qui me joue un tour pendable!!!)
enfin voilà la question:
j'ai un petit programme qui m'envoie des mails qui fonctionne très sous "XP family" mais refuse de tourner sous XP PRO ça coince dans le connect:
procedure TForm1.Button1Click(Sender: TObject);
Var
IdMessage : TIdMessage;
SMTP : TIdSMTP;
begin
SMTP:=TIdSMTP.create(nil); //Creation dynamique de SMTP
IdMessage:=TIdMessage.create(nil); //Creation dynamique de SMTP
IdMessage.From.Text:=Mail_From.Text; //On définit l'expediteur
IdMessage.Recipients.EMailAddresses:=Mail_To.Text; //On définit le destinataire
IdMessage.Date:=Date; //Date de l'envoi du message. Ca peut toujour servir
IdMessage.Date:=Time; //Heure de l'envoi du message. On est pas à une ligne près
IdMessage.Subject:='Demande de mot de passe'; //Sujet du message
// IdMessage.Body.add(mess); //Corps du message
IdMessage.Body.Text:=Memo2.Lines.Text; //Corps du message
IdMessage.Priority:=mpNormal; //Priorité du message : on utilise normal, toute façon ca marche jamais ce paramètre
SMTP.Host:=SMTP_Ed.Text; // On définit le SMTP du Fai
SMTP.Port:=25; //On utilise le port classique du protocole SMTP
SMTP.AuthType:=atNone; //Si on choisit cette option on supprime la ligne précédente
Try
SMTP.connect; //ça coince ici
Except
ShowMessage('ERREUR CONNECT');
FreeAndNil(IdMessage); //On libère le IdMessage
FreeAndNil(SMTP); //On libère le SMTP
exit;
end;
Try
SMTP.Send(IdMessage); // On transmet le message
Except
ShowMessage('ERREUR SEND');
FreeAndNil(IdMessage); //On libère le IdMessage
FreeAndNil(SMTP); //On libère le SMTP
exit;
end;
SMTP.Disconnect; //On déconnecte
FreeAndNil(IdMessage); //On libère le IdMessage
FreeAndNil(SMTP); //On libère le SMTP
ShowMessage('OK');
end;
a priori je soupçonne un paramètre de windows mais lequel???
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 22 mars 2011 à 17:13
salut MAURICIO,
jusqu'à présent cela ce passe plutôt bien vu qu'il n'y a pas de pièce jointe.
dans quelle unité se trouve "DMM"?
normalement avec SMTP.AuthType:=atNone; on ne devrait pas avoir besoin de l'UserName et du passWord
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 22 mars 2011 à 17:17
Salut jlen100,
DMM.TbContas, c' est ma table avec les données "USERNAME" ET "PASSWORD"
"on ne devrait pas avoir besoin de l'UserName et du passWord"
Je trouve ça plutôt louche. Jette un oeil aussi sur le Firewall! Au pire, désactive le pour faire un test.
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 23 mars 2011 à 17:44
-->CARI
le tuto concerne un client POP3 (pour ton info on récupère les mail avec pop3 et on les envoie avec un client SMTP)ensuite suivant les box ADLS on peut avoir des fonctionnements étranges
--> MAURICIO
même en désactivant totalement le firewall le problème subsiste
cs_MAURICIO
Messages postés2106Date d'inscriptionmardi 10 décembre 2002StatutModérateurDernière intervention15 décembre 20145 23 mars 2011 à 18:54
Ok,
pour envoyer des mails il te faut Indy Tiburon et au moins Delphi 2009 parce que:
1. Seul Indy Tiburon est mis à jour.
2. Indy Tiburon et Delphi 2009 sont Unicode.
Je pense sincerement que ça résoudra ton problème.
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 23 mars 2011 à 20:59
la solution est un radicale!!!
merci quand même.
vu l'utilisation que je fais de DELPHI je n'ai pas trop l'intention de réinvestir dans une autre version avec en plus tous les risques que cela comporte quand on change de version
comme le programme fonctionne parfaitement sous XP family autant que je passe le seul PC sous XP PRO en version FAMILY!!
Je vais me replonger dans cette M... de Windows
je finirai bien par trouver le paramètre qui fait Ch.. le monde au pire des cas il passe à la trappe.
@+
JLEN
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 24 mars 2011 à 07:27
Salut,
ça fait plaisir de revoir parmi nous
moi j'ai utilisé Delphi2006 (Turbo Delphi Explorer) et Indy 10.0.20 sous XP Pro SP3 et tout passe très bien sans mot de passe et même avec une adresse expéditeur bidon !!!!
commence par couper ton pare-feu avant de modifier quelque chose.
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 24 mars 2011 à 08:07
salut CIREC,
peux tu regader quelques chose dans ta config de XP PRO SP3.
dans le composant windows as-tu ISS activé?
--> panneau de configuration
--> ajouter/supprimmer des programme
--> composants de windows
le mien ne l'est pas et je ne peux pas l'activer (fichier manqunt sur le CD)
je pense que le problème viens de là.
XP home n'utilise pas ISS et passe par le FAI tandis que XP PRO l'utilise.