VFP 愛用者社區

garfield · 發表於: 星期四四月 13, 2006 11:05 am 文章主題:

請把你寫的程式碼貼上來,
大家幫你看一下是那裡有問題.

garfield · 發表於: 星期四四月 13, 2006 4:38 pm 文章主題:

oMAPISession = create("MSMAPI.MAPISession")
oMAPIMessages = create("MSMAPI.MAPIMessages")
with oMAPISession
.logonui=.T.
.DownloadMail = .F.
.signon()
if .SessionID <= 0
messagebox('登入郵件程式失敗')
return .f.
endif
endwith

maddress = "matrix@ms34.hinet.net"
msubject = "測試主旨"
mNoteText = "xx 客戶您好:" +chr(13)+chr(10)
mfilename = ="f:\fareast_950409\file_1.txt"

with oMAPIMessages
.sessionid = oMAPISession.sessionid
*清除緩衝區
.compose()
.recipIndex = .recipCount
.recipDisplayname= alltrim(maddress)
.recipaddress = alltrim(maddress)
.reciptype=1 &&--1=收件者(內定值)
.ResolveName()
*郵件主旨
.msgsubject= msubject
*內容
.msgNoteText = mNoteText

.AttachmentIndex = .AttachmentCount
.AttachmentPathName = mfilename
.AttachmentName = justfname( mfilename )
endwith