.net – 自动化前景

2019年8月3日 195次阅读

我的膝盖上抛出一项任务,要求我：

>在Outlook 2010中迭代许多(1000个)消息文件夹
>对于特定子文件夹中的每个文件夹,右键单击菜单,选择export as pdf(这是一个插件“DocumentExporter”),然后单击确定按钮

我很少使用outlook,所以我从来没有将它自动化到这个程度.我看到你可以用vba做,也可能用.net(我已经安装了.net可编程性扩展)

有关最快捷方式的任何建议吗？

谢谢！

最佳答案 我这里没有Outlook,所以以下是air-code.

Sub DoIt()
  Recurse ActiveExplorer.CurrentFolder ' select relevant folder in Outlook first
End Sub

Sub Recurse(f as MAPIFolder)
  Dim sf As MAPIFolder

  PrintPdf

  For Each sf In f.Folders
    ' open a potential sub-tree of folders, and move down one folder in the UI
    SendKeys "{RIGHT}{PAUSE 100}{DOWN}"
    Recurse sf
  Next f
End Sub

Sub PrintPdf()
  ' open the context menu, go down 4 entries, press enter, wait 10 seconds
  SendKeys "{APP}{PAUSE 100}{DOWN 4}{ENTER}{PAUSE 10000}"
End Sub

我不知道这是否有用,这只是一个想法.运行此操作时确保Outlook处于前台(通过将DoIt()例程分配给自定义工具栏按钮).必须在开始之前选择起始文件夹.

点赞