如何寄信

出自VFP Wiki

來源

• http://fox.hanyu.com.tw/View.aspx?fbId=1&Id=18075
• http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_imessage_interface.asp

提供者

• 由狐友violet提供
• 傳遞 html 格式與附件,是由狐友 erwin_ho 提供.

環境

• Windows 版本: 2000 以後的版本

範例

oMSG = createobject("CDO.Message")
oMSG.To = "violet@kkk.com.tw"
oMSG.From = "violet@kkk.com.tw"
oMSG.Subject = "Hello Email"
oMSG.TextBody = "This is an easy way to create an email"
oMSG.Send()
RELEASE omsg

oMSG.HTMLBody="傳HTML格式"
=oMSG.addattachment("C:\TEST.TXT") <--傳附件