Anexe a Imagem, Attachments.Add('c:\tagai.gif');
e coloque sem o "C:\" src="tagai.gif"
Elcio Domingos Ramos
[EMAIL PROTECTED]
Deptº Tempos e Metodos
DEMAG Cranes & Components Ltda.
Equipamentos de movimentação de carga.
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cleudes
Enviada em: segunda-feira, 30 de maio de 2005 17:43
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Enviando e-mail
Pessoal, consegui enviar o e-mail, mais não estou conseguindo anviar
com uma imagem .GIF estou usando esse comando,...
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.Body.Add('<META content="MSHTML 6.00.2800.1458"
name=GENERATOR>');
NMSMTP1.PostMessage.Body.Add('<STYLE></STYLE>');
NMSMTP1.PostMessage.Body.Add('</HEAD>');
NMSMTP1.PostMessage.Body.Add('<BODY bgColor=#ffffff>');
NMSMTP1.PostMessage.Body.Add('<DIV><FONT face=Arial size=2>Verificar
o código fonte.</FONT></DIV>');
NMSMTP1.PostMessage.Body.Add('<DIV><FONT face=Arial
size=2></FONT> </DIV>');
NMSMTP1.PostMessage.Body.Add('<DIV><IMG alt="" hspace=0
src="C:\tagai.gif" align=baseline border=0></DIV>');
// Corpo do email
NMSMTP1.SendMail; // Envia o email
alguem poderia me ajudar por favor
--- Em delphi-br@yahoogrupos.com.br, "Cleudes" <[EMAIL PROTECTED]> escreveu
> olá a Todos.
> Estou necessitando uma ajuda, tenho um programa em delphi
que
> envia e-mail ou deveria enviar,...o que acontece não está
enviando,
> segui passo-a-passo e nada, o fonte é esse:
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> { Host do servidor de e-mail }
> NMSMTP1.Host := 'mail.servidor.com.br';
> NMSMTP1.Port := 25;
> { Nome de login do usuário }
> NMSMTP1.UserID := 'nome-do-usuario';
> NMSMTP1.Connect;
> if not NMSMTP1.Connected then
> raise Exception.Create('Erro de conexão');
> with NMSMTP1.PostMessage do begin
> { E-mail do remetente }
> FromAddress := '[EMAIL PROTECTED]';
> { Nome do remetente }
> FromName := 'Nome';
> { E-mail do destinatário }
> ToAddress.Clear;
> ToAddress.Add('[EMAIL PROTECTED]');
> Subject := 'Assunto da mensagem';
> { Corpo da mensagem }
> Body.Clear;
> Body.Add('Primeira linha da mensagem');
> Body.Add('Segunda linha da mensagem');
> Body.Add(''); { Linha em branco }
> Body.Add('Última linha da mensagem');
> { Anexar arquivos }
> Attachments.Clear;
> Attachments.Add('c:\diretorio\arquivo.ext');
> end;
> NMSMTP1.SendMail;
> NMSMTP1.Disconnect;
> end;
>
> quando chega no comando SendMail parece que não envia, ou melhor e
> nao recebo. alguem pode me ajudar ou se alguem já fez um programa
> que envie e-mail.
--
<<<<< 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] ou [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] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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] ou [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
