Enviar aquivo anexo no e-mail

[simoesluciano 0]

Estou enviando e-mail diretamente do Delphi 7 usando os componentes Indy.Quando envio um e-mail sem arquivo anexo o destinatário recebe normalmente o e-mail, mas quando anexo um arquivo, já testei com PDF e TXT, o e-mail não chega ao destino.Estou usando o seguinte código:if FileExists(Nome_Arquivo) thenTIdAttachment.Create(IdMsgSend.MessageParts, Nome_Arquivo);with IdMsgSend dobeginOrganization := Nome_Empresa_Origem;Body.Assign(MMTexto.Lines);From.Address := EMail_Origem;From.Name := Nome_Empresa_Origem;ReplyTo.EMailAddresses := EMail_Origem;Recipients.EMailAddresses := EMail_Destino; { To: header }Subject := 'Assunto' { Subject: header }Priority := mpNormal; { Message Priority }CCList.EMailAddresses := EMail_CC; {CC}ReceiptRecipient.Text := EMail_Origem;end;{authentication settings}SMTP.AuthenticationType := atLogin; {Simple Login}SMTP.Username := EMail_Origem;SMTP.Password := EditSenha.Text;{General setup}SMTP.Host := '192.168.2.1';SMTP.Port := 25;{now we send the message}SMTP.Connect;trySMTP.Send(IdMsgSend);finallySMTP.Disconnect;end;Obrigado.

[marcio.theis 3]

Tenta o seguinte, cria uma variavel chamada por exemplo de "anexo" do tipo TIdAttachment no fonte faz algo do tipo:

 

if FileExists(Nome_Arquivo) then	begin	anexo:=TIdAttachment.Create(IdMsgSend.MessageParts, Nome_Arquivo);	anexo.Headers.Add('Content-ID: <AnexoNro1>');	end;

[simoesluciano 0]

Também não funcionou.

[marcio.theis 3]

Putz... Eu utilizo assim e funciona certinho...

[simoesluciano 0]

Estou começando a achar que é o meu servidor SMTP que está classificando minhas mensagens como SPAM.

[marcio.theis 3]

Isto pode realmente acontecer, tinhamos este problema com o nosso servidor de email, fizemos reclamações e eles acabaram liberando.

[simoesluciano 0]

Descobri o problema.Setei a propriedade Encode := meUU do TidMessage com o MIME não funciona.Obrigado.