1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:

procedure TForm2.SendNow2;
var MsgSend:TIdMessage;
   SMTP:TIdSMTP;
   SASLNTLM : TIdSASLNTLM;
   UserPassProv:TIdUserPassProvider;
   textPart:TIdText;
   Logfile:TIdLogFile;
   sentOK:Boolean;
begin
  logfile:=NIL;
  MsgSend:=TIdMessage.Create;  //create the message
  with MsgSend do
     begin
        Body.Text:='Test';
        From.Text := 'willy@mydomain.de';
        Recipients.EMailAddresses := 'tino@homedomain.de';
        Subject := 'Test';     // set the subject
        Priority := mpNormal;  // set the priority (note that you could add to
                               // Destination to support different priorities)
     end;
  try
    SMTP:=TIdSMTP.Create;     //create the SMTP object
    try
//*************
     with TIdSSLContext.Create do
      Free;   //try to create a SSL context (immediately disposes of it)
//*************
             //- need OpenSSL to support this, if it fails, it will fall into the exception
      smtp.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(smtp);     //if we succeed, then we can create a SSL socket handler and assign it to the IOHandler
      smtp.UseTLS := utUseExplicitTLS;                                 //and we can mark the we can use tls
    except
      smtp.IOHandler := TIdIOHandler.MakeDefaultIOHandler(smtp);       //the SSL failed to create, so make the default IO handler
      smtp.UseTLS := utNoTLSSupport;                                   //mark that we have no TLS support
   end;
   smtp.ManagedIOHandler := True;    //either way, we now have a ManagedIOHandler

    if cb_dbg.Checked then   //if we marked that we wanted debugging, we need to do some setup
       begin
       logFile := TidLogFile.Create(nil);          //create the log file
       logFile.FileName:='Log.txt';                //set the default log file name - NOTE: you could get fancy with this, but I normally don't use it
       logFile.Active:=true;                       //activate the log file (creates the file and intializes everything)
       smtp.IOHandler.Intercept := logFile;        //set the logFile to the intercept of the IOHandler to capture the events
       smtp.IOHandler.OnStatus  := smtp.OnStatus;  // - not sure why we do this, copied code -
       end;

    try
      SMTP.AuthType := satSASL;
      SMTP.UserName := le_user.text;        // User Input
      SMTP.Password := le_password.Text;    // User Input

      userPassProv:=TIdUserPassProvider.Create;  //create the user/pass provider - this handles the login functions for SASL
      userPassProv.UserName:=SMTP.UserName;      // setup user name
      userPassProv.Password:=SMTP.Password;      // & password

      if SMTP.AuthType=satSASL then //if we are going to use SASL - basically, SASL just encrypts the login, everything else is still clear text
        begin
         SASLNTLM := TIdSASLNTLM.Create;
         SASLNTLM.UserPassProvider:=userPassProv;
         SMTP.SASLMechanisms.Clear;
         SMTP.SASLMechanisms.Add.SASL:=SASLNTLM;
        end;
      {General setup}
      SMTP.Host := le_server.text;             //setup the server name
      SMTP.Port := StrToInt(le_smtpport.Text); //setup the server port

      {now we send the message}
      SMTP.ConnectTimeout := 1000;
      SMTP.Connect;
      if not SMTP.Authenticate then                                    //authenticate with the server - this will automatically use SASL if configured and supported
      begin
        MessageDlg('An error occurred attempting to send your e-mail. The error was : Unable to authenticate.', mtError, [mbOK], 0);
        exit;
      end;
      try
         try
           ShowMessage('Before Send');
           SMTP.Send(MsgSend);  //send the message
           ShowMessage('After Send');
           SentOk:=true;        //indicate success
         finally
            SMTP.Disconnect;                                           //disconnect from the server
         end;
      except on E :Exception do                                        //if we had a failure, say so
         begin
         MessageDlg('An error occurred attempting to send your e-mail. The error was : '+E.Message, mtError, [mbOK], 0);
         SentOk:=false;                                                //set failure
         end;
      end;
    finally
    SMTP.Free;                                                         //free the memory
    end;
  finally
     if logFile<>nil then                                              //if we had a log file, free that
        logFile.Free;
     MsgSend.Free;                                                     //free the message
  end;
end;