Envio de E-mail via Delphi - URGENTE!!!

Question

[size=18:a3d278c2b2] [color=blue:a3d278c2b2]Pessoal, estou precisando enviar e-mails a partir do meu programa, usei o ShellApi, ele abre o programa padr�o  com a msg a ser enviada, [b:a3d278c2b2] mas ...

Sam · Answer

Caro amigo, caso esteja usando o Delphi 5 abra o exemplo do FastNet, caso esteja usando o Delphi 7 abra o exemplo do Indy.

Outra op��o � utilizar o Msg padr�o enviando os dados p/ ele. Ex:

begin
MapiControl1.Reset;
MapiControl1.Body := �SEGUE EM ANEXO OS ARQUIVOS CONTENDO O RELAT�RIO, SALVE OS ARQUIVOS EM UM DIRET�RIO ANTES DE EXECUTAR !!!�;
MapiControl1.Subject := �RELAT�RIO�;
MapiControl1.FromName := �Empresa�;
MapiControl1.FromAdress := �teste@teste.com.br�;
if OpenDialog1.Execute then
begin
MapiControl1.AttachedFiles.AddStrings(opendialog1.Files);
end;
MapiControl1.sendmail;
end;

Vc precisa do MapiControl, pegue esta UNIT na net e salve no diret�rio dos fontes do seu programa e declare no seu Form:

USES
MAPICONTROL;