Fatal编程技术网
  • vbscript/
  • 使用VBScript在Outlook 2013中单击链接

使用VBScript在Outlook 2013中单击链接

vbscript outlook

使用VBScript在Outlook 2013中单击链接,vbscript,outlook,Vbscript,Outlook,我想使用VBScript单击电子邮件正文中的链接？这有可能吗。。。 电子邮件在我的草稿文件夹中。到目前为止，我已经能够导航到我的草稿文件夹 olFolderDrafts = 16 Set objOutlook = CreateObject("Outlook.Application") Set objNameSpace = objOutlook.GetNamespace("MAPI") Set objDrafts = objNamespace.GetDefaultFolder(olFolderD

我想使用VBScript单击电子邮件正文中的链接？这有可能吗。。。 电子邮件在我的草稿文件夹中。到目前为止，我已经能够导航到我的草稿文件夹

olFolderDrafts = 16
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI") 
Set objDrafts = objNamespace.GetDefaultFolder(olFolderDrafts)
MsgBox objDrafts.Items.Count
对每个循环使用
来枚举ObjDraft的项，将项中的
HTMLBody
存储到变量中，并从该变量中提取带有正则表达式的链接。

单击它将不起作用，因为它没有GUI，但您可以使用类似以下内容打开链接
CreateObject（“WScript.Shell”）。运行（“http://www.google.com“”
在哪里运行代码？它是一个外部应用程序吗？他必须迭代所有的程序吗？为什么不应该呢？冻结UI需要很多时间。最好使用Find/FindNext或Restrict方法来查找子集。