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