2014年3月11日
遍历打开了的word路径
摘要： Set wordApp=getObject(,"word.Application")wordApp.Visible=trueDim odocFor each odoc in wordApp.Documentsmsgbox "Name:"& odoc.Name & ",path:"& odoc.pathNext 阅读全文
posted @ 2014-03-11 16:11 赏客 阅读(182) 评论(0) 推荐(0)
QTP：使用outlook发送邮件
摘要： 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 阅读全文
posted @ 2014-03-11 15:55 赏客 阅读(211) 评论(0) 推荐(0)