8 replies to this topic

[proteus_adi]

Um grande dilema pelo qual passei foi o envio de e-mail´s por programas feitos em Delphi. Os detalhes do problema seguem abaixo:

- Fiz um programa para um cliente que tinha como opção o envio de relatórios por e-mail;
- Todo o processo estava pronto e funcionando perfeitamente;
- Quando passei para o cliente nada funcionou!
Isso me deixou muito confuso, no meu computador continuava a funcionar perfeitamente!

Como "todos" sabem precisamos configurar o NMSMTP com um servidor smtp (host) para o envio de e-mail´s. No meu caso estava usando UOL e sendo assim eu estava usando o SMTP.UOL.COM.BR como Host. Só que o meu cliente não usa UOL. E esse aparentemente era o problema.

Não encontrei a solução sozinho e pedi ajuda a vários colegas programadores o qual um me respondeu da seguinte maneira:

"Se eu não me engano, no Uol vc deve primeiro baixar as mensagens para que depois ele deixe vc enviar, ou seja, para poder enviar mensagens, vc precisa estar autenticado la no UOL.
Espero ter ajudado.
Abraços,
Fernando Gonçalves,"
Foi só isso que precisei para resolver todo o "Dilema". Só precisaria me identificar no POP3 do UOL que estaria tudo resolvido.

Então eu fiz:

- Coloquei um componente NMPOP3 e antes dos comandos do NMSMTP eu coloquei esses do NMPOP3:

//Processo de reconhecimento no POP3 do UOL
NMPOP31.AttachFilePath := '.';
NMPOP31.DeleteOnRead := FALSE;
NMPOP31.ReportLevel := Status_Basic;
NMPOP31.TimeOut := 20000;
NMPOP31.Host := 'pop3.uol.com.br';
NMPOP31.Port := 110;
NMPOP31.UserID := 'MeuLogin';
NMPOP31.Password := 'Minha Senha';
NMPOP31.Connect;
//Conexão não feita ele sai
//Conexão feita ele desconecta e prossegue
if not NMPOP31.Connected then exit else NMPOP31.Disconnect;
//Prosseguindo ele agora tenta se conectar ao SMTP do UOL
NMSMTP1.ClearParams := TRUE;
NMSMTP1.Host := 'smtp.uol.com.br'
NMSMTP1.Port := 25;
NMSMTP1.UserID := 'MeuLogin'
NMSMTP1.Connect;
//Conexão não feita ele sai
//Conexão feita ele prossegue
If not NMSMTP1.Connected then exit;
//Processo de envio
NMSMTP1.PostMessage.Body.Clear;
NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.FromAddress := 'MeuLogin@MeuProvedor.com.br'
NMSMTP1.PostMessage.FromName := 'Meu Nome Completo'
NMSMTP1.PostMessage.Body.Add('Teste de envio de email');
NMSMTP1.PostMessage.Subject := ('Teste de Envio');
NMSMTP1.PostMessage.ToAddress.Add('destino@DestinoProvedor.com.br');
NMSMTP1.SendMail;
Depois de estabelecer a conexão com o POP3 do UOL o envio pelo SMTP do UOL ficou liberado não importando em que provedor eu estivesse conectado.

No meu caso eu pude usar POP3 e SMTP do UOL pois sou assinante do UOL, porém vc pode simplesmente criar um e-mail no IG, IEG ou outro serviço de e-mail grátis e pronto é só utilizar a dica!!

Obs.: Nem todos os e-mail´s grátis tem serviço POP3!

By Lloyd Dickinson

LloydSoft

Fonte: dicas e truques de delphi v 2.0

[web_eduardo]

olá amigo, eu utilizo o terra "smtp.vlh.terra.com.br", mas só consigo enviar email para quem é do terra.

por exemplo: quando coloco "ToAddress." para "josedasilva@yahoo", dá o erro:
not valid recipientes

que faço???

fiz o código igual ao seu

[proteus_adi]

KRA!!
vc num eh oprimeiro a ter problemas com smtp e terra!!!
Eu nunca usei o terra.. por isso," se o problema não for delphi" não vai dar pra eu ajudar muito!!!

[kcl]

Eu estou usando o Yahoo e quando envia o e-mail retorna o erro "Range check error", não estou entendendo.

[kcl]

Usei uma conta no BOL em uma conexão com o Yahoo e funcionou direitinho, vale a pena tentar

[raul_zeca]

ow, gostei mto da sua dica para enviar emails pelo delhpi.
mas gostaria de saber se tem como receber email pelo delhpi
se voce puder me ajudar eu agradeco

valew ae

[kcl]

Basta vc usar o componente TNMPOP3, ele é rsponsável pela recepção de e-mails e o restante é vc programar, veja o exemplo no topo deste tópico escrito pelo proteus_adi.

Para te facilitar, o inicío é este:

NMPOP31.AttachFilePath := '.';
NMPOP31.DeleteOnRead := FALSE;
NMPOP31.ReportLevel := Status_Basic;
NMPOP31.TimeOut := 20000;
NMPOP31.Host := 'seu.servidor.pop3';
NMPOP31.Port := 110;
NMPOP31.UserID := 'SeuLogin';
NMPOP31.Password := 'Sua Senha';
NMPOP31.Connect;
//Conexão não feita ele sai
//Conexão feita ele desconecta e prossegue
if not NMPOP31.Connected then
exit
else
NMPOP31.Disconnect;

ou, se vc usa o D8 tem os componentes TidPOP3 e TidSMTP da paleta "Indy Clients" para "vcl forms", mas esses eu não usei

[raul_zeca]

Valew ae cara

achei que ninguem ia responder...hehehheeheh

sinal que o forum da resultado

vo fica sempre por aquei !!!

[raul_zeca]

Alguem sabe onde posso encontrar esses componentes TNM......

Nao esta nas paletas do meu delphi....ja vem com o delhpi ?????

onde posso fazer os downloads ???

to precisando bastante

se alguem puder ajudar........