VFP 利用Outlook傳送郵件

利用Outlook傳送郵件

#DEFINE MAILITEM 0
#DEFINE IMPORTANCELOW 0
#DEFINE IMPORTANCENORMAL 1
#DEFINE IMPORTANCEHIGH 2

oOutLookObject = CreateObject("Outlook.Application")
oEmailItem = oOutLookObject.CreateItem(MAILITEM)

WITH oEmailItem
.Recipients.Add("[e-mail]")
objOutlookRecip = .Recipients.Add("[e-mail]")
objOutlookRecip.Type = 2 &&副本
.Subject = "測試資料"
.Importance = IMPORTANCENORMAL
.Body = "這是測試vfp送出的資料，此資料由vfp送出"
.Attachments.Add("c:\a.txt")
.Send
ENDWITH

RELEASE oEmailItem
RELEASE oOutLookObject