Fórum Envio de e-mail com imagem (Indy) #347878

begin
  AntiCongelamento:=TIdAntiFreeze.Create(nil);
  try
    AntiCongelamento.OnlyWhenIdle:=false;
    AntiCongelamento.ApplicationHasPriority:=true;
    AntiCongelamento.Active:=True;
    Result := True;
    try
      ClienteSMTP:=TIdSMTP.Create(nil);
      try
        with ClienteSMTP do
        begin
          host := ED_SERVIDOR_SMTP.Text;
          username := ED_USUARIO_EMAIL.Text;
          Password := ED_SENHA_EMAIL.Text;
         // AuthenticationType := atLogin;
          try
            Connect;
            Authenticate;
          except
            // Servidor não encontrado ou
            // nome de usuário ou senha inválidos!!!
            Result := False;
            raise;
          end;
          // Conectado e autenticado
          Mensagem:=TIdMessage.Create(nil);
          try
            with Mensagem do
            begin
              Encoding := meMIME;
              AttachmentEncoding := ´MIME´;
              From.Address := ED_EMAIL_REMETENTE.Text;
              From.Name := ED_NOME_REMETENTE.Text;
              // Adiciona os emails do campo Para
              //if (Length(destinatario) > 0)then
                //for i:=0 to High(destinatario) do
                  Recipients.Add.Address := FDataModule.CAUX.FieldByName(´EMAIL´).AsString;
              // Adiciona os emails do campo Com Cópia
             // if (Length(destinatarios_CC) > 0)then
             //   for i:=0 to High(destinatarios_cc) do
             //     CCList.Add.Address := destinatarios_cc[i];
              // Adiciona os emails do campo Com Cópia e Oculto
             // if (Length(destinatarios_CCO) > 0)then
              //  for i:=0 to High(destinatarios_cco) do
              //    BccList.Add.Address := destinatarios_cco[i];
              Subject := ED_ASSUNTO.Text;
              Body.Text := MM_TEXTO.Text;
              Priority := mpNormal;
              // Insere os arquivos anexos na mensagem
             // if (Length(arquivo_anexo) > 0) then
               // for i:=0 to High(arquivos_anexos) do
              for i := 0 to LB_ANEXOS.Items.Count - 1 do
              begin
                 if FileExists(LB_ANEXOS.Items.strings[i])then
                    TIdAttachmentFile.Create(Mensagem.MessageParts,LB_ANEXOS.Items.strings[i]);
              end;
            end;
            // Envia a mensagem
            try
              Send(Mensagem);
            except
              // Erro ao enviar a mensagem
              // Possiveis erros:
              // * Mensagem acima do tamanho permitido pelo servidor
              // * Mensagem possui conteúdo proibido pelo servidor
              Result := False;
              raise;
            end;
          finally
            Mensagem.Free;
          end;
          // Desconecta do servidor
          Disconnect;
        end;
      finally
        ClienteSMTP.Free;
      end;
    except end; 
  finally
    AntiCongelamento.Free;
  end;
end; 

procedure TFEnviaEmail.SpeedButton3Click(Sender: TObject);
var 
Pict: TPicture;
begin
  with OpenPictureDialog1 do begin
    if Execute then begin
      Pict := TPicture.Create;
      try
        Pict.LoadFromFile(FileName);
        Clipboard.Assign(Pict);
        MM_TEXTO.PasteFromClipboard;
      finally
      Pict.Free;
      end;
    end;
  end;
end;