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???
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
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)