Apenas para complementar...
O problema só ocorre se o usuário for ler a mensagem pelo Webmail (do
BRTurbo e alguns outros). Se ele baixar a mensagem pelo Outlook Express o
problema não ocorre.
Atenciosamente.
Daniel P. Guimarães
Tecnobyte Informática
www.tecnobyte.com.br
----- Original Message -----
Subject: [delphi-br] Problema com TIdSMTP e Anexo
>
> Toda vez que envio uma mensagem usando TIdSMTP com anexo para e-mails do
> BRTurbo (e alguns outros provedores também) o destinatário não recebe a
> mensagem original, mas somente o aviso abaixo:
>
> ---------
> Não foi possível decodificar este e-mail seguindo o padrão de e-mail
> (rfc822).
> Ele foi guardado como anexo e pode ser baixado sem perda de dados.
> ---------
>
> Este problema só ocorre quando a mensagem contem anexos.
>
> Segue o código-fonte:
>
> --------------
> procedure TForm1.Button1Click(Sender: TObject);
> var
> SMTP: TIdSMTP;
> Msg: TIdMessage;
> begin
> SMTP := TIdSMTP.Create(nil);
> Msg := TIdMessage.Create(nil);
> try
> SMTP.Host := 'mail.nomedoservidor.com.br';
> SMTP.Port := 25;
> SMTP.AuthenticationType := atNone;
> SMTP.Connect;
> try
> Msg.From.Address := '[EMAIL PROTECTED]';
> Msg.From.Name := 'Nome do remetente';
> Msg.Subject := 'Assunto da mensagem';
> Msg.Body.Text := 'Texto da mensagem';
> Msg.Recipients.EMailAddresses := '[EMAIL PROTECTED]';
> TIdAttachment.Create(Msg.MessageParts, 'c:\teste.txt'); { Anexo }
> SMTP.Send(Msg);
> finally
> SMTP.Disconnect;
> end;
> finally
> SMTP.Free;
> Msg.Free;
> end;
> ShowMessage('Mensagem enviada');
> end;
> ---------------
>
> No help do Delphi diz que o componente TIdMessage é compatível com o
padrão
> rfc822. Será que tenho que alterar alguma propriedade para não dar este
> problema? Mas qual?
>
> Alguém já passou por este problema?
>
> Notas:
>
> 1. Os endereços mostrados no código-fonte acima foi trocados nesta
mensagem
> para evitar spam.
>
> 2. Enviando a mesma mensagem e com o mesmo anexo por outro programa de
> e-mail (Outlook ou Yahoo) não ocorre o referido erro.
>
> 3. Uso Delphi6 e está atualizado com Update Pack 2.
>
> Atenciosamente.
>
> Daniel P. Guimarães
> Tecnobyte Informática
> www.tecnobyte.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
