Fórum Enviar e-mail com formatação HTML e Anexo #302746

procedure TfrmENVP01A.EnviarEmail(Para, Assunto, MensagemEMail: String);
var
  sAssunto, sMensagem: String;
  TextPart: TIdText;
  Anexo: TIdAttachment;
begin

... // Validação de variaveis.

// Existe uma procedure que é chamada antes para conectar 
// ao servidor POP e SMTP
 
if not (POP3.Connected) or not (SMTP.Connected) or (SMTP.Username = ´´) then
Exit;

with Mensagem do Begin
  with From do Begin
    Name := ´Robert´;
    Address := SMTP.UserName;
  End; //with From do
  Subject := Assunto;
  Recipients.EMailAddresses := Para;
  ReceiptRecipient.Text := SMTP.UserName; // Auto Resposta
  Body.Text := MensagemEMail;
End; // with Mensagem do

{TextPart := TIdText.Create(Mensagem.MessageParts);
TextPart.Body.Text := MensagemEMail;
TextPart.ContentType := ´text/hmtl´;}

  TIdAttachment.Create(Mensagem.MessageParts, ´arquivo,cfg´);

{Anexo.ContentType := ´text/plain´;
Anexo.Headers.Add(´Content-ID: <ciscfg.cfg>´);}

Try
Screen.Cursor := crHourGlass;
SMTP.Send(Mensagem);
  ResultEnvio := ´E-Mail enviado´;
  SMTP.Disconnect;
  POP3.Disconnect;
Except
On E: Exception do Begin
    SMTP.Disconnect;
  POP3.Disconnect;
ResultEnvio := ´Erro ao enviar o E-Mail:´ + E.Message + #1310 + ´ Classe:´ + E.ClassName;
  Exit
  End;
End; // Try
end;

procedure TfrmENVP01A.ConectaPOPSMTP;
begin
POP3.Disconnect;
SMTP.Disconnect;

SQLChange(qryExec, ´select * from SERVEREMAIL where TipoServ = 1´);
Screen.Cursor := crHourGlass;
if (qryExec.RecordCount > 0) then
  Try // Conectar ao servidor POP
    with POP3 do Begin
      Username := Descriptografar(qryExec.FieldByName(´User´).AsString);
      Password := Descriptografar(qryExec.FieldByName(´Pass´).AsString);
      Host  := LowerCase(qryExec.FieldByName(´Host´).AsString);
      Connect;
    End; // with POP3 do
  Except
    On E: Exception do Begin
      POP3.Disconnect;
      MsgInfo(´Erro ao conectar com o servidor POP: ´ + E.Message + ´ / Classe: ´ + E.ClassName);
      Exit
    End;
  End; // Try do Conectar ao servidor POP

SQLChange(qryExec, ´select * from SERVEREMAIL where TipoServ = 0´);
Screen.Cursor := crHourGlass;
if (qryExec.RecordCount > 0) then
  Try // Conectar ao servidor SMTP
    with SMTP do Begin
      Username := Descriptografar(qryExec.FieldByName(´User´).AsString);
      Password := Descriptografar(qryExec.FieldByName(´Pass´).AsString);
      Host := LowerCase(qryExec.FieldByName(´Host´).AsString);
      Connect;
    End; // with SMTP do
  Except
    On E: Exception do Begin
      POP3.Disconnect;
      SMTP.Disconnect;
      MsgInfo(´Erro ao conectar com o servidor SMTP: ´ + E.Message + ´ / Classe: ´ + E.ClassName);
      Exit
    End;
  End; // Try do Conectar ao servidor SMTP
end;