Erro no envio de e-mail
16/02/2003
0
Estou tentando enviar e-mail através do componente NMSMTP.
Quando a internet já está conectada ele esta me retornando o erro:
503 RCPT FIRST (#5.5.1)
Que erro é esse ?
Quando eu tento enviar o e-mail diretamente ( sem a conexão ja estar feita ) ele me retorna o erro :
NUM REMOTE ADREESS
Que erro é esse ? Como fazer com que ele envie o e-mail sem a conexão estar aberta ?
Quando a internet já está conectada ele esta me retornando o erro:
503 RCPT FIRST (#5.5.1)
Que erro é esse ?
Quando eu tento enviar o e-mail diretamente ( sem a conexão ja estar feita ) ele me retorna o erro :
NUM REMOTE ADREESS
Que erro é esse ? Como fazer com que ele envie o e-mail sem a conexão estar aberta ?
Anonymous
Curtir tópico
+ 0
Responder
Posts
16/02/2003
Ajmsistemas
MANO... TENTE DESSA FORMA AQUI !
NMSMTP1.Host := DD.QEmailSmtp.Value; //SMTP.Servidor.com.br
NMSMTP1.Port := 25; //Porta não mude isso !
NMSMTP1.UserID := DD.QEmailLogin.Value; //Login de acesso...
NMSMTP1.Connect; //Mande conectar !!!
if NMSMTP1.Connected = False Then
begin // Verifica a conexão
ShowMessage(´Não foi possivel conectar ao Servido!´);
abort; //se não estiver conectado ele aborta
End
Else
begin
with NMSMTP1.PostMessage do
begin
FromAddress := DD.QEmailSeu_Email.Value; //aqui é o seu email
FromName := DD.QEmailSeu_Nome.Value; // Aqui seu nome
ToAddress.Clear; //limpa
ToAddress.Add(LabeledEdit1.Text); //Endereços a enviar...
Subject := LabeledEdit2.Text; //Assunto do E-mail
Body.Clear; //Limpa
Body.Assign(Memo1.Lines); //Mensagem a ser Enviada
end;
if CheckBox1.Checked = True Then NMSMTP1.PostMessage.Attachments.Add(OpenDialog1.FileName); //Se tive algum anexo
NMSMTP1.SendMail; //manda o e-mail
NMSMTP1.Disconnect; //Desconecta...
ShowMessage(´E-mail enviado com Sucesso!´); //Aviso
BitBtn3.Click; //limpa os campos...
End;
ESSE EU USO E DÁ CERTO...
FALOU
DÚVIDAS ENTRE EM CONTATO!. :D
NMSMTP1.Host := DD.QEmailSmtp.Value; //SMTP.Servidor.com.br
NMSMTP1.Port := 25; //Porta não mude isso !
NMSMTP1.UserID := DD.QEmailLogin.Value; //Login de acesso...
NMSMTP1.Connect; //Mande conectar !!!
if NMSMTP1.Connected = False Then
begin // Verifica a conexão
ShowMessage(´Não foi possivel conectar ao Servido!´);
abort; //se não estiver conectado ele aborta
End
Else
begin
with NMSMTP1.PostMessage do
begin
FromAddress := DD.QEmailSeu_Email.Value; //aqui é o seu email
FromName := DD.QEmailSeu_Nome.Value; // Aqui seu nome
ToAddress.Clear; //limpa
ToAddress.Add(LabeledEdit1.Text); //Endereços a enviar...
Subject := LabeledEdit2.Text; //Assunto do E-mail
Body.Clear; //Limpa
Body.Assign(Memo1.Lines); //Mensagem a ser Enviada
end;
if CheckBox1.Checked = True Then NMSMTP1.PostMessage.Attachments.Add(OpenDialog1.FileName); //Se tive algum anexo
NMSMTP1.SendMail; //manda o e-mail
NMSMTP1.Disconnect; //Desconecta...
ShowMessage(´E-mail enviado com Sucesso!´); //Aviso
BitBtn3.Click; //limpa os campos...
End;
ESSE EU USO E DÁ CERTO...
FALOU
DÚVIDAS ENTRE EM CONTATO!. :D
Responder
Clique aqui para fazer login e interagir na Comunidade :)