Fórum Erro a enviar e-mail (olha na figura) #402346

 

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
  try
  begin
    with IdSMTP1 do
    begin
      Connect();
      with IdMessage1 do
      begin
        Clear;
        From.Address := 'ewerton-speed@hotmail.com'; // Email do remetente
        From.Name := 'Ewerton'; // Nome do remetente
        Subject := 'Testando!'; // Assunto do email
        Recipients.Clear;
        Recipients.EMailAddresses := ('ewerton-speed@hotmail.com'); // aqui você coloca o(s) destinatários(s)
        CCList.EMailAddresses := ('ewerton-speed@hotmail.com'); // Cópia
        BccList.EMailAddresses := ('ewerton-speed@hotmail.com'); // Cópia Oculta
        Priority := mpHigh; // Trata a prioridade da mensagem - Opções: mpHigh | mpNormal | mpLow
        // Assunto da mensagem
        Body.Clear;
        ContentType := 'text/html'; // Texto em HTML
        Body.Add('<strong> Testando envio de email pelo Delphi!</strong> <br>');
        Body.Add('<br>');
        Body.Add('<tr align="left" >');
        Body.Add('<th width=20%> <font face="Verdana" size=2 color=#003300> <strong> Cínthia Mélo </strong>');
        ShowMessage('Recebeu Tudo');
      end;
    end;
    try
    begin
      IdSMTP1.Send(IdMessage1);  // Envia o email com os dados
      ShowMessage('Enviou os Dados');
      Application.MessageBox('E-mail enviado com Sucesso!', 'Atenção' , MB_OK);
    end
    except
    end;
    IdSMTP1.Disconnect;
  end;
  except
  on Exception do
    Application.MessageBox('Não foi possível a conexão com o Servidor de E-mail', 'Atenção', MB_OK);
  end;
end;
end;