Envio de e-mail com delphi

27/07/2008

1

Meus caros.

Estou tentando enviar um e-mail com os componentes TIdSMTP e TIdMessage da paleta Indy Misc sem sucesso pois a primeira vez q executo o programa ele manda o e-mail depois não envia mais.

Vou Disponibilizar o código abaixo:

with IdSMTP1 do
begin
//Nome do host
Host := ´smtp.xxxxxx.com.br´;
//Porta
Port := 25;
//Nome do usuário, normalmente o e-mail
Username := ´Login´;
//Senha
Password := ´senha´;
try
//Conecta com o servidor smtp
Connect();
except
MessageBox(Handle, ´Falha de conexão no Host´,´Erro´, MB_OK+MB_ICONERROR);
Application.Terminate;
end;
//Autentica no Host
try
Authenticate;
except
MessageBox(Handle, ´Falha de autenticação no Host´,´Erro´, MB_OK+MB_ICONERROR);
Application.Terminate;
end;
end;
with IdMessage1 do
begin
//O seu endereço de e-mail
From.Address := ´yyyyy@xxxxxx.com.br´;
//Aqui vai o endereço de e-mail para o qual você quer mandar o e-mail
Recipients.EMailAddresses := ´zzzzz@xxxxxxxxxx.com.br´;
//O assunto da mensagem
Subject := ´Assunto´;
//A mensagem que você quer mandar
Body.Text := ´Mensagem´;
MessageParts.Clear;
end;
//Aqui para poder anexar um arquivo
TIdAttachment.Create(IdMessage1.MessageParts, ´Path do arquivo a ser anexado´);
//Envia a mensagem
try
IdSMTP1.Send(IdMessage1);
except
MessageBox(Handle, ´Falha no processo de finalização´,´Aviso´, MB_OK+MB_ICONWARNING);
end;
IdSMTP1.Disconnect;


Responder

Posts

29/07/2008

Luizito

Tenta dar uma olhada em [url=http://www.usercontrol.net/content/view/15/18/]Envio de Email[/url]

Um abraço.


Responder

30/07/2008

Ricardo_ascii

Olá,


Na propriedade username do idsmtp tem que postar o nome da conta. Veja bem! Nem sempre o nome da conta é o nome do e-mail.


idsmtp1.Username:=aqui vai o nome da conta e não do e-mail;

Abraço, Ricardo


Responder

30/07/2008

Nasguone

Tente assim

//INICIA ENVIO DE MAIL RF ACO
with dm.SMTP do
begin
// Nome do host e Usuario que envia o mail
Host := ´xxxxx.xxxx.com.br´;
Username :=´suporte´;
//Conecta com o servidor smtp
Connect();
end;
with dm.Idmessage do
begin
From.Address := ´suporte@xxxxx.com.br´;
Recipients.EMailAddresses := ´xxx@xxx.com.br;´;
//O assunto da mensagem
Subject := ´TESTE´;
//A mensagem que você quer mandar
Body.Text := ´blablabla:´+´´+#13+
´Tipo da Peça Apontada:´+´´+TpPeca+´ ´+13+
´Nível de Prioridade Desta Peça e:´+´ ´+Prioridade+13+
´Data de Compromisso com o Cliente Desta Peça e:´+´ ´+DateToStr(CompCliente)+13+
´Descrição do Cliente:´+´ ´+cliente+13+
´Número do Pedido da Peça e:´+´ ´+PedPeca+13+
´Foi Apontada como Apontada pela Equipe:´+´ ´+NomeEqp+13+
´Nada data´+´ ´+DateToStr(DataConsulta )+´ ´+´No Setor ´+´ ´+NomeSetor+#13+13+13+13+13+
´ATENÇÃO MENSAGEM GERADA AUTOMATICAMENTE PELO SISTEMA FAVOR NÃO RESPONDER´;
MessageParts.Clear;
end;
// encerra envio de mensagens
dm.SMTP.Send(dm.Idmessage);
dm.SMTP.Disconnect;


onde DM e o datamodule e utilize os componentes smtp e idmessage


Responder