Sử dụng Gmails Outgoing SMTP từ DELPHI (Indy) bằng TLS

Question

Tôi đang sử dụng INDY để gửi Email bằng ứng dụng khách SMTP trên cổng 25 mà không có vấn đề gì.

Bây giờ tôi cần gửi một email bằng tài khoản Gmail và tôi cần sử dụng TLS.

Bất kỳ ai cũng có thể cung cấp một mẫu đơn giản về cách thực hiện điều đó.

Cảm ơn

Answer 1

Mã này làm việc cho 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; 

Answer 2

Bạn cần dll SSL để làm cho công việc IdSSLIOHandler.

Có thông tin tại Indy SSL Website mà chuyển hướng bạn đến Fulgan Download Site

Bạn có thể tải về một gói thích hợp cho nền tảng của bạn và sau đó bao gồm 2 dlls với ứng dụng của bạn. Bản thân tôi đang sử dụng 2 dll với các thành phần indy để gửi thư qua email trong hơn 2 năm. Vấn đề duy nhất là việc gửi khá chậm.

Answer 3

Bạn không nói phiên bản Indy nào bạn đang sử dụng. Để sử dụng TSL (thay đổi bảo mật cuối cùng trong Hotmail/GMaill), bạn cần sử dụng Indy 10.

Xem description here.

Trên thực tế Y sử dụng configuraction này để gửi mail bằng Gmail và nó hoạt động một cách chính xác:

• MailServer = smtp.gmail.com
• = PortServer 465
• FromText=account@gmail.com (cùng thư)
• SSLMethod = sslvTLSv1