Discussion :

[Manusm]

Bonjour,

voila j'aimerai m'envoyer un email au cas ou le téléchargement d'un fichier n'a pas fonctionné. J'ai regardé dans la documentation de synapse mais comme c'est un mail qui doit être envoyé à l’intérieur de l'entreprise par le biais d'un serveur Exchange je pense que je ne dois pas mettre les bons paramètres. Je n'arrive même pas a me loguer...
J'utilise pourtant le login et le mot de passe de ma session Windows mais ça ne fonctionne pas...
Si quelqu'un a déjà utilisé cet objet, je suis preneur d'un peu d'aide...

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
 
var SMTP : TSMTPSend;
    chaine : TStringList;
begin
 
     result := false;
     smtp := TSMTPSend.Create;
     chaine := TStringList.Create;
 
     try
        chaine.Text:='telechargement échoué';
        smtp.TargetHost:='192.168.1.1';
        smtp.UserName:= monloginwindows;
        smtp.Password:= monmotdepasswindows;
 
 
        //smtp.UserName:='';
        //smtp.Password:='';
        //smtp.TargetHost:='192.168.1.1';
        //smtp.TargetPort:='587';
 
 
        showmessage('Login : ' + boolToStr(smtp.Login));
        //showmessage('MailFrom : ' + boolToStr(smtp.MailFrom(mailfrom,length(chaine.Text))));
        //showmessage('MailTo : ' + boolToStr(smtp.MailTo(mailto)));
        //showmessage('MailData : ' + boolToStr(smtp.MailData(chaine)));
        showmessage('LogOut : ' + boolToStr(smtp.Logout));
 
 
     finally
            smtp.Free;
            chaine.free;
     end;
 
end;

J'ai même essayé en ne mettant rien au login et au mot de passe mais ça ne change rien...

Merci

[Roland Chastain]

Bonjour ! Je ne connais pas la réponse à votre question mais je viens de tomber sur une bibliothèque qui a l'air d'être bien faite (et qui est basée sur Synapse si j'ai bien compris) :

X-Mailer

Le programme de démonstration est d'une simplicité parfaite :

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
program demo;
 
{$mode objfpc}{$H+}
 
uses
  XMailer, SysUtils;
 
begin
  try
    SendMail('from="Your Name <test@host.com>" to=dest1@host.com;dest2@host.com ' +
      'subject="Your subject." message="Your message." user=user@host.com ' +
      'password=abc123 host=smtp.host.com:465 ssl=true tls=true');
    Write('E-mail sent successfully!');
  except
    on E: Exception do
      Write(E.Message);
  end;
end.

Malheureusement je ne suis pas sûr de savoir compléter tous les champs, ce qui nous ramène à votre question. Donc moi aussi j'aimerais que quelqu'un qui s'y connaît nous éclaire un peu.

[Manusm]

J'ai essayé avec la fonction "SENDTO" présente dans l'unité SMTPSEND mais rien n'y fait, je ne parviens pas à envoyer un mail...

Code :

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

1
2
 
sendto(Strexpediteur,Strdestinataire,'essai','192.168.1.1',Strmessage);

[Manusm]

Ouais j'ai vu ce bout de code, je me suis aidé de ça mais je n'arrive pas à me loguer

[Mukatai]

Bonjour,

Est-ce que votre serveur SMTP est bien démarré sur l'ip 192.168.1.1 ?

Est-ce que votre serveur SMTP est bien sur le port 25 ? Si ce n'est pas le cas il faut lui indiquer le port avec la variable TargetPort.

De quel type est votre authentification ? Non encryptée ou encryptée SSL ou TLS, car dans votre exemple vous n'utilisez pas d'encryption.

Avez-vous un client mail qui fonctionne avec le même serveur ? Si oui regardez sa configuration pour voir se qui ne va pas.

De mémoire je crois que la variable ResultString indique le message d'erreur de la dernière commande SMTP et ResultCode son code d'erreur.

@+

[Manusm]

Je viens de reussir avec la fonction sendto, l'adresse du serveur SMTP n'etait pas 192.168.1.1 mais 192.168.1.3...

Désolé de vous avoir fait perdre du temps...

Merci

[Ph. B.]

Bonjour,

...c'est un mail qui doit être envoyé à l’intérieur de l'entreprise par le biais d'un serveur Exchange je pense que je ne dois pas mettre les bons paramètres. Je n'arrive même pas a me loguer...

En préambule, est ce que le connecteur SMTP de ce serveur Exchange est activé et paramétré ?

Ensuite, je ne vois pas dans ce code de demande de connexion au serveur.

Enfin, Google Est Mon Ami et donc on trouve : http://wiki.freepascal.org/Synapse#Sending_email