VFP 愛用者社區

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

請問高手們 , 如何以"MSMAPI.MAPISession"寄送MAIL，在本文中含有HTML之資料。

FUNCTION sendmail
Parameters pmailaddress,psubject,pnotetext
LOCAL attnum
oMAPISession = Create("MSMAPI.MAPISession")
oMAPIMessages = Create("MSMAPI.MAPIMessages")
oMAPISession.DownloadMail = .F.
oMAPISession.LogonUI = .T.
oMAPISession.username=''
oMAPISession.password=''

oMAPISession.SIGNON
oMAPISession.NewSession=.F.
oMAPIMessages.SESSIONID=oMAPISession.SESSIONID
oMAPIMessages.MsgIndex =-1
oMAPIMessages.COMPOSE

oMAPIMessages.RecipIndex = oMAPIMessages.RecipCount
oMAPIMessages.RecipDisplayName = Alltrim(rname)
oMAPIMessages.RecipAddress = pmailaddress
oMAPIMessages.RecipType = 1
oMAPIMessages.ResolveName

oMAPIMessages.MSGSUBJECT=psubject

oMAPIMessages.MsgNoteText=pnotetext //==>含有html的內文本體

oMAPIMessages.Send(0)

oMAPISession.SIGNOFF

Return .T.

Cedric · 註冊時間: 2003-08-02 文章: 19 第 2 樓

請教一下
利用上述程式發送EMAIL會失敗
檢查收件者內容, 發現
電子郵件類型應該是 SMTP, 卻會被存成對方EMAIL
該如何解決呢?

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

我是使用如下方法,好像正常

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

xses.SignOn
xmsg.SessionID = xses.SessionID

xmsg.MsgIndex = -1
xmsg.Compose
xmsg.RecipAddress="xxx@msa.hinet.net"
xmsg.msgsubject = "這是測試"
xmsg.msgnotetext = "<HTML><H2>My HTML page.</H2><BODY>My body.</BODY></HTML>"
xmsg.send(1)