01/10/2004

Enviar email com anexo e html

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


T4544

Respostas

01/10/2004

Aroldo Zanela

Colega,

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


Responder Citar

02/10/2004

T4544

Eu estou utilizando indy?


Responder Citar

02/10/2004

T4544

Estou usando componentes INDY

Codigo:

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[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[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.Add(´<html><body>´);
                ppMensagem.HTMLDoc.Add(´<hr>´);

                ppMensagem.HTMLDoc.Add(´Prezada empresa Associada: <b>´);
                ppMensagem.HTMLDoc.Add(frmEmpresas.sgListaEmpresas.Cells[0,j&93;);
                ppMensagem.HTMLDoc.Add(´</b><hr><br><br>´);


                ppMensagem.HTMLDoc.Add(textoMensagem);


                ppMensagem.HTMLDoc.Add(´<br><br><br><br><br><br><br><br><hr>´);

                ppMensagem.HTMLDoc.Add(´<table width="100¬"><tr>´);
                ppMensagem.HTMLDoc.Add(´<td align="left"><img src="´+FieldByName(´IMAGEM´).AsString+´" width=150 height=50>´);
                ppMensagem.HTMLDoc.Add(´</td><td align="center"><b>´ + FieldByName(´TEXTO´).Value  + ´</b></td></tr></table>´);

                ppMensagem.HTMLDoc.Add(´</body></html>´);


                Body.Text := ppMensagem.HTMLDoc.Text;
                mmMensagem.Lines.Text := Body.Text;
                SMTP.Send(Mensagem);

              end;



Responder Citar