Erro Ao Enviar E-Mail

[rbleonel]

Olá pessoal.

    Utilizo Delphi 2010.

    Minha aplicação foi instalado no Windows 8 64 bits. Está funcionando normalmente, menos o envio de e-mail. Nas versões anteriores do Windows o envio do e-mail funciona perfeitamente.

    Sempre que vai enviar o e-mail, retorna a seguinte mensagem:

Connection close gracefully.

    Alguém sabe dizer o motivo disso acontecer apenas no Windows 8 e somente no Windows 8?

Obrigado,

Rogério.

[Daniel Simoes]

A mensagem não parece ser um erro... e sim uma comunicação de que a conexão foi fechada...

 

Já tentou usar o ACBrMail ?

[rbleonel]

Daniel,

 

Realmente não é um erro. Eu me expressei errado!

 

Sim, o provedor ou sei lá quem está fechando a conexão antes que o e-mail seja enviado.

 

Quanto ao ACBrMail, vou fazer um teste com ele e retorno o resultado aqui.

 

Obrigado,

 

Rogério.

[rbleonel]

Daniel,

 

Utilizando o ACBrMail, o e-mail é enviado normalmente no Windows 8. Só encontrei um problema referente a acentuação.

 

No ACBrMail eu não encontrei o charset = LATIN1. Esse charset permite enviar textos com acentuação.

 

Fiz testes com alguns deles e eles não permitem acentuação.

 

Qual charset devo utilizar no ACBrMail para obter acentuação?

 

Outra pergunta, o que o ACBrMail faz de diferente que envia o e-mail normalmente no Windows 8?

 

Obrigado,

 

Rogério.

[Daniel Simoes]

O ideal é usar UTF8, pois é aceito mundialmente...

[rbleonel]

Daniel,

 

Eu já tive este mesmo problema com o componente IdMessage, onde, eu utilizava UTF8 e só foi resolvido utilizando LATIN1. Com UTF8 veja como fica a palavra acentuada: configura��es

 

Onde existem acentuações é colocado o caractere �

 

É assim que sai no corpo do e-mail. Tem alguma outra alternativa?

 

Obrigado,

 

Rogério.

[Daniel Simoes]

Qual a sua versão de Delphi ? Delphi 7 não suporta UTF8... não sei bem se irá converter corretamente...

 

Se vc usar um encoding específico... sempre haverá o caso da outra parte não compreende-lo...  No Brazil a página de código padrão é a CP1252

[rbleonel]

Eu utilizo o Delphi 2010.

 

Utilizando o charset CP1252, quando existe acentuação, a letra acentuada é removida. Veja: "configuraes"

 

E não tem como colocar o LATIN1 no componente?

[Daniel Simoes]

Não existe uma página de código chamada LATIN1... abriu o link que lhe enviei ?

CP1252 ( This character encoding is a superset of ISO 8859-1,)

[rbleonel]

Sim, abri o link e li sobre o assunto.

 

Curioso é que acentuação não vai de forma alguma pelo ACBrMail.

[Daniel Simoes]

Aqui usamos UTF8 sem qq problema... (Lazarus)

[rbleonel]

Daniel,

 

O ACBrMail envia e-mail muito, mas muito mais rápido que o IdMessage, mesmo com anexos. Muito bom mesmo!!!

 

Com relação à acentuação, acredito que seja algum detalhe com o Delphi 2010. Eu já vinha enfrentado este problema com o componente IdMessage da Palheta Indy. Como lhe disse, eu utiliza o charset LATIN1 e funcionava sem problemas.

 

Agora, eu coloquei uma função para remover os acentos para enviar o e-mail e está funcionando bem. Vou tocar desta forma até encontrar este problema.

 

Outro detalhe, preciso alterar a propriedade Priority e não estou conseguindo. A minha aplicação tem um TComboBox com as opções de prioridade para serem alteradas ao enviar o e-mail, porém, quando vou compilar está dando erro. Estou fazendo assim:

 

ACBrMail1.Priority := 'MP_normal';

 

Como é a forma correta?

 

Obrigado,

 

Rogério.

[Daniel Simoes]

ACBrMail1.Priority é um tipo enumerado.... Se você usar o Ctrl-Clique sobre a propriedade "Priority", cairá na Unit ACBrMail... agora use Ctrl-clique no Tipo "TMessPriority", e vc cairá na Unit: mimemess, com os tipos disponíveis...

 

Portanto...

Uses mimemess;

.....

ACBrMail1.Priority := MP_high;

[rbleonel]

É isso ai Daniel, matou a pau...

 

Muito obrigado pela ajuda!

 

Rogério.