2013年9月13日

VBA outLook

摘要: Sub test()Dim ol As New Outlook.ApplicationDim ns As Outlook.NameSpaceDim newMail As Outlook.MailItemSet ns = ol.GetNamespace("MAPI")Set newMail = ol.CreateItem(olMailItem)Set newMail = ol.CreateItemFromTemplate("C:\Users\Administrator\AppData\Roaming\Microsoft\Templates\TEST.oft" 阅读全文

posted @ 2013-09-13 23:35 鱼东鱼 阅读(445) 评论(0) 推荐(0) 编辑

导航