ActiveDelphi

[thaine]

Bom dia, estou com um problema.
Preciso enviar email e esse email não é recebido, porem aparece a mensagem 'Email enviado com sucesso' e não aparece erro nenhum.
Segue abaixo o código

SMTP.AuthenticationType := atLogin;
SMTP.Host := dm.tbEmpresaEMAIL_HOST.AsString;

SMTP.Port := dm.tbEmpresaEMAIL_PORT.AsInteger

SMTP.Username := dm.tbEmpresaEMAIL_USER.AsString;
SMTP.Password := dm.tbEmpresaEMAIL_PASS.AsString;

// setup mail message
MailMessage.From.Address := dm.tbEmpresaEMAIL_USER.AsString;
MailMessage.Recipients.EMailAddresses := dm.tbEmpresaEMAIL_CONTADOR.AsString;
try
try
SMTP.Connect(1000);
SMTP.Send(MailMessage);
Screen.Cursor:=crDefault;
Application.MessageBox('Email Enviado com sucesso','Argus', MB_OK + MB_ICONEXCLAMATION);
NotaXML_Zip.Close;
except on E:Exception do
ShowMessage(E.Message);
end;
finally
if SMTP.Connected then SMTP.Disconnect;
qry.Close;
end;
end;




Alguém por favor pode me ajudar?

[Batera]

Alô, thaine!

O e-mail não estaria caindo no Lixo Eletrônico? Tentou enviar para outro domínio e verificar o recebimento?
Experimente também adicionar essa linha:

[didonsom]

Olá..

tente esse tutorial aqui.. fiz com base em 2 posts.. utilizo no delphi 2010 e funciona normalmente



[url] http://www.hardware.com.br/comunidade/codigo-delphi/1299952/ [/url]

abraços

diego