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

22/05/2003

1

[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]


Responder

Posts

22/05/2003

Sam

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;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira