ActiveDelphi

wcrisostomo · Enviada: Seg Nov 26, 2012 10:23 pm Assunto: email como spam

boa amigos do forum, venho aki ve se alguem me ajuda, e o seguinte, tenho um sistema que envia email, so que os destinatarios que usam email do hotmail, o email chega como spam, se mandou para outros emails do gmail, yahoo, etc, chega normal, mas quando e hotmail chega como spam, uso delphi 2010 e ferramente indy nativa do delphi 2010, se alguem puder me ajudar, vou postar aki a rotina que uso para gerar o email:

//criando e enviando o email
enviando := True;
email := TIdMessage.Create(nil);
smtp := TIdSMTP.Create(nil);
DmDados.config_email.Open;

with frmPrincipal.busca_email do
begin
Close;
sql.Clear;
sql.Add('select * from email where status = ''PENDENTE''');
Open;
first;
end;

Num_orcamento := frmprincipal.busca_emailID.value;
nomeCli := frmprincipal.busca_emailDESTINATARIO.Value;
email.From.Name := 'Caldas Novas Viagens';
email.From.Address := email_usuario;
email.Recipients.EMailAddresses := frmPrincipal.busca_emailEMAIL_DESTINATARIO.AsString;
email.Priority := mpHighest;
email.Subject := frmprincipal.busca_emailASSUNTO.AsString;

smtp.Host := frmprincipal.busca_emailSMTP_USUARIO.Value;
smtp.Username := frmprincipal.busca_emailEMAIL_USUARIO.Value;
smtp.Password := frmprincipal.busca_emailSENHA_USUARIO.Value;

//autenticacao

autent_ssl := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
smtp.IOHandler := autent_ssl;
SMTP.UseTLS := utUseImplicitTLS;
autent_ssl.DefaultPort := frmprincipal.busca_emailPORTA_EMAIL_USUARIO.Value;
autent_ssl.SSLOptions.Method := sslvSSLv23;
autent_ssl.SSLOptions.Mode := sslmUnassigned;

try
smtp.AuthType := satDefault;
except
ShowMessage('Erro ao Autenticar Email !!!!');
abort;
end;
smtp.Port := frmprincipal.busca_emailPORTA_EMAIL_USUARIO.Value;

{ with dmdados.busca_imagem do
begin
Close;
sql.clear;
sql.Add('select hoteis.foto_hotel,hoteis.servicos_hotel,hoteis.formapag,hoteis.conheca_hotel,hoteis.obs from hoteis where nome_hotel = :hotel');
ParamByName('hotel').Value := hotel1;
Open;
end;}
text := TIdText.Create(email.MessageParts);
text.ContentType := 'text/html';
text.Body.Add('<HTML><BODY>');
text.Body.Add('<line-height:100%>');
text.Body.Add('<H2><small><font face="Arial"size="2"><I>Prezado(a): '+nomecli+',</I><small></H2>');
text.Body.Add('<H6><font face="Arial"size="2"><I>Agradeçemos o contato e segue anexo orçamento dos Hotéis com disponibilidade</I></font><small></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>no período solicitado e/ou sugestões de datas próximas.</I></font><small></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>Se algum dos pacotes anexos encaixarem nas suas férias, favor retornar esse e-mail</I></font></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>para darmos prosseguimento a sua reserva.</I></font></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>Ainda tem dúvidas? Envie-nos que teremos o maior prazer em atendê-lo (a).</I></font></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>*Se preferir responda esse e-mail informando seu Telefone Fixo que retornamos.</I></font></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>*Se não conseguiu abrir o anexo, favor nos informar.</I></font></H6>');
text.Body.Add('<BR>');
text.Body.Add('<H6><small><font face="Arial"size="2"><I>Cordialmente, Paulo Sergio.</I></font></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>Central de Reservas & Pacotes</I></font></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>E-mail: resevas@caldasnovasviagens.com.br</I></font></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>Wesite: www.caldasnovasviagens.com.br</I></font></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>Facebook: http://facebook.com/CNViagens</I></font></H6>');
text.Body.Add('<H6><font face="Arial"size="2"><I>Contatos: (64) 3454-1187 | (62) 4052-0038 | (61) 4002-0077 | (11) 2122-4235</I></font></H6>');
text.Body.Add('<BR>');
{text.Body.Add('<img style="margin:0px 0px 0px 0px;"');
text.Body.Add('<IMG SRC="cid:rodape_email2.png" width="280" height="80"><IMG SRC="cid:rodape_email3.png" width="280" height="80">');
text.Body.Add('<BR>');
text.Body.Add('<IMG SRC="cid:rodape_email.png" width="420" height="180">');}
text.Body.Add('</body></html>');
text := TIdText.Create(email.MessageParts);
text.ContentType := 'text/plain';
{imagem_logo := TIdAttachmentFile.Create(email.MessageParts,ExtractFilePath(Application.ExeName)+'rodape_email2.png');
imagem_logo.Headers.Values['content-ID'] := 'rodape_email2.png';

imagem_logo := TIdAttachmentFile.Create(email.MessageParts,ExtractFilePath(application.ExeName)+'rodape_email3.png');
imagem_logo.Headers.Values['content-ID'] := 'rodape_email3.png';

imagem_logo := TIdAttachmentFile.Create(email.MessageParts,ExtractFilePath(application.ExeName)+'rodape_email.png');
imagem_logo.Headers.Values['content-ID'] := 'rodape_email.png';}

with dmdados.busca_anexos do
begin
Close;
sql.Clear;
sql.Add('select anexos.id,anexos.anexo1 from anexos where id = :id');
ParamByName('id').Value := Num_orcamento;
Open;
first;
while not Eof do
//if FileExists(frmorcamento.memo_anexos.Lines[I]) then
begin
anexo := TIdAttachmentFile.Create(email.MessageParts,dmdados.busca_anexos.FieldValues['anexo1']);
Next;
end;
end;

//envia o email
try
smtp.UseEhlo := true;
smtp.UseVerp := false;
smtp.ReadTimeout := 10000;
smtp.Connect;
Sleep(10000);
smtp.Authenticate;
Sleep(10000);
except

enviando := False;
end;

try
if smtp.Connected then
smtp.Send(email)
else
begin
ShowMessage('Mensagem nao pode ser enviada');
Exit;
end;
except
smtp.Disconnect;
smtp.Host := dmdados.busca_emailSMTP.AsString;
smtp.AuthType := satNone;
smtp.Connect;
try
smtp.Send(email);
except
begin
ShowMessage('Nao pode enviar o email para '+nomecli+', verifique as configuracoes da conta');

end;
smtp.Disconnect;
end;
smtp.Disconnect;
enviando := False;
Synchronize(Atualiza);
{frmHistorico_email.historico.close;
frmHistorico_email.historico.open;
frmHistorico_email.Release;
frmHistorico_email := nil;}
end;

viox · Enviada: Ter Nov 27, 2012 7:19 am Assunto:

Olá amigo, o problema não é no Delphi e sim no teu email, experimente enviar um email direto para um hotmail, também irá para caixa de spans.
Teu email entrou na blacklist do hotmail, agora como tirar eu não sei, estou falando para você saber que o problema não é no teu código.
abrazz
_________________
Just another Delphi guy.

http://www.soft42.com
http://www.nortaonegocios.com.br

wcrisostomo · Enviada: Ter Nov 27, 2012 7:30 am Assunto:

rodrigoprado · Enviada: Qua Nov 28, 2012 3:13 pm Assunto:

*Antes de mais nada, seu código esta ok, não há nada de errado com ele mesmo.

Pesquisando aqui, gostaria de uma opinião dos colegas aqui do forum sobre este assunto acho importante e pode servir pra todos em algum momento.

SPF: O Sender Policy Framework (SPF) é uma solução cujo objetivo é definir quais são os servidores que têm permissão para enviar e-mails em nome de um determinado domínio. Para implantá-lo é muito fácil, basta você criar um registro TXT (ou SPF, depende do seu software DNS) com a sintaxe SPF correta. Neste link você vai encontrar mais informações sobre o SPF e como configurá-lo no seu DNS: http://www.antispam.br/admin/spf/. Ao servidor que recebe a mensagem cabe verificar o registro SPF da origem para determinar se o servidor poderia ou não ter enviado aquela mensagem. Se não puder, ela deve ser descartada pois muito provavelmente é SPAM.

http://www.pedropereira.net/emails-indo-para-spam-yahoo-hotmail/

De uma lida neste link a respeito... digamos que o seu cliente seja nome@cliente.com.br, o dominio dele tem que ser dado como valido ai sim os email no hotmail iriam na boa, em todo caso teria que ser visto com a TI do seu cliente para eles verem estas possibilidades também e não deixar somente vc como culpado, ou dizendo que eh no codigo do seu sistema, ai esta provado que seu sistema esta certo, ou seja....

Pessoal se errei em algo me avisem mas creio q seja isto...
_________________
- Compartilhe seus conhecimentos -