最權(quán)威的Outlook中的 VBA 入門

1、Outlook 2010 中的 VBA 編程您是否面臨從 Outlook 2010 中重復清除多個聯(lián)系人的難題？是否必須將大量電子郵件附件逐一保存到硬盤？是否想從某些電子郵件消息中自動創(chuàng)建日歷項目？還是不知道如何將 Microsoft Outlook 2010 中的聯(lián)系人高效地導入 Microsoft Excel 2010 電子表格？ 使用 Visual Basic for Applications (VBA) 可以執(zhí)行上述任務并實現(xiàn)更多功能，VBA 是一種簡單而又強大的編程語言，可為 Office 2010 應用程序擴展新功能，還可以自動執(zhí)行重復性任務。本文面向有經(jīng)驗的 Outlook 用戶

2、，他們希望了解有關 VBA 的信息，還希望深入了解編程對其根據(jù)需要定制 Outlook 2010 有何幫助。在閱讀本文之前，您可能要閱讀介紹性文章Office 2010 中的 VBA 入門，其中詳細介紹了有關 VBA 編程的基礎知識。Office 2010 中的 VBA 編程的強大功能在于，使用 VBA 可以完成用鼠標、鍵盤或?qū)υ捒蚩梢詧?zhí)行的幾乎所有操作。而且，如果使用 VBA 可以執(zhí)行一次，就可以輕松地執(zhí)行上百次、上千次。（實際上，自動執(zhí)行重復性任務是 VBA 在 Office 中的一種最常見用法。）除了可通過編寫 VBA 腳本來加速執(zhí)行日常任務，還可以使用 VBA 為 Office 201

3、0 應用程序添加新功能，或以特定于您的業(yè)務需要的方式來提示文檔用戶并與之交互。例如，在 Outlook 2010 中，您可以使用 VBA 通過標準用戶界面中未提供的方式對聯(lián)系人、電子郵件、日歷項目或任務執(zhí)行排序、導出和修改操作。本文中的教程可使用 VBA 實現(xiàn) Outlook 的自動化。該教程是一個實際示例，研究為有經(jīng)驗的 Outlook 用戶提供的編程、VBA 和開發(fā)工具。選擇方法VBA 編程是一種功能強大的解決方案，但并不總是最佳方法。有時候使用其他途徑來實現(xiàn)目標更合適。關鍵問題在于是否有更簡單的方法。在開始 VBA 項目之前，請考慮內(nèi)置工具和標準功能。例如，如果需要在 Outlook 中

4、執(zhí)行一項費時的操作，可考慮使用規(guī)則來解決此問題。是否可以執(zhí)行一次任務然后使用 Ctrl+Y（重做）來重復該任務？Outlook 2010 是一種功能強大的應用程序；您需要的解決方案可能已經(jīng)準備就緒了?；ㄐr間了解有關 Outlook 2010 的更多信息，再跳轉(zhuǎn)到編程過程。在開始 VBA 項目之前，確保您有時間使用 VBA。需要關注編程，編程結(jié)果可能無法預知。尤其是初學者，除非有時間仔細研究，否則切勿依靠編程。當期限迫近會造成極大壓力時，可嘗試編寫“快速腳 本”來解決問題。如果您的時間很緊，可以使用較傳統(tǒng)的方法，即使這些方法單調(diào)又重復，也必須這樣做。VBA 編程 101通過代碼使應用程序執(zhí)行操

5、作您可能認為編寫代碼是一項神秘而又復雜的工作，但基本原則是使用日常推理，并且很容易掌握。Office 2010 應用程序的創(chuàng)建方式如下：公開可以接收指令的對象，類似于為了與電話交互而設計帶按鍵的電話。按下按鍵時，電話會識別指令并按照撥號順序包括對應的號碼。在編程時，您是通過向應用程序中的各個對象 發(fā)送指令來與應用程序交互。這些對象是可擴展的，但有限制。這些對象只能執(zhí)行為其設計的操作，并且只按照您的指令執(zhí)行操作。例如，請考慮這樣的用戶：他在 Outlook 中創(chuàng)建電子郵件、選擇收件人、鍵入郵件主題，然后單擊“發(fā)送”。在 VBA 編程中，Outlook 會公開一個 MailItem 對象。使用 V

6、BA 代碼，您可以設置 MailItem 的主題和正文，并告訴它執(zhí)行“保存”或“發(fā)送”操作。閱讀本文后，您將了解有關這些對象、這些對象的組織方式及其描述和操作方式的更多信息。對象、方法和屬性開發(fā)人員通過層次結(jié)構(gòu)來組織編程對象，該層次結(jié)構(gòu)稱為應用程序的對象模型。例如，Outlook 中的“收件箱”是 Outlook Namespace 對象中的一個 Folder 對象。Folder 對象包含 MailItem 對象，等等。對象模型概略地對用戶界面中顯示的內(nèi)容進行鏡像，對象模型是應用程序及其功能的概念圖。從編程角度而言，F(xiàn)older 對象可以包含任意類型的項目對象，但通常 Outlook 用戶界面

7、中的幾個文件夾都主要由特定類型的項目對象組成。例如，Outlook 用戶界面提供一個主要包含 ContactItem 對象的“聯(lián)系人”文件夾，和一個主要包含 AppointmentItem 和 MeetingItem 對象的“日歷”文件夾。對象的定義稱為類，因此您可能會看到互換使用這兩個術語的情況。從技術上講，類是用于創(chuàng)建或?qū)嵗?對象的說明或模板。只要對象存在，便可通過設置其屬性 和調(diào)用其方法 來處理該對象。如果您認為對象是一個名詞，則屬性是描述該名詞的形容詞，方法是為名詞賦予行動的動詞。更改屬性會更改對象的外觀或行為的質(zhì)量。調(diào)用對象的一個方法可使對象執(zhí)行某個操作。在了解 Outlook 中

8、對象模型的基本布局以及 Application、Explorer 和 Folder 對象的一些關鍵屬性（允許您訪問當前狀態(tài)）后，便可以開始使用 VBA 擴展和處理 Outlook 了。宏和 Visual Basic 編輯器既然您已了解 Outlook 2010 應用程序如何公開其對象模型，可能已等不及要嘗試調(diào)用對象方法、設置對象屬性以及響應對象事件。為此，您必須在一個位置以 Office 可以理解的方法編寫代碼；通常使用是 Visual Basic 編輯器。盡管該編輯器是在默認情況下安裝的，但在功能區(qū)中啟用該編輯器之前，許多用戶都不知道該編輯器的存在。打開“開發(fā)工具”選項卡所有 Office

9、2010 應用程序都使用功能區(qū)。功能區(qū)中有一個“開發(fā)工具”選項卡，在此可以訪問 Visual Basic 編輯器和其他開發(fā)人員工具。由于 Office 2010 在默認情況下不顯示“開發(fā)工具”選項卡，因此必須使用以下過程啟用該選項卡：啟用“開發(fā)工具”選項卡1. 在“文件”選項卡上，選擇“選項”打開“Outlook 選項”對話框。2. 單擊該對話框左側(cè)的“自定義功能區(qū)”。3. 在該對話框左側(cè)的“從下列位置選擇命令”下，選擇“常用命令”。4. 在該對話框右側(cè)的“自定義功能區(qū)”下，選擇“主選項卡”，然后選中“開發(fā)工具”復選框。5. 單擊“確定”。注釋：在 Office 2007 中，顯示“開發(fā)工具”

10、選項卡的方法是單擊 Office 按鈕、單擊“選項”，然后在“選項”對話框中的“常用”類別下選中“在功能區(qū)顯示開發(fā)工具選項卡”復選框。啟用“開發(fā)工具”選項卡后，可以輕松找到“Visual Basic”和“宏”按鈕。圖 1. Outlook 2010 中的“開發(fā)工具”選項卡安全問題默認情況下，為了使您免受病毒和其他惡意代碼的侵害，Outlook 中會禁用 VBA 宏。若要啟用這些宏，請使用以下過程：啟用宏1. 在“文件”選項卡上，選擇“Outlook 選項”打開“Outlook 選項”對話框，然后單擊“信任中心”。2. 單擊“信任中心設置”，然后單擊左側(cè)的“宏設置”選項。3. 選擇“為所有宏提供

11、通知”，然后單擊“確定”。該選項允許在 Outlook 中運行宏，但在宏運行之前，Outlook 會提示您確認是否要運行宏。4. 重新啟動 Outlook 以使配置更改生效。Visual Basic 編輯器在顯示“開發(fā)工具”選項卡后，可以打開 Visual Basic 編輯器，該編輯器是用于編寫和編輯用于 Outlook 的 VBA 代碼的內(nèi)置工具。使用以下過程可以打開 Visual Basic 編輯器：打開 Visual Basic 編輯器1. 單擊“開發(fā)工具”選項卡上的“宏”按鈕。2. 在隨后出現(xiàn)的“宏”對話框中的“宏名稱”下鍵入 Test。3. 單擊“創(chuàng)建”按鈕打開 Visual Bas

12、ic 編輯器，其中包含已鍵入的新宏的大綱。Visual Basic 編輯器包含下列代碼。VBASub Test()End SubSub 代表“Subroutine”（子例程），可將其暫時定義為“宏”。運行 Test 宏將運行 Sub Test() 與 End Sub 之間的所有代碼?，F(xiàn)在，請編輯宏，使其類似如下代碼。VBASub Test() MsgBox("Hello world")End Sub圖 2. 在 Visual Basic 編輯器中測試宏注意 Visual Basic 編輯器的左面板。Test 宏位于 Project1 的 Module1 中。一個項目模塊包含

13、多個模塊，每個模塊包含可以作為 .bas 文件導入或?qū)С龅?VBA 代碼的集合。只要對象存在，便可通過設置其屬性 和調(diào)用其方法 來處理該對象。您編輯過的子例程中包含一個方法，該方法是用于執(zhí)行操作的代碼。該子例程中的 Test() 方法現(xiàn)在是對象 Project1 的一個成員。 注釋：其他 Office 應用程序可能會在 Visual Basic 編輯器中列出多個項目，但在 Outlook VBA 中，只列出一個項目，并且該項目始終名為 Project1。返回到 Outlook 中的“開發(fā)工具”選項卡，再次單擊“宏”按鈕。在隨后出現(xiàn)的列表中選擇“Project1.Test”宏，然后單擊“運行”顯

14、示包含文本“Hello, world!”的小消息框。祝賀您！您剛剛在 Outlook 中創(chuàng)建并實現(xiàn)了 VBA 代碼！在消息框中單擊“確定”關閉消息框并完成宏的運行。如果未出現(xiàn)消息框，請檢查宏安全性設置并重新啟動 Outlook。使宏可供訪問如果您經(jīng)常使用宏，可能會發(fā)現(xiàn)用鍵盤快捷方式或“快速訪問工具欄”按鈕訪問宏更為方便。若要在“快速訪問工具欄”中為“Test”宏創(chuàng)建按鈕，請使用以下過程：在“快速訪問工具欄”中為宏創(chuàng)建按鈕1. 單擊“文件”選項卡。2. 單擊“選項”打開“Outlook 選項”對話框，然后單擊“快速訪問工具欄”。3. 在“從下列位置選擇命令:”下的列表中，選擇“宏”。在隨后出現(xiàn)的

15、列表中查找類似于“Project1.Module1.Test”的文本，并選擇該文本。 4. 單擊“添加 >>”按鈕將宏添加到右側(cè)的列表中，然后單擊“修改”按鈕選擇與該宏關聯(lián)的按鈕圖像。 5. 單擊“確定”?，F(xiàn)在，您應在“快速訪問工具欄”中的“文件”選項卡上方看到新按鈕。 現(xiàn)在，您不必使用“開發(fā)工具”選項卡，便可隨時快速運行宏，趕快試試吧。圖 3. 向快速訪問工具欄分配宏聯(lián)系人編輯宏假設您在名為 Example Systems 的公司中有多個聯(lián)系人，每個聯(lián)系人的電子郵件地址都包含 域?，F(xiàn)在，假定 Example Networks 收購了 Example Systems，并將所有員工的

16、電子郵件地址更改為 。如果您只有一個或兩個聯(lián)系人在 Example Systems，則手動更改這些地址是很簡單的工作。但如果有 20、50 或 100 個聯(lián)系人，則自動執(zhí)行此類重復性任務便是 VBA 在 Office 中的常見用途了。 本文探討如何使用 Outlook 中的 VBA 修改聯(lián)系人，還對一些 VBA 概念做了解釋。訪問聯(lián)系人文件夾按照您創(chuàng)建 Test 宏時使用的步驟創(chuàng)建名為 CompanyChange 的新宏并在 Visual Basic 編輯器中打開該宏。 第一個任務是在 Outlook 中訪問“聯(lián)系人”文件夾對象，然后將對該對象的引用存儲在一個變量中。在編程中，變量是一個臨時的

17、命名對象，可保存值或?qū)ο蟮囊?。下面的示例代碼使用一個名為 ContactsFolder 的變量。該代碼指示 VBA，它將把一個 Folder 對象放入其中并運行 Session 對象的 GetDefaultFolder 方法，以查找 Contacts 文件夾并將對它的引用存儲在該變量中。Visual Basic 編輯器中包含一種有幫助的自動代碼條目，名為“智能感知”。在鍵入 Session.GetDefaultFolder 時要仔細查看，然后按下左括號作為其參數(shù)。在執(zhí)行此操作期間，Visual Basic 編輯器會顯示選項列表。使用下拉箭頭或鼠標選擇 olFolderContacts（這是

18、一種可用的文件夾類型），然后按下 Tab 鍵將其選中。圖 4. 使用“智能感知”選取文件夾類型雖然在處理代碼時使用復制和粘貼功能是可以有效避免鍵入錯誤的極好做法，但直接在 Visual Basic 編輯器中鍵入代碼可以親自體驗編輯器對您有何幫助。VBASub CompanyChange() Dim ContactsFolder as Folder Set ContactsFolder = Session.GetDefaultFolder(olFolderContacts)End Sub再添加一行，以獲取一些反饋并在宏的運行過程中測試宏。（而且可以像在“使宏可供訪問”一節(jié)中那樣，花一分鐘的時間為

19、 CompanyChange 創(chuàng)建一個“快速訪問工具欄”按鈕。）VBASub CompanyChange() Dim ContactsFolder as Folder Set ContactsFolder = Session.GetDefaultFolder(olFolderContacts) MsgBox ("Contacts Found: " & )End SubItems 是 Folder 對象的一個屬性，Count 是 Items 屬性的一個屬性。運行宏；Outlook 中的聯(lián)系人數(shù)應出現(xiàn)在消息框中。 如果尚未執(zhí)行此操作，請打開“聯(lián)系人”文件夾，創(chuàng)建一些為虛

20、構(gòu)的 Example Systems 公司工作的示例聯(lián)系人。為每個示例聯(lián)系人給定公司名稱 Example Systems，并為每個聯(lián)系人創(chuàng)建一個與 相似的不同電子郵件地址。對象集合集合 是現(xiàn)代編程語言（如 VBA）中最強大的功能之一。集合 是可以存儲在屬性中的一組對象，通過輕松“演練”可以訪問每個對象。在該示例中，代碼必須遍歷聯(lián)系人的集合以查找 Example Systems 的人員。如上所述，ContactsFolder 變量可提供對 Folder 的 Items 集合的訪問權(quán)限。聯(lián)系人 Folder 的 Items 集合將返回 ContactItem 類型的對象。創(chuàng)建一個變量，來保存對每個

21、 ContactItem 的引用。VBADim Contact As ContactItem請注意，如果您不知道從集合中返回何種類型的對象，也可以使用通用 Object 類型。但如果您知道對象的類型，精確指定類型有許多優(yōu)點。VBADim Contact As Object在擁有 ContactItem 后，必須檢查每個人的公司名稱。由于 ContactItem 對象用于存儲有關聯(lián)系人的信息，因此必須存在一個用于存儲公司名稱的屬性，但由于您不知道該屬性的名稱，因此必須使用下列兩種方法之一來查找該名稱。確定屬性名稱為了在 VBA 中充分利用對象，必須了解其屬性和方法。雖然使用在 Web 中找到的示

22、例代碼可以執(zhí)行許多任務，但您可以通過系統(tǒng)地檢查所使用的對象來增加選項、減少調(diào)試和節(jié)省時間。例如，您可以通過在代碼中選擇 ContactItem 并按下 F1 來在“幫助”的“Outlook 開發(fā)人員參考”中查找有關 ContactItem 的信息，也可以在“幫助”中搜索 ContactItem。請務必研究各個主題中的鏈接，以深入了解相關對象。 “開發(fā)人員參考”是用于 VBA 編程的強大工具，也是查找您的代碼所需屬性的一種方法。在閱讀有關 ContactItem 對象的一般信息后，可單擊“ContactItem 對象成員”鏈接查看方法和屬性的列表（屬性和方法統(tǒng)稱為成員）。如果您繼續(xù)查看該列表，您

23、會看到一個 CompanyName 屬性。此屬性聽起來似乎很有用。除了使用“Outlook 開發(fā)人員參考”查找屬性或方法外，還可以使用 Visual Basic 編輯器中的智能感知功能。在將變量 Contact 定義為 ContactItem 后，鍵入 Contact 和句點可以顯示與“幫助”中所列內(nèi)容相同的成員列表。若要選擇一個智能感知選項，請使用向上和向下箭頭或鼠標突出顯示該選項，然后使用 Tab 鍵將其選中。智能感知不提供各個成員的說明，因此當上下文使您的選擇很明顯或您已了解成員的名稱但無法記住其準確拼寫時，使用此方法將很有幫助。成員名稱拼寫錯誤會產(chǎn)生 Visual Basic 編輯器在

24、您運行宏之前一直無法標記的錯誤。循環(huán)訪問集合現(xiàn)在，您有一個集合，您了解該集合中包含的對象類型，并且要訪問找到的對象中的一個屬性。您已準備好要使用 For Each 循環(huán)來遍歷集合并處理它所包含的對象。 在偽代碼 中，您準備執(zhí)行下列操作。VBAFor Each object variable in a collection that contains that type of objectdo something with object variable.PropertyNext在實際代碼中，上述代碼轉(zhuǎn)換為下列代碼，其中涉及包含 MsgBox 語句的行。VBAFor Each Contact I

25、n ContactsFolder.Items Debug.Print Contact.CompanyNameNext再次運行宏之前，請在 Visual Basic 編輯器中打開立即窗口。為此，請在菜單欄中單擊“視圖”，然后單擊“立即窗口”。前面，您使用 MsgBox 從腳本中獲取反饋。雖然 MsgBox 很有用，但它總是等待您單擊“確定”，然后才顯示下一條消息。相反，Debug.Print 每次都向立即窗口發(fā)送一行輸出，而不等待您確認。運行此腳本后，您應該能夠在立即窗口中看到公司名稱的列表。注意，該列表對于開發(fā)人員非常有用，但與您共享此宏的用戶看不到該列表。使用 If 語句做決定在您已完成的解

26、決方案中，您希望宏只更改在 Example Systems 工作的聯(lián)系人，而不更改其他聯(lián)系人。這種條件邏輯正是編程的優(yōu)勢所在。這里，您可以使用 If 語句告知 VBA 僅在所提供條件為真時運行代碼；否則，它應跳到 End If 語句之后的代碼。VBAIf some condition is true Then' do thingsEnd If' continue on whether or not the condition was true在您所處理的問題中，決定條件是當前 ContactItem 的 CompanyName 屬性是否設置為字符串“Example System

27、s”。在下面的代碼中，請注意雙引號。字符串值（即文本值）與數(shù)字值相反，始終包含在雙引號內(nèi)。VBA 忽略單引號，單引號用于您和其他開發(fā)人員的注釋中。 在代碼中添加條件，使完整腳本類似于如下代碼。VBASub CompanyChange() Dim ContactsFolder As Folder Set ContactsFolder = Session.GetDefaultFolder(olFolderContacts) MsgBox ("Contacts Found:" & ) Dim Contact As ContactItem For Each Contact

28、In ContactsFolder.Items If Contact.CompanyName = "Example Systems" Then Debug.Print "Found: " & Contact.FullName End If NextEnd Sub運行代碼后，應在立即窗口中看到 Example Systems 聯(lián)系人的姓名。 圖 6. 使用立即窗口進行輸出注意 Debug.Print 和前面的 MsgBox 為了清晰起見而合并已修復字符串的方法，例如 "Found: " 后跟屬性返回的值。為使此方法起作用，必須使

29、用字符串連接運算符 (&) 來合并這兩個文本字符串。重要信息：重要信息：在繼續(xù)此教程的過程中，請務必謹慎。您使用的是實際的 Outlook 聯(lián)系人列表，其中包含幾個來自 Example Systems 的虛構(gòu)聯(lián)系人。將每個聯(lián)系人的公司名稱都修改為“Example Networks”并不合適。 更改公司名稱該操作已接近尾聲。您已經(jīng)加載了聯(lián)系人，現(xiàn)在可以循環(huán)訪問這些聯(lián)系人并將您的聯(lián)系人與來自 Example Systems 的聯(lián)系人相區(qū)分。若要對 Example Networks 進行更改，您可以更改 CompanyName 屬性并調(diào)用 Save 方法來提交更改。VBA If Contac

30、t.CompanyName = "Example Systems" Then Contact.CompanyName = "Example Networks" Contact.Save Debug.Print "Changed: " & Contact.FullName End If運行宏，然后查看 Example Systems 聯(lián)系人；現(xiàn)在，這些聯(lián)系人的公司名稱應該已改為 Example Networks。請注意，為了以后測試腳本，必須手動將公司名稱更改回 Example Systems 或創(chuàng)建可為您執(zhí)行該更改的另一個宏。

31、 雖然 Debug.Print 語句不是腳本運行所必需的語句，但請將其保留。您和您的用戶從宏中獲取的反饋越多越好。更改電子郵件地址更改 CompanyName 屬性只是簡單更改整個字符串。若要將電子郵件地址的域由 更改為 ，需要執(zhí)行字符串操作。每個字符串都有一個內(nèi)置的編號系統(tǒng)，其中每個字符都有一個從 1 開始的索引號。您可以使用各種 VBA 函數(shù)來處理部分或全部字符串。由于存在許多需要檢查子字符串或更改部分字符串的編程情況，因此了解這些字符串操作可顯著增加您作為 VBA 程序員時的選擇。（在 Web 中搜索“VBA 字符串函數(shù)”可提供許多有用的列表和示例。）可以使用 Replace 函數(shù)來執(zhí)行

32、將一個子字符串替換為另一個子字符串的簡單替換，但您可能經(jīng)常會面臨需要用更復雜的代碼來處理字符串的情況。在緊鄰代碼之前的位置添加下面的行，將調(diào)用 Contact.Save。VBAContact.Email1Address = Replace(Contact.Email1Address, "", "")請從左至右認真閱讀代碼。該代碼指示將聯(lián)系人的 Email1Address 屬性（第一個電子郵件地址）設置為新值。提供新值的方法是讓 Replace 函數(shù)在當前的 Contact.Email1Address 屬性中查找字符串“”并將其替換為“”。確保虛構(gòu)聯(lián)系人的

33、公司名稱已設置為 Example Systems，然后運行該腳本。電子郵件地址應全都更改為 ，公司名稱應全都更改為 Example Networks。使代碼通用現(xiàn)在，您有一個強大的宏，但功能有限，因為指定新公司名稱的唯一方法是編輯代碼。若要使您的代碼更加有用，可以使用 InputBox 函數(shù)提示用戶輸入。下列代碼是最終腳本。這是一個有用并且完整的 Outlook 解決方案。VBASub CompanyChange() Dim ContactsFolder As Folder Set ContactsFolder = Session.GetDefaultFolder(olFolderContac

34、ts) Dim OldCompanyName As String Dim NewCompanyName As String Dim OldEmailDomain As String Dim NewEmailDomain As String Dim ContactsChangedCount As Integer ' Ask user for inputs MsgBox ("This script will change all of your contacts from one company to another.") OldCompanyName = InputB

35、ox("Under what name are the contacts listed in Outlook now?") NewCompanyName = InputBox("What is the new company name to set them to?") OldEmailDomain = InputBox("What is the e-mail domain name currently listed after the sign? e.g. ") NewEmailDomain = InputBox("Wha

36、t should the e-mail domain be set to? Leave blank and click OK if no change") ContactsChangedCount = 0 Dim Contact As ContactItem ' loop through Contacts and set those who need it For Each Contact In ContactsFolder.Items If Contact.CompanyName = OldCompanyName Then Contact.CompanyName = New

37、CompanyName If NewEmailDomain <> "" Then Contact.Email1Address = Replace(Contact.Email1Address, OldEmailDomain, NewEmailDomain) End If Contact.Save ContactsChangedCount = ContactsChangedCount + 1 Debug.Print "Changed: " & Contact.FullName End If Next ' confirm and c

38、lean up MsgBox (ContactsChangedCount & " contacts were changed from '" & OldCompanyName & "' to '" & NewCompanyName) Set Contact = Nothing Set ContactsFolder = NothingEnd Sub分發(fā)代碼從開發(fā)所在計算機向其他計算機移動代碼的過程被稱為部署，這是編程項目的一個重要部分。本節(jié)介紹如何將新宏移動到其他計算機中。首先需要一個小型后臺。Outlook Visual Basic for Applications 代碼設計用作個人宏開發(fā)環(huán)境；并非設計用于部署或分發(fā)。因此，無法像處理其他 Office 應用程序（如 Excel 或 Word）那樣在文檔內(nèi)保存宏。若要將 Outlook VBA 宏從一臺計算機移至另一臺計算機，可從第一臺計算機中導出代碼模塊并將其導入第二臺計算機。也可以使用 Visual Basic 編輯器將項目的源代碼復制并粘貼到第二臺計算機上的 Project1 中。 如果您開發(fā)的解決方案要分發(fā)給多人，則應將 V