sol12-6.vbs

来自「Apress - Managing Enterprise Systems Wit」· VBS 代码 · 共 14 行

Const MsgHigh = 2

Dim objSession, objMessage 
Set objSession = CreateObject("MAPI.Session")
objSession.Logon 
Set objMessage = objSession.Outbox.Messages.Add

objMessage.Subject = "Test message" 
objMessage.Importance = MsgHigh
objMessage.Sensitivity =  True 
objMessage.ReadReceipt = True 
objMessage.DeliveryReceipt = True objMessage.Type = "IPM.SCBSpecialMessage" 
objMessage.Text= "Testing"