Fórum enviar um arquivo anexo a um email atraves do delphi #147060

Junto com o delphi vem um Demo de como enviar e-mails, lá ensina como anexar arquivos...

{Seu servidor SMTP }
NMSMTP1.Host := ´smtp.uol.com.br´;

{ Porta SMTP, **NÃO MUDE ISTO** }
NMSMTP1.Port := 25;

{ Nome de login do usuário }
NMSMTP1.UserID := ´usuario´;

{ Conecta ao servidor }
NMSMTP1.Connect;

{ Se ocorrer algum erro durante a conexão com o servidor, avise! }
if not NMSMTP1.Connected then
raise Exception.Create(´Erro de conexão´);

with NMSMTP1.PostMessage do begin
{ Seu e-mail }
FromAddress := ´email@uol.com.br´;

{ Seu nome }
FromName := ´Nome´;

{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(´emaildestinatario@xxx.com.br´);

{ Assunto da mensagem }
Subject := ´Transmissão Eletrônica´;

{ Corpo da mensagem }
Body.Clear;
Body.Add(´...´);
Body.Add(´....´);

{ Anexar arquivos}
Attachments.Clear;

{ Endereço do anexo }
Attachments.Add(caminho do arquivo c:\....);

end;


{ Manda o e-mail }
NMSMTP1.SendMail;

{ Disconecta do servidor }
NMSMTP1.Disconnect;


Espero ter ajudado,
Adri

Onde?? Dentro da pasta do Delphi?? na ajuda?

ADRI JÁ TENTEI ISSO, MAS ELE DÁ UM ERRO PQ ELE NÃO CONSEGUE ACHAR MEU SERVIDOR...

MAS SERÁ QUE SE EU USAR SÓ O COMANDO DE ANEXAR O ARQUIVO DÁ CERTO???




OBRIGADA

RAFAELA

Nao sei, tente!