Fórum Enviar email com o delphi #219314

- 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;