Eu já utilizei desta maneira e funcionava legal...
Procedure TForm1.EnviarEMail(const MailTo: String);
Var
MailObj: TNMSmtp;
begin
MailObj := TNMSMTP.Create( self );
Try
// Seu Servidor SMTP
MailObj.Host := '10.0.1.1';
With MailObj.PostMessage Do Begin
FromAddress := '[EMAIL PROTECTED]';
FromName := 'Info';
Subject := 'Delphi Teste';
ToAddress.Add( MailTo );
Attachments.Add( 'C:\Deptsetr.lst' ); // Arquivo Atachado
Attachments.Add( 'C:\Deptsetr2.lst' ); // Segundo Arquivo Atachado
Body.Add( 'Texto do E-Mail gerado pelo Delphi...' );
Body.Add( 'Segunda Linha do e-mail. Fim.' );
End;
MailObj.Connect;
MailObj.SendMail;
MailObj.Disconnect;
Finally
MailObj.Free;
End;
end;
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de dionatanhenrique
Enviada em: quarta-feira, 1 de novembro de 2006 09:10
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Email
Pessoal muita gente ja trabalhou com o componente NMSMTP (envia e
recebe email), dentre tanto estou enfretando algumas dificuldades
quando os usuários anexam arquivos estou usando o seguinte comando:
PostMessage.Attachments.Clear;
PostMessage.Attachments.Add(Caminho do arquivo);
Bom com este comando ele anexa sem problemas e envia o arquivo também.
Porém quando os usuários recem o arquivo eles nao conseguem abri-lo por
problemas de codificação. Alguém pode me ajudar neste problema?
Att
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
