SSL-Aushandlung fehlgeschlagen

[KarZten]

Hallo,

ich arbeite mit Delphi XE8 und habe eine kleine Webapplikation geschrieben, welches u.A. E-Mails über smpt.google.com versenden soll.

Zuhause auf meinem Laptop werden die E-Mails versendet und kommen auch an.
Leider, wenn ich das Tool auf dem virtuellen Server packe und von dort aus die E-Mails über mein Tool versende, bekomme ich vom Browser folgende Fehlermeldung:
"SSL-Aushandlung fehlgeschlagen.

Server:
Webtropia
Windows Server 2012

Ich hoffe, ihr habt einen Tipp, was ich anpassen muss, damit die Mails über smpt versendet werden können...

Danke im voraus.

Karsten

 

[KarZten]

Hallo, liebes Team.

Hat hier keine eine Idee? :/

 

[marce]

Naja, Wochenden sind halt immer so 'ne Sache und die Faktenlage ist auch mehr als dünn.

Konkreter Code würe sicher weiterhelfen - aktuell sagst Du nicht mehr als "was ich (wie verrate ich nicht) machen will geht nicht (und den exakten Fehler verrate ich nicht)".

 

[KarZten]

Hallo,

tut mir Leid, ich hätt jetzt gedacht, es liegt an einer Server Einstellung, dass die Mails nicht versendet werden, da es an meinem Laptop ja funktioniert.


ich gehe davon aus, dass die Fehlermeldung "SSL-Aushandlung fehlgeschlagen" irgendwas mit dem VServer zutun hat.

Ich kann gar nicht so genau definieren, was für Information ich Euch mitteilen soll. Also bin für jeden Tipp sehr Dankbar.

Code:

procedure TfmWarenKorb.SendEmail(const Recipients: string; const CCList: string; const Subject: string; const Body: string; Att: Boolean; Filename:String);
var
  SMTP: TIdSMTP;
  Email: TIdMessage;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  Attachment: TIdAttachment;
  I: Integer;
begin
  SMTP := TIdSMTP.Create(nil);
  Email := TIdMessage.Create(nil);
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  SMTP.IOHandler:= SSLHandler;


  try
    SSLHandler.MaxLineAction := maException;
    SSLHandler.SSLOptions.Method := sslvTLSv1;
    SSLHandler.SSLOptions.Mode := sslmUnassigned;
    SSLHandler.SSLOptions.VerifyMode := [];
    SSLHandler.SSLOptions.VerifyDepth := 0;

    SMTP.IOHandler := SSLHandler;
    SMTP.Host := 'smtp.gmail.com';
    SMTP.Port := 587;
    SMTP.Username := 'XXXXX@';  //User
    SMTP.Password := 'XXXXXXX';  //Pass
    SMTP.UseTLS := utUseExplicitTLS;

    if Att = true then
      Attachment := TIdAttachmentFile.Create(Email.MessageParts, Filename);

    Email.From.Address := 'KSystem@Call-Center-Service.de';
    Email.Recipients.EmailAddresses := Recipients;

    {for I := 0 to ccList.Count-1 do
      begin
        EMail.CCList.Add.Address := CCList.Strings[i]; //StringReplace(CCList,sLineBreak,',',[rfReplaceAll]);
      end; }

    //EMail.CCList.Add.Address := CCList;

    Email.Subject := Subject;
    Email.Body.Text := Body;


    SMTP.Connect;
    SMTP.Send(Email);
    SMTP.Disconnect;

  finally
    if Att = true then Attachment.Free;
    SMTP.Free;
    Email.Free;
    SSLHandler.Free;
  end;
end;