通过外接程序将Outlook邮件导出成Word文档！

 Visual Studio允许创建Office类型的工程，用于给Office产品创建外接程序以及自定义模板等。这是一个非常实用的功能，在早期版本的Office中我们只能通过VBA代码来实现一些自定义的功能，如文本的自动替换、宏录制功能等等。VBA的功能很有限，有些时候我们希望自定义程序能够完成更多的功能，比如在Office多个不同产品之间进行文档转换、调用系统API、远程过程调用及Web Service访问等。下面是在Visual Studio 2010中创建Office类型工程的对话框。

 

　　本例中我将向大家介绍如何通过Office外接程序将Outlook中的邮件导出到本地Word文档中。当然，你完全可以手动将Outlook中的邮件通过复制粘贴的方式拷贝到Word文档中，但是要想同时将大批的邮件导出到Word中恐怕就需要借助于程序来完成了。来看看我们如何实现这个小插件！

　　首先在Visual Studio中创建Outlook 2010 Add-in类型的工程，取名为OutlookToWord。这里需要申明一下我开发和测试的环境：Visual Studio 2010 + Office 2010。当然，在Visual Studio 2008和稍低版本的Office中同样也可以实现，只是工程类型和外接程序所支持的载体版本稍有区别。

　　工程创建成功后Visual Studio会自动为你生成一些文件和代码，我们只需要在代码中实现自定义的功能即可。我们希望程序通过一个按钮来实现邮件的导出，因此需要在Outlook的工具栏中创建一个自定义按钮。这个很简单，直接查MSDN，这里有非常详细的介绍，将代码拷到工程中，并做适当的修改。

http://msdn.microsoft.com/zh-CN/library/scff9c7c.aspx

 using System; 
2 using System.Collections.Generic; 
3 using System.Linq; 
4 using System.Text; 
5 using System.Xml.Linq; 
6 using Outlook = Microsoft.Office.Interop.Outlook; 
7 using Office = Microsoft.Office.Core; 
8  
9 namespace OutlookToWord 
10 { 
11     public partial class ThisAddIn 
12     { 
13         private Office.CommandBar newToolBar; 
14         private Office.CommandBarButton exportButton; 
15         private Outlook.Explorers selectExplorers;  
16  
17         private void ThisAddIn_Startup(object sender, System.EventArgs e) 
18         { 
19             selectExplorers = this.Application.Explorers; 
20             selectExplorers.NewExplorer += new Outlook.ExplorersEvents_NewExplorerEventHandler(newExplorer_Event); 
21             AddToolbar(); 
22         } 
23  
24         private void newExplorer_Event(Outlook.Explorer new_Explorer) 
25         { 
26             ((Outlook._Explorer)new_Explorer).Activate(); 
27             newToolBar = null; 
28             AddToolbar(); 
29         } 
30  
31         private void AddToolbar() 
32         { 
33             if (newToolBar == null) 
34             { 
35                 Office.CommandBars cmdBars = this.Application.ActiveExplorer().CommandBars; 
36                 newToolBar = cmdBars.Add("NewToolBar", Office.MsoBarPosition.msoBarTop, false, true); 
37             } 
38             try 
39             { 
40                 Office.CommandBarButton btExportToWord = (Office.CommandBarButton)newToolBar.Controls.Add(1, missing, missing, missing, missing); 
41                 btExportToWord.Style = Office.MsoButtonStyle.msoButtonCaption; 
42                 btExportToWord.Caption = "Export to Word"; 
43                 btExportToWord.Tag = "Export current mail to word"; 
44                 if (this.exportButton == null) 
45                 { 
46                     this.exportButton = btExportToWord; 
47                     exportButton.Click += new Office._CommandBarButtonEvents_ClickEventHandler(exportButton_Click); 
48                 } 
49                 newToolBar.Visible = true; 
50             } 
51             catch (Exception ex) 
52             { 
53                 MessageBox.Show(ex.Message); 
54             } 
55         } 
56  
57         void exportButton_Click(Office.CommandBarButton ctrl, ref bool cancel) 
58         { 
59         } 
60  
61         private void ThisAddIn_Shutdown(object sender, System.EventArgs e) 
62         { 
63         } 
64  
65         #region VSTO generated code 
66  
67         /// <summary> 
68         /// Required method for Designer support - do not modify 
69         /// the contents of this method with the code editor. 
70         /// </summary> 
71         private void InternalStartup() 
72         { 
73             this.Startup += new System.EventHandler(ThisAddIn_Startup); 
74             this.Shutdown += new System.EventHandler(ThisAddIn_Shutdown); 
75         } 
76  
77         #endregion 
78     } 
79 }

　　我们在Outlook工具栏中创建了一个Export to Word按钮。退出Outlook在Visual Studio中直接按F5运行查看效果。

 

　　如果你的Outlook工具栏中没有Add-ins菜单，请点击File-Options-Customize Ribbon，在其中勾选Add-Ins来显示它。

 

　　接下来的任务就是实现邮件的导出功能了。由于需要在程序中调用Word的部分功能，所以你需要在工程添加Word的相关引用，如下图。注意你本地可能包含多个Microsoft.Office.Interop.Word程序集的版本，选择最高版本的那个即可。

 

　　然后在代码中加入Word程序集的命名空间using Word = Microsoft.Office.Interop.Word。我们希望在导出邮件之前提示用户选择要导出文件的位置，因此程序中还需要一个文件夹选择对话框控件，在程序中给出定义。现在我们来看看导出功能的核心代码。

 1 void exportButton_Click(Office.CommandBarButton ctrl, ref bool cancel)
 2 {
 3     object sFileName;
 4     string sPath = string.Empty;
 5 
 6     // Get mail export path.
 7     if (folderBrowserDialog.ShowDialog() == DialogResult.OK)
 8     {
 9         sPath = folderBrowserDialog.SelectedPath;
10 
11         // If the selected path is a folder, add '\' at the end of the path string.
12         if (sPath != Path.GetPathRoot(sPath))
13         {
14             sPath += "\\";
15         }
16     }
17     else
18     {
19         return;
20     }
21 
22     Word.Application app = new Word.Application();
23     Word.Document doc = null;
24     object unknow = Type.Missing;
25     object format = Word.WdSaveFormat.wdFormatDocumentDefault;
26     Outlook.Explorer activeExplorer = this.Application.Explorers.Application.ActiveExplorer();
27 
28     try
29     {
30         // Export all selected mail items to word.
31         foreach (object selectedItem in activeExplorer.Selection)
32         {
33             Outlook.MailItem mailItem = selectedItem as Outlook.MailItem;
34             if (mailItem != null)
35             {
36                 sFileName = CreateFileName(sPath, mailItem.Subject);
37                 //doc = app.Documents.Add(ref unknow, ref unknow, ref unknow, ref unknow);
38                 //doc.Content.Text = mailItem.Body;
39                 //doc.Paragraphs.Last.Range.Text = mailItem.Body;
40 
41                 Outlook.Inspector inspector = mailItem.GetInspector;
42                 doc = (Word.Document)inspector.WordEditor;
43                 //mailItem.SaveAs(sFileName.ToString(), Outlook.OlSaveAsType.olDoc);
44 
45                 doc.SaveAs(ref sFileName, ref format, ref unknow, ref unknow, ref unknow,
46                     ref unknow, ref unknow, ref unknow, ref unknow, ref unknow, ref unknow,
47                     ref unknow, ref unknow, ref unknow, ref unknow, ref unknow);
48                 //doc.Close(ref unknow, ref unknow, ref unknow);
49             }
50         }
51     }
52     catch (Exception ex)
53     {
54         MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
55     }
56     finally
57     {
58         if (app != null)
59         {
60             app.Quit(ref unknow, ref unknow, ref unknow);
61         }
62     }
63 }

　　有几个地方需要说明一下。首先我们要得到当前已选择的邮件列表，这个是通过this.Application.Explorers.Application.ActiveExplorer().Selection来得到的，ActiveExplorer()方法返回的是当前选中的邮箱视图，比如发件箱、草稿箱、收件箱等。Selection属性得到是其中所有被选中的邮件的集合，在Outlook中你可以同时选中多封邮件。程序通过foreach便利所有当前被选中的邮件，然后依次导出到Word文档中。邮件主题被用作Word文档的名称，这里有一个CreateFileName方法用来处理并生成最终的文件名，稍后给出这个方法的代码。对于如何保存Word文档的内容，这里有几个地方需要注意：

　　1. mailItem对象可以通过Body，HTMLBody，RTFBody来得到邮件的内容，但是其中的格式会有所区别。通过Body得到的是去掉所有样式之后的纯文本内容，HTMLBody得到的是转换之后的HTML格式的邮件内容，RTFBody则是包含富文本格式的二进制邮件内容。

　　2. 我们可以通过doc.Content.Text或doc.Paragraphs.Last.Range.Text来给Word文档填充内容，两者的效果是一样的。但是这两种方法只能接收字符串内容，也就是说如果邮件中包含特定格式的信息都会被自动过滤掉，如邮件中的表格、文字样式、图片、超链接等内容。

　　3. 通过mailItem.GetInspector将邮件的编辑器转换成Word文档可以将Outlook邮件中的所有内容无差异地保存到Word中。因为Outlook邮件编辑器使用的正是Word文档的编辑器，因此这个转换是有效的。

　　4. Word文档的创建、保存方法与其它在C#中操作Word相同。需要注意的是如果使用doc.Content.Text或doc.Paragraphs.Last.Range.Text方法填充Word文档内容，完毕之后一定要关闭Word文档。另外就是程序结束后要关掉Word进程，否则每次导出都会在内存中创建一个Word进程造成资源的浪费。

　　5. Word文档保存的格式选用wdFormatDocumentDefault，这个是Word文档保存的默认格式，如果选用其它格式，需要确保你所保存的内容能被选用的格式支持。

　　下面来看一下CreateFileName方法。这个方法是用来处理生成的Word文档的文件名的。程序中使用了邮件主题作为Word文件名，由于Windows文件名不支持部分特殊字符，因此我们需要在生成文件名的过程中将这些特殊字符过滤掉，同时为了确保所生成的Word不会被重复覆盖，需要对文件名作差异化处理——即如果文件存在则在后面增量增加一个数字，如新建文件1、新建文件2等。另外就是如果文件名过长只截取前100个字符。

 1 private string CreateFileName(string sPath, string sFileName)
 2 {
 3     // Remove unsupport charts for file name.
 4     string sRst = sFileName.Replace("\\", "");
 5     sRst = sRst.Replace("/", "");
 6     sRst = sRst.Replace(":", "");
 7     sRst = sRst.Replace("*", "");
 8     sRst = sRst.Replace("?", "");
 9     sRst = sRst.Replace("\"\"", "");
10     sRst = sRst.Replace("<", "");
11     sRst = sRst.Replace(">", "");
12     sRst = sRst.Replace("|", "");
13 
14     if (sRst.Length > 100)
15     {
16         sRst = sRst.Substring(0, 100);
17     }
18 
19     // Make sure the file name is unique.
20     int i = 1;
21     if (File.Exists(string.Concat(sPath, sRst, ".docx")))
22     {
23         while (true)
24         {
25             if (File.Exists(string.Concat(sPath, sRst, i.ToString(), ".docx")))
26             {
27                 i++;
28             }
29             else
30             {
31                 sRst += i.ToString();
32                 break;
33             }
34         }
35     }
36 
37     // Return *.docx file name.
38     return string.Concat(sPath, sRst, ".docx");
39 }

　　下面给出完整的代码：

  1 using System;
  2 using System.Collections.Generic;
  3 using System.Linq;
  4 using System.Text;
  5 using System.Xml.Linq;
  6 using Outlook = Microsoft.Office.Interop.Outlook;
  7 using Office = Microsoft.Office.Core;
  8 using System.Windows.Forms;
  9 using Word = Microsoft.Office.Interop.Word;
 10 using System.IO;
 11 
 12 namespace OutlookToWord
 13 {
 14     public partial class ThisAddIn
 15     {
 16         private Office.CommandBar newToolBar;
 17         private Office.CommandBarButton exportButton;
 18         private Outlook.Explorers selectExplorers;
 19         private FolderBrowserDialog folderBrowserDialog = new FolderBrowserDialog(); 
 20 
 21         private void ThisAddIn_Startup(object sender, System.EventArgs e)
 22         {
 23             selectExplorers = this.Application.Explorers;
 24             selectExplorers.NewExplorer += new Outlook.ExplorersEvents_NewExplorerEventHandler(newExplorer_Event);
 25             AddToolbar();
 26         }
 27 
 28         private void newExplorer_Event(Outlook.Explorer new_Explorer)
 29         {
 30             ((Outlook._Explorer)new_Explorer).Activate();
 31             newToolBar = null;
 32             AddToolbar();
 33         }
 34 
 35         private void AddToolbar()
 36         {
 37             if (newToolBar == null)
 38             {
 39                 Office.CommandBars cmdBars = this.Application.ActiveExplorer().CommandBars;
 40                 newToolBar = cmdBars.Add("NewToolBar", Office.MsoBarPosition.msoBarTop, false, true);
 41             }
 42             try
 43             {
 44                 Office.CommandBarButton btExportToWord = (Office.CommandBarButton)newToolBar.Controls.Add(1, missing, missing, missing, missing);
 45                 btExportToWord.Style = Office.MsoButtonStyle.msoButtonCaption;
 46                 btExportToWord.Caption = "Export to Word";
 47                 btExportToWord.Tag = "Export current mail to word";
 48                 if (this.exportButton == null)
 49                 {
 50                     this.exportButton = btExportToWord;
 51                     exportButton.Click += new Office._CommandBarButtonEvents_ClickEventHandler(exportButton_Click);
 52                 }
 53                 newToolBar.Visible = true;
 54             }
 55             catch (Exception ex)
 56             {
 57                 MessageBox.Show(ex.Message);
 58             }
 59         }
 60 
 61         /// <summary>
 62         /// Create export file name from a string.
 63         /// </summary>
 64         /// <param name="sPath"></param>
 65         /// <param name="sFileName"></param>
 66         /// <returns></returns>
 67         private string CreateFileName(string sPath, string sFileName)
 68         {
 69             // Remove unsupport charts for file name.
 70             string sRst = sFileName.Replace("\\", "");
 71             sRst = sRst.Replace("/", "");
 72             sRst = sRst.Replace(":", "");
 73             sRst = sRst.Replace("*", "");
 74             sRst = sRst.Replace("?", "");
 75             sRst = sRst.Replace("\"\"", "");
 76             sRst = sRst.Replace("<", "");
 77             sRst = sRst.Replace(">", "");
 78             sRst = sRst.Replace("|", "");
 79 
 80             if (sRst.Length > 100)
 81             {
 82                 sRst = sRst.Substring(0, 100);
 83             }
 84 
 85             // Make sure the file name is unique.
 86             int i = 1;
 87             if (File.Exists(string.Concat(sPath, sRst, ".docx")))
 88             {
 89                 while (true)
 90                 {
 91                     if (File.Exists(string.Concat(sPath, sRst, i.ToString(), ".docx")))
 92                     {
 93                         i++;
 94                     }
 95                     else
 96                     {
 97                         sRst += i.ToString();
 98                         break;
 99                     }
100                 }
101             }
102 
103             // Return *.docx file name.
104             return string.Concat(sPath, sRst, ".docx");
105         }
106 
107         void exportButton_Click(Office.CommandBarButton ctrl, ref bool cancel)
108         {
109             object sFileName;
110             string sPath = string.Empty;
111 
112             // Get mail export path.
113             if (folderBrowserDialog.ShowDialog() == DialogResult.OK)
114             {
115                 sPath = folderBrowserDialog.SelectedPath;
116 
117                 // If the selected path is a folder, add '\' at the end of the path string.
118                 if (sPath != Path.GetPathRoot(sPath))
119                 {
120                     sPath += "\\";
121                 }
122             }
123             else
124             {
125                 return;
126             }
127 
128             Word.Application app = new Word.Application();
129             Word.Document doc = null;
130             object unknow = Type.Missing;
131             object format = Word.WdSaveFormat.wdFormatDocumentDefault;
132             Outlook.Explorer activeExplorer = this.Application.Explorers.Application.ActiveExplorer();
133 
134             try
135             {
136                 // Export all selected mail items to word.
137                 foreach (object selectedItem in activeExplorer.Selection)
138                 {
139                     Outlook.MailItem mailItem = selectedItem as Outlook.MailItem;
140                     if (mailItem != null)
141                     {
142                         sFileName = CreateFileName(sPath, mailItem.Subject);
143                         //doc = app.Documents.Add(ref unknow, ref unknow, ref unknow, ref unknow);
144                         //doc.Content.Text = mailItem.Body;
145                         //doc.Paragraphs.Last.Range.Text = mailItem.Body;
146 
147                         Outlook.Inspector inspector = mailItem.GetInspector;
148                         doc = (Word.Document)inspector.WordEditor;
149                         //mailItem.SaveAs(sFileName.ToString(), Outlook.OlSaveAsType.olDoc);
150 
151                         doc.SaveAs(ref sFileName, ref format, ref unknow, ref unknow, ref unknow,
152                             ref unknow, ref unknow, ref unknow, ref unknow, ref unknow, ref unknow,
153                             ref unknow, ref unknow, ref unknow, ref unknow, ref unknow);
154                         //doc.Close(ref unknow, ref unknow, ref unknow);
155                     }
156                 }
157             }
158             catch (Exception ex)
159             {
160                 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
161             }
162             finally
163             {
164                 if (app != null)
165                 {
166                     app.Quit(ref unknow, ref unknow, ref unknow);
167                 }
168             }
169         }
170 
171         private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
172         {
173         }
174 
175         #region VSTO generated code
176 
177         /// <summary>
178         /// Required method for Designer support - do not modify
179         /// the contents of this method with the code editor.
180         /// </summary>
181         private void InternalStartup()
182         {
183             this.Startup += new System.EventHandler(ThisAddIn_Startup);
184             this.Shutdown += new System.EventHandler(ThisAddIn_Shutdown);
185         }
186 
187         #endregion
188     }
189 }