Anexar Arquivo A E-mail

[simoesluciano]

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) then
      TIdAttachment.Create(IdMsgSend.MessageParts, Nome_Arquivo);

   with IdMsgSend do
   begin
      Organization := 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;
   try
      SMTP.Send(IdMsgSend);
   finally
      SMTP.Disconnect;
   end;

Obrigado.

[maikel]

Olá...

Seguinte... eu uso um SMTP e um IDMessage para enviar emails...com anexos....

Veja o codigo que uso:

// -> Tem que conectar antes
   if not ( IdSMTP.Connected ) then
   begin
      ShowMessage( 'Clique em "Conectar" antes de enviar!' );
      exit;
   end;

   with IdMessage do
   begin
      Recipients.Clear;
      CCList.Clear;
      BCCList.Clear;
      Body.Clear;
      ContentType := 'text/html';
      Subject := edtAssunto.Text;
      From.Address := edtEmail.Text;
      From.Name := edtNmUsuario.Text;
      with Recipients.Add do
      begin
         Name := edtEmailDest.Text;
         Address := edtEmailDest.Text;
      end;
      with CCList.Add do
      begin
         Name := edtEmailCC.Text;
         Address := edtEmailCC.Text;
      end;
      with BCCList.Add do
      begin
         Name := edtEmailBCC.Text;
         Address := edtEmailBCC.Text;
      end;
      { Se conter anexos, incluir essa linha}
        ------------------------------------
        TIdAttachment.Create( MessageParts, 'C:\Arquivo.TXT' );
        // -> Se tiver anexos, mudar o ContentType
        ContentType := 'multipart/mixed';
      Body.Assign( mmoTexto.Lines );
      // -> Enviar...
      IdSMTP.Send( IdMens );
   end;
   ShowMessage( 'Email enviado com sucesso!' );
end;

vê ai se isso te ajuda...

qualquer coisa post de novo...

Att

[Guest Visitante]

Descobri o problema.

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

Obrigado.