VFP 愛用者社區

raylian · 註冊時間: 2006-08-09 文章: 25 第 1 樓

如果指定EMAIL,每次按發送時都會先跳出一窗口如下圖,按Y后還是可以執行,
請教各位應如何處理,謝謝!

ON ERROR m.cErrMsg = MESSAGE()

oSession = CREATEOBJECT("MSMapi.MapiSession")
oMessage = CREATEOBJECT("MSMapi.MapiMessages")

oSession.LogonUI = .f.
oSession.downloadmail=.f.
oSession.SignOn

oMessage.SessionID = oSession.SessionID
oMessage.MsgIndex = -1
oMessage.Compose

oMessage.recipIndex =oMessage.RecipCount
oMessage.recipaddress ="ABC@163.com"
oMessage.ResolveName()

oMessage.send(1)
oSession.SignOff
RELEASE oSession,oMessage
Return m.cErrMsg

marvin · 註冊時間: 2004-06-01 文章: 321 第 2 樓

<搜尋 > 看看, 我記得常有人問這問題

sheuok · 發表於: 星期三十一月 14, 2007 9:04 am 文章主題:

請將 oMessage.send(1) 改為 oMessage.send(0) 試試

mooy · 註冊時間: 2003-09-29 文章: 22 第 4 樓

這個鳥問題, 困惱蠻不少人

在下列官方微卵的網頁上
http://support.microsoft.com/kb/290500/
有一句話已經打死大家的希望:
您不再可以使用 Execute 方法，以程式設計方式按一下 Outlook 工具列上的 [傳送] 按鈕。雖然這通常不是用於 Outlook 解決方案，但為了防止惡意用途，這項變更已經實行。您會收到有關所有這些訊息的 C 或 C++ 程式語言的 E_FAIL 傳回碼。

所以,
OutLookObject.Send(),
OutLookObject.Send(0),
OutLookObject.Send(.F.),
統統都會失敗

不過, 還是有國外3-rd party 軟體公司寫了一個旁門走道的工具:
http://www.slipstick.com/outlook/esecup/admin.htm
經過測試, 還不錯用 Laughing

試試

mooy · 註冊時間: 2003-09-29 文章: 22 第 5 樓

哇, 打錯網址

http://www.contextmagic.com/

這才對, sorry