VFP 愛用者社區

[Cedric]

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

oSession.DownloadMail = .F.
oSession.LogonUI = .T.
oSession.username=''
oSession.password=''

aa = oSession.SignOn

*-- 使用者已登入成功
oMessage.SessionID = oSession.SessionID
oMessage.NewSession=.F.
oMessage.MsgIndex = -1 && The compose buffer
oMessage.Compose

oMessage.RecipIndex = oMessage.RecipCount && 100.06.16

*-- 已轉成檔案
oMessage.RecipDisplayName = "Mr Wang"
*- 收件人
oMessage.RecipAddress = "cc@msa.hinet.net"
oMessage.RecipType = 1
*- 主旨
oMessage.MsgSubject = "主旨test"
*- EMAIL內容
oMessage.MsgNoteText = "附件說明"

oMessage.AttachmentIndex = 1
oMessage.AttachmentPathName = "c:\test.pdf"
oMessage.AttachmentName = "test.PDF"
oMessage.AttachmentPosition = 1

oMessage.MsgReceiptRequested=.T. && mail寄送就可有回條

oMessage.Send(0)
oSession.SignOff



以上述語法執行EMAIL發送, 都會失敗
顯示 "未傳遞的主旨:主旨test"
有些或所有收件者未收到您送出的郵件。


點選收件者時
顯示名稱: Mr Wang
電子郵件地址: cc@msa.hinet.net
電子郵件類型: cc@msa.hinet.net
網際網路格式: 使用 Outlook Rich Text (RTF)格式傳送

其中, 電子郵件類型 應該是 "SMTP", 可是卻看到 對方的EMAIL ADDRESS
請教一下, 該如何修改語法呢?
謝謝.

[Cedric]

還是哪裡的語法程式有寫錯呢?
拜託各位幫忙了^^

[liangszpt]

现在我也遇到一模一样的问题。请赐教

[liangszpt]

各位有没有遇到过？

[liangszpt]

找到原因了，按你的程序 ，这样改就应该可以：
*- 收件人
oMessage.RecipAddress = "SMTP:cc@msa.hinet.net"


http://social.technet.microsoft.com/Forums/en/w7itproappcompat/thread/557206c3-1664-4566-8ec5-db6b7da72e24