通过外接程序将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

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 
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          ///  
68          /// Required method for Designer support - do not modify
69          /// the contents of this method with the code editor.
70          ///  

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邮件导出成Word文档_第1张图片

 

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

通过外接程序将Outlook邮件导出成Word文档_第2张图片

 

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

通过外接程序将Outlook邮件导出成Word文档_第3张图片

 

  然后在代码中加入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  }

  下面给出完整的代码:

ExpandedBlockStart.gif OutlookToWord
  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           ///  
 62           ///  Create export file name from a string.
 63           ///  

 64           ///  
 65           ///  
 66           ///  
 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           ///  
178           ///  Required method for Designer support - do not modify
179           ///  the contents of this method with the code editor.
180           ///  

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  }

代码下载

转载于:https://www.cnblogs.com/jaxu/archive/2011/01/27/1946517.html

你可能感兴趣的:(通过外接程序将Outlook邮件导出成Word文档)