0
导出联系人是否有某种方式悄悄使用脚本来导出CSV雷鸟联系,所以我们就不必为每个用户做手工?如何自动从雷鸟
我的目的是把所有收集的地址(存储在history.mab)雷鸟到Outlook 2013在多个站点。
导出联系人是否有某种方式悄悄使用脚本来导出CSV雷鸟联系,所以我们就不必为每个用户做手工?如何自动从雷鸟
我的目的是把所有收集的地址(存储在history.mab)雷鸟到Outlook 2013在多个站点。
经过一番研究,有可能是没有笔直的路该怎么做。
我已经结束了这个简单的宏,它启动Thunderbird,通过ADRESS簿导出选定的联系人列表到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
(只打算用列表的不断工程量)