VFP 愛用者社區

[liangszpt]

在搜索里搜完一遍又一遍，但也找不到很好的答案。或者是我不懂。
我的目的很简单，就是有两个TEXTBOX，一个用来填入EMAIL地址，一个用来指定一个特定附档的PATH。
然后按确定就发送出去。按下发送以后，希望不要再有人手干预，例如调用OUTLOOK等的邮件软件，还要用户按“发送”的。

希望各位不嫌麻烦，指点一下。

[garfield]

資料來源: http://wiki.sunyear.com.tw/index.php?title=%E5%A6%82%E4%BD%95%E5%AF%84%E4%BF%A1

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

oSession.LogonUI = .t.
oSession.SignOn

*-- The message control needs to reference the session control's ID.
oMessage.SessionID = oSession.SessionID
oMessage.MsgIndex = -1

*-- Set up our message and send it.
oMessage.Compose
oMessage.msgsubject = "Attachments sent using FoxPro and MAPI"
oMessage.msgnotetext = " Attached are some test files."

*-- Create an array holding the attachment file names.
DIMENSION lcAttachment(2)
lcAttachment(1) = home()+ "samples\data\customer.dbf"
lcAttachment(2) = home()+ "samples\data\customer.cdx"

*-- Attach the files.
FOR lnCount = 1 TO ALEN(lcAttachment)
oMessage.AttachmentIndex = lnCount - 1
oMessage.AttachmentPathName = lcAttachment(lnCount)
ENDFOR

*-- Send the message on its way.
oMessage.send(1)

[liangszpt]

收件人地址怎么填？

[garfield]

搜尋 mapi address
找到了,加入以下指令即可.
oMessage.RECIPADDRESS="xxx@abc.com.tw"