Receber email via programa em delphi

17/12/2003

1

Em uma aplicação preciso receber emails e anexos de um determindado email. Utilizei então o componente NMPOP3 da Fastnet. Configurei o UserID, o Host e o Password. Conectei, verifiquei as mensagens mas não consegui salvar os anexos. Eis o código:

NMPOP31.Connect;
NMPOP31.List;
Label1.Caption:=´Total de Mails: ´+inttostr(NMPOP31.MailCount);
for i:=1 to NMPOP31.MailCount do
begin
NMPOP31.GetSummary(i);
L.Items.Add(´from:´+NMPOP31.Summary.From+´Sbj:´+NMPOP31.Summary.Subject);
NMPOP31.GetMailMessage(i);
memo1.Text:= NMPOP31.MailMessage.Body.Text;
end;

Como fazer para baixar os anexos? acredito que seja algo ligado a:
NMPOP31.MailMessage.Attachments.
Mas não sei como. Alguém pode me dar uma dica???


Responder

Posts

17/12/2003

Jedson

Ai galera, já descobri, Na hora dá o getmail os arquivos anexos são salvos automáticamente no endereço constante no AttachFilePath


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira