socorro envio de email
O QUE ACONTECE QUANDO TENTO ENVIAR UMA MENSAGEM VIA DELPHI NO ACESSO DISCADO E O SIS FUNCIONA PERFEITAMENTE E NA ADSL ELE ME RETORNA O ERRO ........
NO VALID RECIPIENTS .........
JA CONFERI E VERIFIQUEI VARIOS CODIGOS MAIS PARECE QUE NADA FUNCIONA ....
VALEU +++++++
Favor postar o título em minúsculas
Moderador
NO VALID RECIPIENTS .........
JA CONFERI E VERIFIQUEI VARIOS CODIGOS MAIS PARECE QUE NADA FUNCIONA ....
VALEU +++++++
Favor postar o título em minúsculas
Moderador
Fabiomx
Curtidas 0
Respostas
Lfernando
01/04/2003
qual o código que você colocu para ele enviar a mensagem?
Foi para ele enviar via Dial Up?
Para se mandar via Adsl o código não é outro?
Se for você poderia fazer uma verificação da conexão e depois habilitar o serviço a ser usado.
:shock:
Foi para ele enviar via Dial Up?
Para se mandar via Adsl o código não é outro?
Se for você poderia fazer uma verificação da conexão e depois habilitar o serviço a ser usado.
:shock:
GOSTEI 0
Anonymous
01/04/2003
if not NMSMTP1.Connected then
begin
Panel2.Caption := ´Enviando a mensagem ...´;
NMSMTP1.Host := Smtp;
NMSMTP1.UserID := UserId;
NMSMTP1.Connect;
// Dados do remetente.
NMSMTP1.PostMessage.FromAddress := Email; // De - email
NMSMTP1.PostMessage.FromName := Origem; // De - Nome
NMSMTP1.PostMessage.Subject := Assunto; // Assunto
NMSMTP1.PostMessage.ToAddress.Add(MailDest); // Para
NMSMTP1.PostMessage.ToBlindCarbonCopy.Add(EmailFabri); // Cópia oculta - Cco
NMSMTP1.PostMessage.ToCarbonCopy.Add(´´); // Com cópia - Cc
NMSMTP1.PostMessage.Body.Assign(Memo2.Lines); // Corpo do email
NMSMTP1.SendMail; // Envia o email
Panel2.Caption := ´Mensagem enviada com sucesso ...´;
end
;
begin
Panel2.Caption := ´Enviando a mensagem ...´;
NMSMTP1.Host := Smtp;
NMSMTP1.UserID := UserId;
NMSMTP1.Connect;
// Dados do remetente.
NMSMTP1.PostMessage.FromAddress := Email; // De - email
NMSMTP1.PostMessage.FromName := Origem; // De - Nome
NMSMTP1.PostMessage.Subject := Assunto; // Assunto
NMSMTP1.PostMessage.ToAddress.Add(MailDest); // Para
NMSMTP1.PostMessage.ToBlindCarbonCopy.Add(EmailFabri); // Cópia oculta - Cco
NMSMTP1.PostMessage.ToCarbonCopy.Add(´´); // Com cópia - Cc
NMSMTP1.PostMessage.Body.Assign(Memo2.Lines); // Corpo do email
NMSMTP1.SendMail; // Envia o email
Panel2.Caption := ´Mensagem enviada com sucesso ...´;
end
;
GOSTEI 0
Anonymous
01/04/2003
Tá um tanto quanto repetitivo esse dilema do ENVIO DE EMAIL PELO DELPHI, talvez seja melhor o Clube Delphi colocar como Dicas e Macetes:
1- O componentes delphi para Envio/Recebimento de E-mail são, respectivamente, NMSMTP e NMPOP3, da paleta Fastnet;
2- Por si só, o componente NMSMTP deveria prover o envio de e-mail, bastando setar suas variáveis HOST, USERID adequadamente;
3- Ocorre que alguns PROVEDORES DE ACESSO exigem PRIMEIRO autenticação no servidor POP3 (de recebimento de e-mails), como é o caso do BRTURBO, do UOL, do YAHOO, e parece que a onda pegou e todos os provedores deverão ter o mesmo procedimento...
4- Para enviar adequadamente e-mails pelo Delphi, devemos driblar essa limitação dos Provedores, setando as Variáveis HOST, USERID e PASSWORD em um componente NMPOP3, fazendo então a conexão primeiro nele e depois fazendo a conexão no componente NMSMTP.
5- Aí deverá funcionar, a menos que: A Senha/Usuario esteja errada, o nome do servidor esteja errado ou fora do ar etc.
6- Tenho um exemplo que funciona tanto em DIAL UP (Discado) quanto em ADSL (Brasil Telecom - BRTURBO), quem quiser, peça-me por e-mail no endereço joilson_gouveia@yahoo.com.br
T+
1- O componentes delphi para Envio/Recebimento de E-mail são, respectivamente, NMSMTP e NMPOP3, da paleta Fastnet;
2- Por si só, o componente NMSMTP deveria prover o envio de e-mail, bastando setar suas variáveis HOST, USERID adequadamente;
3- Ocorre que alguns PROVEDORES DE ACESSO exigem PRIMEIRO autenticação no servidor POP3 (de recebimento de e-mails), como é o caso do BRTURBO, do UOL, do YAHOO, e parece que a onda pegou e todos os provedores deverão ter o mesmo procedimento...
4- Para enviar adequadamente e-mails pelo Delphi, devemos driblar essa limitação dos Provedores, setando as Variáveis HOST, USERID e PASSWORD em um componente NMPOP3, fazendo então a conexão primeiro nele e depois fazendo a conexão no componente NMSMTP.
5- Aí deverá funcionar, a menos que: A Senha/Usuario esteja errada, o nome do servidor esteja errado ou fora do ar etc.
6- Tenho um exemplo que funciona tanto em DIAL UP (Discado) quanto em ADSL (Brasil Telecom - BRTURBO), quem quiser, peça-me por e-mail no endereço joilson_gouveia@yahoo.com.br
T+
GOSTEI 0
Fabiomx
01/04/2003
MESMO COM O EXEMPLO QUE VC ME ENVIOU POR EMAIL NÃO FUNCIONA ... DA O MESMO ERRO ... JA TINHA FEITO IGUAL AO SEU E FUNCIONA PERFEITAMENTE POR ACESSO DISCADO ... MAIS NÃO SEI PORQUE PELA ADSL NÃO FUNCIONA ...
GOSTEI 0
Anonymous
01/04/2003
Mande-me o SEU FONTE...
joilson_gouveia@yahoo.com.br
joilson_gouveia@yahoo.com.br
GOSTEI 0
Fabiomx
01/04/2003
É O QUE FOI JA POSTADO ACIMA ... MAIS MESMO COM O EXEMPLO QUE VC ME MANDOU ONTEM NÃO FUNCIONA .......
GOSTEI 0
Anonymous
01/04/2003
Acabei de testar o seu código acima, colocando as linhas abaixo, e funcionou. Atenção para os parâmetros que usei:
[b:9a41e13ff7]NMPOP31.Host := ´pop.brturbo.com´;
NMPOP31.UserId := ´joilson_gouveia´;
NMPOP31.Password := ´******´;
NMPOP31.Conect;
if not NMPOP31.Conected then
begin
ShowMessage(´Não consegui conexão POP3!´);
Exit;
end;
NMSMTP1.Host := ´smtp.brturbo.com´;
NMSMTP1.UserId := ´joilson_gouveia´;
NMSMTP1.Conect;[/b:9a41e13ff7]
if not NMSMTP1.Connected then
begin
Panel2.Caption := ´Enviando a mensagem ...´;
//NMSMTP1.Host := Smtp;
//NMSMTP1.UserID := UserId;
//NMSMTP1.Connect;
// Dados do remetente.
NMSMTP1.PostMessage.FromAddress := ´joilson_gouveia@brturbo.com´´; // De - email
NMSMTP1.PostMessage.FromName := ´Joilson Vieira Gouveia´; // De - Nome
NMSMTP1.PostMessage.Subject := Assunto; // Assunto
NMSMTP1.PostMessage.ToAddress.Add(´joilson_gouveia@yahoo.com.br´); // Para
NMSMTP1.PostMessage.ToBlindCarbonCopy.Add(´joilson_gouveia@bol.com.br´); // Cópia oculta - Cco
//NMSMTP1.PostMessage.ToCarbonCopy.Add(´´); // Com cópia - Cc
NMSMTP1.PostMessage.Body.Assign(Memo2.Lines); // Corpo do email
NMSMTP1.SendMail; // Envia o email
Panel2.Caption := ´Mensagem enviada com sucesso ...´;
end
;
[b:9a41e13ff7]NMPOP31.Host := ´pop.brturbo.com´;
NMPOP31.UserId := ´joilson_gouveia´;
NMPOP31.Password := ´******´;
NMPOP31.Conect;
if not NMPOP31.Conected then
begin
ShowMessage(´Não consegui conexão POP3!´);
Exit;
end;
NMSMTP1.Host := ´smtp.brturbo.com´;
NMSMTP1.UserId := ´joilson_gouveia´;
NMSMTP1.Conect;[/b:9a41e13ff7]
if not NMSMTP1.Connected then
begin
Panel2.Caption := ´Enviando a mensagem ...´;
//NMSMTP1.Host := Smtp;
//NMSMTP1.UserID := UserId;
//NMSMTP1.Connect;
// Dados do remetente.
NMSMTP1.PostMessage.FromAddress := ´joilson_gouveia@brturbo.com´´; // De - email
NMSMTP1.PostMessage.FromName := ´Joilson Vieira Gouveia´; // De - Nome
NMSMTP1.PostMessage.Subject := Assunto; // Assunto
NMSMTP1.PostMessage.ToAddress.Add(´joilson_gouveia@yahoo.com.br´); // Para
NMSMTP1.PostMessage.ToBlindCarbonCopy.Add(´joilson_gouveia@bol.com.br´); // Cópia oculta - Cco
//NMSMTP1.PostMessage.ToCarbonCopy.Add(´´); // Com cópia - Cc
NMSMTP1.PostMessage.Body.Assign(Memo2.Lines); // Corpo do email
NMSMTP1.SendMail; // Envia o email
Panel2.Caption := ´Mensagem enviada com sucesso ...´;
end
;
GOSTEI 0