IT数码

Dim objOutlook
Dim objOutlookMsg
Dim olMailItem
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
Set mapi = objOutlook.GetNameSpace("MAPI")
objOutlookMsg.To = "ＭＡＩＬ地址        "
objOutlookMsg.Subject = "qtp 发送"
objOutlookMsg.Body = "收到否"
objOutlookMsg.Display
objOutlookMsg.Send
objOutlook.quit
Set objOutlook = Nothing
Set mapi = Nothing