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

Delphi

22/05/2003

[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 como anexo um arquivo?? como envio um html pro outlook, sá saindo formatado???????
:? [/size:a3d278c2b2][/color:a3d278c2b2]

[/b:a3d278c2b2]


Hcsc

Hcsc

Curtidas 0

Respostas

Sam

Sam

22/05/2003

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;


GOSTEI 0
POSTAR