Enviar email com anexo e html
01/10/2004
0
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
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
Curtir tópico
+ 0
Responder
Posts
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?
Qual mecanismo que você está utilizando (Server, Ole, Indy, etc )? Pode colocar um fragmento do código para analisarmos melhor?
Responder
02/10/2004
T4544
Estou usando componentes INDY
Codigo:
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]);
except on E: Exception do
begin
frmAnimation.Close;
MessageDlg(´Erro na tentativa de conexao SMTP. ´ + e.Message,mtError,[mbOk],0);
erro := True;
end;
end;
try
with Mensagem do
begin
if PopupMenu1.Items[0].Checked then
Priority := mpHigh;
if PopupMenu1.Items[1].Checked then
Priority := mpNormal;
if PopupMenu1.Items[2].Checked then
Priority := mpLow;
Subject := edTitulo.Text;
From.Name := FieldbyName(´NOMEEMAIL´).AsString;
Recipients.EMailAddresses := frmEmpresas.sgListaEmpresas.Cells[1,j];
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]);
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
Clique aqui para fazer login e interagir na Comunidade :)
