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:

function TDataModMail.SendEmail(Recipient, CCList, sSubject: string;
  Body: TStrings; Anlage: string): boolean;
var
  plainText: TIdText;
begin
  idMessage.MessageParts.Clear;
  idSMTP.Host     := Host;
  idSMTP.Username := User;
  idSMTP.Password := Password;
  idSMTP.Port     := Port;

  idMessage.From.text  := emailAbsender;
  idMessage.Sender.text:= idMessage.From.text;

  idMessage.Recipients.EMailAddresses:= Recipient;
  idMessage.CCList.EMailAddresses    := CCList;
  idMessage.Subject                  := sSubject;
  plainText := TIdText.Create(IdMessage.MessageParts, nil);
  plainText.Body.Text := Body.Text;
  plainText.ContentType := 'text/plain';
  plainText.CharSet := 'ISO-8859-1';
  plainText.ContentTransfer := 'BASE64';
  plainText.ContentDisposition := 'inline';


 if length(Trim(Anlage)) > 0 then
   TIdAttachmentFile.Create(idMessage.MessageParts, Anlage );

 try
   idSMTP.Connect;
   idSMTP.Send(idMessage);
   idSMTP.Disconnect;
   result:=True;
   except on E : Exception do
     begin
       showmessage(E.ToString);

       if idSMTP.connected then try idSMTP.disconnect; except end;
       result := false;
     end;
 end;
 idMessage.MessageParts.Clear;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

 
        SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(SMTP);
        SSLHandler.SSLOptions.Method := sslvSSLv23; 
        SSLHandler.SSLOptions.Mode := sslmClient;
        SSLHandler.SSLOptions.VerifyMode := [];
        SSLHandler.SSLOptions.VerifyDepth := 0;
        SMTP.IOHandler := SSLHandler;
        if edSMTPPort = 587 then
          SMTP.UseTLS := utUseExplicitTLS
        else
          SMTP.UseTLS := utUseImplicitTLS;                    

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:

Function Sende_Email(RegKey:string;Mode:Byte):Boolean;
Var //Mail: TSSLEmail;
    Mail: TSSLEmail;
    VSubject:String;
    VBody:TStringlist;
    //VSSLEmail : TSSLEmail;
Begin


//---------------------------------------------
//Uses IndySecureMailClient
//---------------------------------------------

  VBody:= TStringlist.Create;
  GibBody(VBody,VINI,RegKey);

  Try
    Mail := TSSLEmail.Create(C_Host, 465,C_Username, C_Password);

    try
      Mail.edSenderName := 'Setup';
      Mail.edSenderEmail := Vini.Email;
      Mail.edToEmail := C_Recipient;
      Mail.edSubject := VSubject;
      Mail.edBody := VBody;

      Mail.SendEmail;
    finally
      Mail.Free;
    end;
  Finally
    VBody.Clear;
    VBody.Free;
  End;
End;                    

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:

{
Uses
  IdMessage,IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP,
  IdEMailAddress;
}

Function Sende_Email(RegKey:string;Mode:Byte):Boolean;
Var VSubject:String;
    VBody:TStringlist;
    VIdSMTP:TIdSMTP;
    VIdMessage: TIdMessage;
Begin
  Result:= False;

  case Mode of
  1: VSubject := C_Bestellung;
  2: VSubject := C_Registrierung;
  end;

  //Objekte erzeugen
  VBody:= TStringlist.Create;
  VIdSMTP:= TIdSMTP.Create;
  VIdMessage:= TIdMessage.Create;

  try
    GibBody(VBody,VINI,RegKey);

    //Authentifizierung
    VIdSMTP.AuthType := TIdSMTPAuthenticationType.satDefault;

    //Benutzerdaten für Authentifizierung
    VIdSMTP.Username := C_Username;
    VIdSMTP.Password := C_Password;

    //Server-Daten
    VIdSMTP.Host := C_Host;
    VIdSMTP.Port := 25;

    VIdSMTP.Connect;
    Try
      VIdMessage.From.Address := VINI.Email;
      VIdMessage.Recipients.EMailAddresses := C_Recipient;
      //IdMessage.CCList.EMailAddresses := edCC.Text;
      //IdMessage.BCCList.EMailAddresses := edBCC.Text;
      VIdMessage.Subject := VSubject;
      VIdMessage.Body := VBody;
      VIdSMTP.Send(VIdMessage);
      Result:= True;
    Finally
      VIdSMTP.Disconnect;
    End;
  finally
    VIdSMTP.Free;
    VIdMessage.Free;
    VBody.Free;
  end;
End;