function TUmain.sendmail(ppfile,ppSub,ppbody,snedgroup,DB:String):String;
Var
SQL,ttSQL,ErrMsg : String;
SendType,ttC,a : Integer;
ttSmtp : TIdSMTP;
ttMsg : TIdMessage;
begin
SendType := 0;
ErrMsg := '';
try
ttSmtp := TIdSMTP.Create(nil);
ttMsg := TIdMessage.Create(nil);
try
with ttMsg do begin
Clear;
Body.Add(ppbody);
From.Text := 'neomailtest@gmail.com';
From.Name :='測試';
Recipients.EMailAddresses := ttMailList.CommaText;
Subject := ppSub;
ReceiptRecipient.Text := '';
end;
ttSmtp.AuthenticationType := atLogin;
ttSmtp.UserId := 'xxxxxxx'; //帳
ttSmtp.Password := 'xxxxxx'; //密
ttSmtp.Host :='smtp.gmail.com';
ttSmtp.Port := 465;
ttSmtp.Connect;
Application.ProcessMessages;
try
ttSmtp.Send(ttMsg);
Result := 'Mail發送完成';
finally
ttSmtp.Disconnect;
end;
except on E : Exception do
begin
ErrMsg := E.Message;
end;
end;
finally
ttSmtp.Free;
ttMsg.Free;
end;
end;
//------------------------------------------------------------
這是我的程式碼,想請教大大們,同樣的程式碼,用公司的mailsever就可以寄,可是我把它換成用gmail來寄,執行到 ttSmtp.Connect<===就停住了, 不曉得為什麼?肯請大大們賜教><
---------------------------------------------------------------
若把port改成25,則會出現下面的錯誤><
---------------------------
Debugger Exception Notification
---------------------------
Project SearchIP.exe raised exception class EIdProtocolReplyError with message '530 5.7.0 Must issue a STARTTLS command first. 33sm3109078yxr.3'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

編輯記錄

應是SSL設定的問題。gmail 蠻龜毛的。

急急急 ... 使用IdSMTP寄信出錯 ... (Gmail SMTP)
http://delphi.ktop.com.tw/board.php?cid=168&fid=920&tid=84547

------
努力會更接近成功

===================引 用 pceyes 文 章===================
應是SSL設定的問題。gmail 蠻龜毛的。

急急急 ... 使用IdSMTP寄信出錯 ... (Gmail SMTP)
http://delphi.ktop.com.tw/board.php?cid=168&fid=920&tid=84547


請問一定要用增加原件的方式嗎?若以Delphi6現有的環境,能否做到呢??

===================引 用 chishain1024 文 章===================

===================引 用 pceyes 文 章===================
應是SSL設定的問題。gmail 蠻龜毛的。

急急急 ... 使用IdSMTP寄信出錯 ... (Gmail SMTP)
http://delphi.ktop.com.tw/board.php?cid=168&fid=920&tid=84547


請問一定要用增加原件的方式嗎?若以Delphi6現有的環境,能否做到呢??
//yahoo設定
外寄郵件伺服器 (SMTP)： smtp.mail.yahoo.com.tw
使用 SSL，連接埠 (port): 465，使用安全驗證
//gmail設定
外寄信伺服器（smtp): smtp.gmail.com
完成後再選帳戶「內容」===>進階
外寄信件連接阜改「465」
//giga設定
SMTP.Host:='smtp.giga.net.tw';
SMTP.Port:=25;


以上是我收集的設定,不知道是否有錯誤呢?

===================引 用 pceyes 文 章===================
應是SSL設定的問題。gmail 蠻龜毛的。

急急急 ... 使用IdSMTP寄信出錯 ... (Gmail SMTP)
http://delphi.ktop.com.tw/board.php?cid=168&fid=920&tid=84547

//------------------------------------------------------------------------------------------------------------
問題已經解決囉!
主要是我少了以下兩行程式碼
IdSMTP1->Intercept = IdConnectionInterceptOpenSSL1;
IdSMTP1->InterceptEnabled = true;
在此與個位分享^^