Sujet Précédent Sujet Suivant

NMPOP3

stigmate101 Messages postés 89 Date d'inscription mardi 17 juin 2003 Statut Membre Dernière intervention 30 avril 2020 - 21 juil. 2003 à 16:05
stigmate101 Messages postés 89 Date d'inscription mardi 17 juin 2003 Statut Membre Dernière intervention 30 avril 2020 - 24 juil. 2003 à 14:05
Salut à tous je suis un débutant sous Delphi (Version 5)et j'ai un gros problème pour utiliser ce composant NMPOP3.
Je dois lire sur un server de messagerie uns par uns les differents mails qui ont été envoyés, en extraire l'adresse de l'émetteur, l'objet, et les supprimer.

C'est très urgent et j'ai vraiment des problèmes.

Merci d'avance
a+

1 réponse

Réponse 1 / 1
stigmate101 Messages postés 89 Date d'inscription mardi 17 juin 2003 Statut Membre Dernière intervention 30 avril 2020
24 juil. 2003 à 14:05
Salut,

j'ai récupérer dans l'aide de Delphi 5 un petit code qui a pour but de récupérer des informations contenu dans un mail.

Dans ce code il y a apparemment une procédure qui n'est jamais appelée. "procédure TForm1.NMPOP31RetrieveEnd(Sender: TObject); "

Quelqu'un pourrait-il me dire ce qu'il ne va pas sur mon code.

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMpop3, StdCtrls, Spin, ExtCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
NMPOP31: TNMPOP3;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure NMPOP31RetrieveEnd(Sender:TObject);
procedure Button2Click(Sender: TObject);

private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
var
S: String;
M: Integer;
begin
label1.caption:=IntToStr(NMPOP31.MailCount);
if NMPOP31.MailCount > 0 then
begin
if InputQuery('Obtenir un message électronique', 'Quel message ? (1-'+IntToStr(NMPOP31.MailCount)+')', S) then
begin
M := StrToIntDef(S, -1);
If (M < 0) or (M > NMPOP31.MailCount) then
ShowMessage('Indice de message incorrect')
else
NMPOP31.GetMailMessage(M);
end;
end
else
ShowMessage('Pas de messages à lire');
end;

Procedure TForm1.Button1Click(Sender: TObject);
begin
if NMPOP31.Connected then
NMPOP31.Disconnect
else
begin
NMPOP31.Host:='192.168.*.**'; //Par exemple pour Free: pop.free.fr
NMPOP31.UserID:='****'; //Nom d'utilisateur
NMPOP31.Password:='****'; //Mot de passe;
NMPOP31.DeleteOnRead:=True; // Supprime les messages après avoir été lu
NMPOP31.Connect;
end;
end;

procedure TForm1.NMPOP31RetrieveEnd(Sender: TObject);
begin
Memo1.Text := NMPOP31.MailMessage.Body.Text;
Edit1.Text := NMPOP31.MailMessage.Subject;
Edit2.Text := NMPOP31.MailMessage.From;
end;

end.
0
Rejoignez-nous