Enviar email com anexo e html

Question

Estou com um problema no envio do email com anexo.Da erro com o HTML. Sem o anexo o html funciona corretamento, com o anexo da erro pq mostra o texto html.O que eu posso fazer??Muito obrigado...

Aroldo Zanela · Answer

Colega,Qual mecanismo que voc� est� utilizando (Server, Ole, Indy, etc )? Pode colocar um fragmento do c�digo para analisarmos melhor?...

T4544 · Answer

Eu estou utilizando indy?...

T4544 · Answer

Estou usando componentes INDYCodigo:[code:1:b8139bcdda]try            try              SMTP.Username := FieldbyName(�USER�).AsString;              SMTP.Password := FieldbyName(�PASSWORD�).AsString;              SMTP.Host := FieldbyName(�SMTP�).AsString;              SMTP.Port := FieldbyName(�PORTA�).AsInteger;              SMTP.Connect;             Mensagem. MessageParts.Clear;              for i := 1 to frmAnexo.numArqAnexos do                TIdAttachment.Create(Mensagem.MessageParts,frmAnexo.sgListaArqAnexo.Cells&#91;0,i-1&93;);            except on E: Exception do              begin                frmAnimation.Close;                MessageDlg(�Erro na tentativa de conexao SMTP. � + e.Message,mtError,&91;mbOk&93;,0);                erro := True;              end;            end;            try              with Mensagem do              begin               if PopupMenu1.Items&#91;0&93;.Checked then                  Priority := mpHigh;                if PopupMenu1.Items&91;1&93;.Checked then                  Priority := mpNormal;                if PopupMenu1.Items&91;2&93;.Checked then                  Priority := mpLow;                Subject := edTitulo.Text;                From.Name := FieldbyName(�NOMEEMAIL�).AsString;                Recipients.EMailAddresses := frmEmpresas.sgListaEmpresas.Cells&91;1,j&93;;                if (RadioGroup1.ItemIndex = 0) then                  ReceiptRecipient.Address := FieldByName(�EMAILPADRAO�).AsString;                ppMensagem.HTMLDoc...

F�rum Enviar email com anexo e html #253037