Receber email via programa em delphi

17/12/2003

0

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???


Jedson

Jedson

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar