VFP 愛用者社區

215001 · 註冊時間: 2003-06-11 文章: 389 第 1 樓

我一次傳送5封郵件,但是打開 OutLook Express 後,發現還有4封信還在寄件夾內,
請問要如何才能將它們一次全部傳送出去
程式碼如下:

xses = CREATEOBJECT("MSMAPI.MAPISESSION.1")
xmsg = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1")

xses.signon
xmsg.sessionid=xses.sessionid

FOR xi=1 TO 5
xmsg.compose
xmsg.msgsubject="這是郵件"+STR(xi,2)
xmsg.msgnotetext="測試"
xmsg.recipaddress="xxx@msa.hinet.net"
xmsg.send(0)
NEXT

xses.signoff

garfield · 發表於: 星期一九月 14, 2009 3:59 pm 文章主題:

可能是你的outlook Express 沒有設成啟動時傳送與接數郵件的關係吧!
不然你試看看改用
FOR xi=1 TO 5

xses.signon
xmsg.sessionid=xses.sessionid

*FOR xi=1 TO 5
xmsg.compose
xmsg.msgsubject="這是郵件"+STR(xi,2)
xmsg.msgnotetext="測試"
xmsg.recipaddress="xxx@msa.hinet.net"
xmsg.send(0)
*NEXT

xses.signoff
NEXT

215001 · 註冊時間: 2003-06-11 文章: 389 第 3 樓

謝謝 garfield 兄,原本我就是採用你說的那個方式
只是每次都要signon / signoff ,我想減少sigon/signoff的次數 (因登入信箱偶爾會失敗)

另外,我的outlook Express 有設成啟動時傳送與接數郵件

garfield · 發表於: 星期一九月 14, 2009 11:12 pm 文章主題:

測看看你在 xmsg.send(0) 之後加上
inkey(10)
等10秒看看會不會是電腦跑太快而造成沒去處理其它郵件.

215001 · 註冊時間: 2003-06-11 文章: 389 第 5 樓

沒錯,電腦跑太快,還沒送完信
就被登出,而造成有些信還在寄件夾內

看來還要去深入了解MAPI的事件與錯誤處理了
不知 garfield兄有沒有相關網頁能推薦

garfield · 發表於: 星期二九月 15, 2009 10:58 am 文章主題:

要深入研究mapi 不如去研究直接用winsock透過smtp server 直接寄信,
winsock 可以收/發信, 如果你不用儲存信件, 這是個好方法.
你可以用 winsock email 搜本站就有資料.
但範例都是以英文為主, 如要使用中文,你須要考慮email 編碼的問題, 通常是用 base64
這個編碼vfp9是內建的, vfp6 你就參考我改寫fox.wikis.com的程式.
又如果要夾帶附件, 你必須去研究 email 文件的格式.
是有點麻煩, 但VFP一定是可以做到的.
good luck

lcm · 註冊時間: 2004-12-27 文章: 45 第 7 樓

請問先進大大們，
是否可設定讀取回條?因在outlook的追蹤設定了
"送達回條"及"讀取回條"的選項，但仍無法達到
取回條的功能。
但一般在outlook內新增mail寄送就可有回條，
請問該如何做才可達到回條的功能?謝謝。

garfield · 發表於: 星期四九月 17, 2009 9:10 am 文章主題:

xmsg.MsgReceiptRequested=.T.

215001 · 註冊時間: 2003-06-11 文章: 389 第 9 樓

我加上
xmsg.MsgReceiptRequested=.T.

也是無效,

讀取郵件時,不會問是否傳送讀取回條

lcm · 註冊時間: 2004-12-27 文章: 45 第 10 樓

garfield大大，
測試後確實無效，是否要再加入其他指令，謝謝。

garfield · 發表於: 星期四九月 17, 2009 5:48 pm 文章主題:

參考看看 http://support.microsoft.com/kb/104624/zh-tw
當你收到"傳送回條"的信,
outlook是不一定會傳送回條,
這要看你的outlook是設定如何傳送回條.