摘要：
Set wordApp=getObject(,"word.Application")wordApp.Visible=trueDim odocFor each odoc in wordApp.Documentsmsgbox "Name:"& odoc.Name & ",path:"& odoc.pathNext 阅读全文
摘要：
Dim objOutlook Dim objOutlookMsg Dim olMailItem ' Create the Outlook object and the new mail object. Set objOutlook = CreateObject("Outlook.Application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) Set mapi = objOutlook.GetNameSpace("MAPI") ' Define mail recipie 阅读全文