后台默认发送邮件 |
答題得分者是:eaglewolf
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
|
eaglewolf
資深會員 發表:4 回覆:268 積分:429 註冊:2006-07-06 發送簡訊給我 |
可用 Indy 元件
TIdMessage 及 TIdSMTP [code delphi] idMessage1.From.Text := '"EagleWolf" idMessage1.BccList.Add.Address := strUserMailAddress; idMessage1.Subject := 'Test Subject'; idMessage1.Body.Add('Mail Content'); idSmtp1.AuthenticationType := atLogin; idSmtp1.Host := '192.168.0.1'; idSmtp1.Port := 25; idSmtp1.UserId := 'eaglewolf'; idSmtp1.Password := 'eaglewolf'; try idSmtp1.Connect; Try idSmtp1.Send(idMessage1); except idSmtp1.Disconnect; ShowMessage('Send Mail Failed!'); Exit; end; idSmtp1.Disconnect; ShowMessage('Mail Sent!'); except ShowMessage('Connect to Mail Server Failed!'); end; [/code] ===================引 用 zhouying82 文 章=================== 我用shellexecute(handle,open,pchar('mailto':zhouying@163.com'),nil,nil,sw_shownormal); 发送邮件,程序会调用自身的邮件客户端发送,比如说OUTLOOK,OUTLOOK EXPRESS,但是问题是每次都会弹出窗口,要你继续点击发送命令才行,我想请问,有么有是么办法,让他在后台直接发送?
------
先查HELP 再查GOOGLE 最後才發問 沒人有義務替你解答問題 在標題或文章中標明很急 並不會增加網友回答速度 Developing Tool: 1.Delphi 6 2.Visual Studio 2005 3.Visual Studio 2008 DBMS: MS-SQL
編輯記錄
eaglewolf 重新編輯於 2009-02-16 09:01:31, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |