Mit wählen Gmails Ausgehende SMTP von DELPHI(Indy) mit TLS

Ich bin mit INDY zu senden E-Mail mit dem SMTP-client auf port 25 mit kein problem.

Nun muss ich senden Sie eine E-Mail über ein Gmail-Konto und für die, die ich brauche, um die Verwendung von TLS.

Kann jemand ein einfaches Beispiel, wie das zu tun.

Dank

top-Ergebnis bei google für "indy+smtp+Google Mail" verrät: E-mail Senden an Google Mail mit Indy
Ich habe Marco Cantu ' s guide in der Vergangenheit: marcocantu.com/tips/oct06_gmail.html

InformationsquelleAutor DRokie | 2011-08-12

  1. 6

    Dieser code funktioniert für GMail: 

    begin
  IDSMTP1 := TIDSMTP.Create;
  IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create;
  try

    with IDSMTP1 do
    begin
      Host := srvr.Host;
      Port := srvr.Port;
      if (srvr.needAuthentication = 'Y') then
        AuthType := satDefault
      else
        AuthType := satNone;
      IOHandler := IdSSLIOHandlerSocketOpenSSL1;

      if (srvr.secureMode = 'Y') then
        UseTLS := utUseRequireTLS
      else
        UseTLS := utNoTLSSupport;

      Username := srvr.Username;
      Password := srvr.Password;
    end;

    idMBHTML := TIdMessageBuilderHTML.Create;
    Idmessage1 := TIDMessage.Create;

    try
      with idMBHTML do
      begin
        enc := TEncoding.Unicode;
        HTML.LoadFromStream(FEmlMsg.MsgBody, enc);
        for c := 0 to FEmlMsg.Attachmnts.Count - 1 do
          Attachments.Add(FEmlMsg.Attachmnts[c]);
        FillMessage(IDMessage1);
      end;

      with Idmessage1 do
      begin
        Subject := FEmlMsg.MsgSubject;
        From.Address := FEmlMsg.FromAddress;
        From.Name := FEmlMsg.FromName;
        Recipients.EMailAddresses := FEmlMsg.RecipientAddress;
        if FEmlMsg.ReceiptRecipientAddress <> '' then
          ReceiptRecipient.Address := FEmlMsg.ReceiptRecipientAddress;
        if FEmlMsg.ReceiptRecipientName <> '' then
          ReceiptRecipient.Name := FEmlMsg.ReceiptRecipientName;
      end;

      with IDSMTP1 do
      begin
        if not Connected then
          Connect;
        Send(IdMessage1);
      end;

    finally
      Idmessage1.Free;
      idMBHTML.Free;
    end;
  finally
    IDSMTP1.Free;
    IdSSLIOHandlerSocketOpenSSL1.Free;
  end;
end;
    getestet haben Sie Ihre selbst ? Ich erhalte eine Fehlermeldung beim verbinden: EIdOSSLCouldNotLoadSSLLibrary mit der Meldung " could not load SSL library.'
    Stellen Sie sicher, dass Sie die richtige version von OpenSSL-DLLs, die für Ihre version von Indy. Verwenden Indy WhichFailedToLoad() Funktion zu bestimmen, welcher Teil(en) von OpenSSL konnte nicht geladen werden.
    Als Remy oben erwähnt, Sie müssen das OpenSSL-DLL-Dateien zusammen mit der Anwendung. Sie sollten in den gleichen Ordner wie die ausführbare Datei der Anwendung oder sollte in der system-Pfad (z.B. System32). Sie können laden Sie die neuesten Dateien aus der Indy-website.

    InformationsquelleAutor Steve F

  2. 1

    Müssen Sie die SSL-dll, machen die IdSSLIOHandler Arbeit.

    Gibt es info bei Indy SSL-Website
    die redirect Sie zu Fulgan Download-Seite

    Können Sie ein download-Paket passend für Ihre Plattform, und dann die 2 dlls, die mit Ihrer Anwendung. Ich selbst mit, die 2 dlls mit den indy-Komponenten zum senden von Nachrichten über E-Mail seit über 2 Jahren. Das problem ist nur der Versand ist sehr langsam.

    InformationsquelleAutor Justmade

  3. 0

    Ihnen nicht sagen, welche version von Indy, die Sie verwenden.
    Für den Einsatz TSL (Letzte änderungen der Sicherheit in Hotmail/GMaill) müssen Sie die Verwendung von Indy 10.

    Sehen Beschreibung hier.

    Eigentlich Y verwenden Sie diese configuraction zum senden von E-mails mit GMail und es funktioniert richtig:

    • MailServer=smtp.gmail.com
    • PortServer=465
    • [email protected] (gleiche mail)
    • SSLMethod=sslvTLSv1

    InformationsquelleAutor Germán Estévez -Neftalí-

Schreibe einen Kommentar