Use o componente TNMPOP3, passando para o componente nome de usuário e
senha. Depois execute o comando CONNECT do componente. Antes de prosseguir
com a rotina de envio de e-mail, verfique se o componente POP3 está de fato
conectado....
Mais ou menos assim (o código abaixo foi tirado do histórico do fórum):
//Processo de reconhecimento no POP3 do UOL
NMPOP31.AttachFilePath := '.';
NMPOP31.DeleteOnRead := FALSE;
NMPOP31.ReportLevel := Status_Basic;
NMPOP31.TimeOut := 20000;
NMPOP31.Host := 'pop.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 := '[EMAIL PROTECTED]'
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('[EMAIL PROTECTED]');
NMSMTP1.SendMail;
[ ]'s e Boa Sorte
Rodrigo
----- Original Message -----
From: "Pedro Vagner Rossi" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, January 24, 2005 7:32 AM
Subject: [delphi-br] Enviar Email p/ delphi 6
>
> Olá a todos.
>
> Eu uso o componente TNMSMTP para enviar mensagens pelo Delphi.
> Alguém sabe como enviar mensagem qdo se usa um servidor que requer
> autenticação de senha para envio?
>
>
> Obrigado
>
>
> Pedro Vagner Rossi
>
>
>
> --
> <<<<< 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
>
>
>
>
>
>
>
>
>
>
--
<<<<< 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
