Como enviar um arquivo por e-mail?

Question

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

Cebikyn · Answer

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;

F�rum Como enviar um arquivo por e-mail? #180671