Question

是否有某种方法可以使用脚本以静默方式从Thunderbird导出联系人，因此我们不必为每个用户手动执行此操作？

我的目的是将所有收集的地址（存储在history.mab中）从Thunderbird移动到多个工作站的Outlook 2013.

Answer 1

经过一些研究，可能没有直接的方法可以做到。

我最终得到了这个简单的宏，它启动Thunderbird并通过地址簿将选定的联系人列表导出为CSV - 远非理想，但它在大多数情况下都有效。（仅适用于预定数量的列表）

SET oShell = CreateObject( "WScript.Shell" )

oShell.Run """C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"""
WScript.Sleep 10000 ' wait a bit for opening Thunderbird
oShell.SendKeys "^+b" 'open address book
WScript.Sleep 2000
oShell.SendKeys "{TAB}{TAB}"
oShell.SendKeys "{DOWN}"
oShell.SendKeys "%n"
oShell.SendKeys "x"
WScript.Sleep 2000
oShell.SendKeys "thunderbird_export_" & username & "" 'name your CSV
WScript.Sleep 1000
oShell.SendKeys "{TAB}"
oShell.SendKeys "{DOWN}{DOWN}"
oShell.SendKeys "{ENTER}"
WScript.Sleep 1000
oShell.SendKeys "^l"
WScript.Sleep 1000
oShell.SendKeys "u:{ENTER}" 'set destination folder
WScript.Sleep 1000
oShell.SendKeys "%u"
WScript.Sleep 1000
oShell.SendKeys "{ENTER}"
WScript.Sleep 1000

' close both adress book and Thunderbird
oShell.Run("taskkill /im thunderbird.exe")
WScript.Sleep 1000
oShell.Run("taskkill /im thunderbird.exe")

WScript.Quit

如何从Thunderbird自动导出联系人

1 个答案: