2015-05-29 78 views
0

导出联系人是否有某种方式悄悄使用脚本来导出CSV雷鸟联系,所以我们就不必为每个用户做手工?如何自动从雷鸟

我的目的是把所有收集的地址(存储在history.mab)雷鸟到Outlook 2013在多个站点。

回答

0

经过一番研究,有可能是没有笔直的路该怎么做。

我已经结束了这个简单的宏,它启动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 
(只打算用列表的不断工程量)