comment envoyer un email en delphi 7?

Question

j'ai téléchargé un programme delphi qui normalement doit envoyer un email  sur un compte 
[mailto:'@yahoo.fr' 
'@yahoo.fr'
]
 en utilisant le composant TidSMTP et TidMessage mais ça marche pas. et j'ai toujours le message d'erreur 'EidProtocolReplyError' authorization failed  (# 5.7.0)



 Nidhal

cs_couf · Answer

Salut

as tu accès au port 25 de ta boite?

couf

JulioDelphi · Answer

shark1664 · Answer

unit Unit1;


interface


uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, JvComponent, JvMail, StdCtrls, RpRave, RpDefine, RpRender,

  RpRenderPDF, RpBase, RpFiler, RpRenderPrinter, RpRenderCanvas,

  RpRenderPreview, uMelSend;


type

  TForm1 = class(TForm)

    Button1: TButton;

    RvRenderPDF1: TRvRenderPDF;

    RvProject1: TRvProject;

    RvNDRWriter1: TRvNDRWriter;

    RvRenderPreview1: TRvRenderPreview;

    RvRenderPrinter1: TRvRenderPrinter;

    MelSend1: TMelSend;

    procedure Button1Click(Sender: TObject);

  private

    { Déclarations privées }

  public

    { Déclarations publiques }

  end;


var

  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);

begin

MelSend1.Dest:='bla@bla.com';

MelSend1.From:='bla';

MelSend1.ServeurSMTP:='';

MelSend1.Objet:='coucou ';

MelSend1.Corps:='corps';

MelSend1.Execute;

end;


end.

--------------------------------------

oublie pas de valider car moi j'ai fait sa et sa marche

adio

sh@rk

Comment envoyer un email en delphi 7?

3 réponses

Votre réponse

Discussions similaires