Fórum Anexar arquivo no email no outlook #204233

05/01/2004

0

Ola pessoal!!!

Como faço para anexar um arquivo no outlook pelo delphi!!!

Abraços!!!
Rafael Carneiro


Rafaelfcarneiro

Rafaelfcarneiro

Responder

Posts

05/01/2004

Edilsoneto

Use o componente TNMSMTP no form que é nativo do delphi.

Attachments.Add(´c:\diretorio\arquivo.ext´);


Responder

Gostei + 0

05/01/2004

Rafaelfcarneiro

Mas com esse componente num consigo enviar email com conexao adsl


Responder

Gostei + 0

05/01/2004

Nigro

const olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook:=GetActiveOleObject(´Outlook.Application´);
except
Outlook:=CreateOleObject(´Outlook.Application´);
end;
MailItem := Outlook.CreateItem(olMailItem);
with MailItem do begin
Recipients.Add(´email@email.com´);
Subject := ´Assunto´;
Body := ´corpo da mensagem´;
Attachments.Add(´C:\Windows\Win.ini´);
Send;
end;
Outlook := Unassigned;
end;


Responder

Gostei + 0

05/01/2004

Rafaelfcarneiro

Não funcionou como eu esperava, pois preciso que ele abra o outlook com os dados preenchidos :para quem, assunto, mensagem e anexos

Desculpe o abuso
Rafael Carneiro


Responder

Gostei + 0

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

Aceitar