Como enviar um arquivo por e-mail?

Delphi

08/09/2003

Bom dia a todos;

Amigos do fórum;

Algum de vcs sabe como seria uma procedure num botão selecionasse um arquivo no meu computador e colocasse como anexo numa nova mensagem de e-mail para um destinatário escolhido?

Agradeço desde já a colaboração de todos...


Ewerton

Ewerton

Curtidas 0

Respostas

Cebikyn

Cebikyn

08/09/2003

O exemplo abaixo usa um [b:d3b1c5a6e0]NMSMTP[/b:d3b1c5a6e0] e um [b:d3b1c5a6e0]OpenDialog[/b:d3b1c5a6e0].

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    with NMSMTP1 do
      Host   := ´mail.host.com´;
      UserID := ´login´;
      Connect;
      PostMessage.FromAddress       := ´ewerton@ewerton.com.br´;
      PostMessage.ToAddress.Text    := ´destino@host.com´;
      PostMessage.Body.Text         := ´Mensagem´;
      PostMessage.Attachments.Text  := OpenDialog1.FileName;
      PostMessage.Subject           := ´Assunto´;
      SendMail;
      ShowMessage(´Enviado !´);
      Disconnect;
    end;
  end;
end;



GOSTEI 0
POSTAR