Fórum Enviando com o componente NMSMTP #287986
13/07/2005
0
Meu cliente tem a necessidade de enviar um e-mail atraves de minha aplicaçao e, para isso utilizei esse forum show de bola para montar minha rotina, pesquise quase todos os topicos relacionados ao assunto e acabei fechando no codigo que esta abaixo:
NMPOP31.AttachFilePath :=´.´;
NMPOP31.DeleteOnRead := False;
NMPOP31.ReportLevel := Status_Basic;
NMPOP31.TimeOut := 20000;
NMPOP31.Host:= ´pop3.ig.com.br´;
NMPOP31.Port := 110;
NMPOP31.UserID := ´gordonsp´;
NMPOP31.Password := ´oseompenmf´;
NMPOP31.Connect;
if not NMPOP31.Connected then
exit
else
NMPOP31.Disconnect;
NMSMTP1.ClearParams := true;
NMSMTP1.Host:= GetVariable(´eml_host´);
NMSMTP1.Port:= strtoint(GetVariable(´eml_porta´));
NMSMTP1.UserID:= GetVariable(´eml_userid´);
NMSMTP1.Connect;
if not NMSMTP1.Connected then
begin
Result:= False;
Exit;
end;
with NMSMTP1.PostMessage do
begin
//Remetente
FromAddress := trim(GetVariable(´eml_email´));
FromName:= trim(GetVariable(´eml_nomerem´));
//Destinatario
ToAddress.Clear;
Subject := trim(GetVariable(´eml_titulo´))+ trim(NumOs);
Body.Clear;
Body.Add(trim(GetVariable(´eml_mensagem´)));
attachments.Clear;
attachments.Add(trim(Arq));
ToAddress.Add(trim(Email));
end;
NMSMTP1.SendMail;
NMSMTP1.Disconnect;
//Mensagem de erro
Mensagem de erro ao executar o SendMail
550 Must Authenticate
esta ocorrendo o erro acima, alguem teria como me auxiliar nesse problema?
Desde ja agradeço a todos pela força.
Anderson
[color=green]Título editado por gandalf.nho. Favor não usar termos apelativos[/color]
Gordonsp
Curtir tópico
+ 0Posts
13/07/2005
Massuda
Gostei + 0
14/07/2005
Gordonsp
Infelizmente tenho que utilizar o delphi 5, pois desenvolvi uns padrões que terei que reescrever numa versão mais recente do delphi e, demanda um certo tempo.
Qual das versões da Indy vc. indicaria?
Irei reescrever o codigo na versão do indy e caso continue o problema postarei aqui o codigo.
Muito obrigado.
Anderson
Gostei + 0
14/07/2005
Massuda
Gostei + 0
22/07/2005
Gordonsp
instalei o indy 9 e montei o rotina como vc. indicou, logico que acabei fazendo algumas mudanças e funcionou perfeitamente.
Gostaria de agradecer muito pela sua ajuda e seu tempo.
Quem sabe algum dia poderei retribuir essa sua ajuda.
um grande abraço
Anderson
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)