因為屢次 sync 通訊錄的關係, 我在 Outlook 裡面的行事曆或是通訊錄變成有好多重複的備份. 這種東西雖然害處不是很大, 但是既浪費硬碟空間, 看了也礙眼.
如果按照 Microsoft 官網上推薦的方法, 是可以一筆一筆地刪掉. 不過正常人應該都不會這麼做.
幸好, 還是有聰明的免費工具可以選擇. 我找到一個 VAitA 出品的 Outlook Duplicate Item Remover. 安裝它之後, 它在 Outlook 裡面會產生一個 ODIR 的按鍵. 點選此鍵, 會跳出一個應用程式, 我們就用它刪除各種重複的項目, 包括行事曆, 信件, 聯絡人, 工作, 筆記等等.
比較遺憾的是它只有 Windows 版本, 所以得在 Microsoft Windows 的環境下把東西清乾淨, 再靠 exchange server 更新到 Mac 的 Outlook 上. 另外一個限制是 64 bits 的 Office 不適用此軟體.
假如 outlook 每次都把以前備份的信件匯入, 那麼信箱裡就會塞滿很多重複的信件, 假如是使用 exchange 的話, 還會有很多重複的聯絡人, 會議等等, 相當地佔記憶體.
Windows 的用戶可以上網去抓一些免費的小工具, 但是 Mac 的用戶就比較辛苦了. 看來看去, Barry's Applecripts 不失為一個沒辦法中的選擇. 首先把有很多重複 mail 的 Outlook 信箱選起來 （select/select all）, 然後在 AppleScript 編寫程式裡面選 "執行" 就可以了.
當然, 最好是先備份一下, 以免誤殺義士, 還要把紫微軟劍體拋入深谷~~
— Remove Duplicate Message v2.1
— An Applescript by Barry Wainwright, 15th October 2010
— Detects and deletes duplicate messages within a selected folder
— works on Message-ID header – uniquely identifying duplicates
— Version History
— v1.0 – 2002-03-18: First Release (For Microsoft Entourage)
— v2.0 – 2010-10-07: modified to work with Microsoft Outlook for Mac
— v2.1 – 2010-10-15: added final dialog to summarise messages removed
tell application "Microsoft Outlook"
set theMessages to current messages
if theMessages = {} then
try
set theFolder to selected folder
set mb to theFolder
on error
display dialog "In the folder listing, please select the folder you want to be scanned for duplicates" with icon stop buttons {"Quit"} default button 1
return -99
end try
else
set mb to folder of item 1 of theMessages
end if
set theName to name of mb
say "Removing duplicates from mail folder: " & theName
set y to count messages of mb
say "Number of messages to check, " & y
set IDlist to {}
repeat with x from y to 1 by -1
try
set theHeaders to (get headers of message x of mb)
set AppleScript's text item delimiters to {return & "Message-"}
set temp to text item 2 of theHeaders
set AppleScript's text item delimiters to {return}
set theId to text 5 through -1 of text item 1 of temp
on error
set theId to ""
end try
if theId is in my IDlist then
delete message x of mb
else if theId ≠ "" then
copy theId to end of IDlist
end if
if x mod 100 = 0 then say "" & x
end repeat
set removedCount to y – (count messages of mb)
if removedCount is 0 then
say "Finished. No duplicates detected"
else
say "Finished. " & removedCount & " duplicates removed"
end if
display dialog "" & y & " messages checked" & return & removedCount & " messages removed" buttons {"OK"} default button 1
set AppleScript's text item delimiters to {""}
end tell
. 如果不想聽到聲音的話, 用 — 把 say mark 掉就行了.if theId is in my IDlist then
delete message x of mb
else if theId ≠ "" then
set IDlist to {}
copy theId to end of IDlist
end if
tell application "Microsoft Outlook"
Cash Chou's Blog 