首页 > 代码库 > outlook 插件:导出rss的link地址
outlook 插件:导出rss的link地址
由于对于rss的应用程序不熟悉,所以使用Outlook接收rss。使用过程和平时收邮件没有什么差别。
唯一的遗憾是鉴于安全考虑,outlook没有全部下载网页,所以每次都要打开浏览器。有时候遇到一些需要详细阅读或要收藏的(比如我预备加入pocket)都要走一遍浏览器。网页多了,就感觉有些烦人了。
有需求,就找解决方案。
我的方案:创建一个outlook的插件,保存需要的网址。
IDE:vs2010。
outlook:2007
step 1:创建项目,名称RssLinkExport. 请注意我没有选择c#节点下的outlook插件类型。采用通用的插件模型,这样可以更好控制outlook。
step 2:选择目标对象Microsoft OutLook。这个是必须的,关系到注册表的设定。
step 3:给插件起一个名称,这是给outlook用户看的。
step 4:决定安装程序用户是否共享这个组件。建议全部勾选。省得用的时候要重启一下。
step 5:汇总信息,finish即可。
step 6:开发前,加入必要的reference。因为我们开发的模型是通用的。所以需要增加outlook互操作的dll。默认位置在C:\Windows\assembly\GAC\Microsoft.Office.Interop.Outlook\12.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Outlook.dll
step 7:检查是否加入成功Microsoft.Office.Interop.Outlook。
step 8: 写代码了。由于代码不多,就都写在Connect类里面了。
申明变量
private string rssEntryID; // 用于识别rss目录,按照outlook开发,每个对象都有一个id。private Microsoft.Office.Interop.Outlook.Application app; // 缓存outlook的对象CommandBarButton exportBtn; // 控件Regex reUrl; // 正则对象,筛选url。
初始化
public Connect(){
rssEntryID = null;
// 初始化正则表达式。至于为什么要这样写,可以参考rss的数据格式。
reUrl = new Regex("HREF=http://www.mamicode.com/"(?<key>http:[^\"]+)\"", RegexOptions.Compiled);}
缓存application对象
public void OnConnection(object application, Extensibility.ext_ConnectMode connectMode, object addInInst, ref System.Array custom){
applicationObject = application;
addInInstance = addInInst;
// 在启动阶段,缓存应用的对象。如果您熟悉com开发,应该对此很熟悉。
app = application as Microsoft.Office.Interop.Outlook.Application;
}
增加工具栏的按钮,需要的时候触发保存。
public void OnStartupComplete(ref System.Array custom){
// save rss ID
Microsoft.Office.Interop.Outlook.MAPIFolder rssFolder = app.ActiveExplorer().Session.GetDefaultFolder(OlDefaultFolders.olFolderRssFeeds);
rssEntryID = rssFolder.EntryID;
CommandBars commandBars = app.ActiveExplorer().CommandBars;
// 判断:万一插件有异常,之前新增控件没有移除的话,就不需要新增了。
foreach (CommandBarControl control in commandBars["Standard"].Controls)
{
if (control.Caption == "export")
{
exportBtn = control as CommandBarButton;
break;
}
}
if (exportBtn == null)
{
exportBtn = (CommandBarButton)commandBars["Standard"].Controls.Add(1
, System.Reflection.Missing.Value
, System.Reflection.Missing.Value
, System.Reflection.Missing.Value
, System.Reflection.Missing.Value);
exportBtn.Caption = "export";
}
exportBtn.Click += new _CommandBarButtonEvents_ClickEventHandler(exportBtn_Click);}
移除control
public void OnBeginShutdown(ref System.Array custom)
{
// 程序退出前,销毁新增的控件。
if (exportBtn != null)
{
exportBtn.Delete(System.Reflection.Missing.Value);
exportBtn = null;
}
}
触发事件
void exportBtn_Click(CommandBarButton Ctrl, ref bool CancelDefault)
{
List<string> urls = new List<string>();
// 检查当前目录是否rss
Microsoft.Office.Interop.Outlook.MAPIFolder selectedFolder = app.ActiveExplorer().CurrentFolder;
Microsoft.Office.Interop.Outlook.MAPIFolder parentFolder = selectedFolder.Parent as Microsoft.Office.Interop.Outlook.MAPIFolder;
if (parentFolder == null) return;
if (rssEntryID == null || rssEntryID.Equals(parentFolder.EntryID) == false) return;
// 获取界面操作后,选择的对象列表。selection是office的对象。
Selection selectdItems = app.ActiveExplorer().Selection;
if (selectdItems == null) return;
foreach (object objSelected in selectdItems)
{
// 转换成PostItem
Microsoft.Office.Interop.Outlook.PostItem pItem = objSelected as Microsoft.Office.Interop.Outlook.PostItem;
if (pItem == null) continue;
// 获取格式,这是防御性编码,因为我常用的rss对象都是html的。
OlBodyFormat bodyFmt = pItem.BodyFormat;
string pItemBody = null;
if (bodyFmt == OlBodyFormat.olFormatHTML)
{
pItemBody = pItem.HTMLBody;
}
else
{
pItemBody = pItem.Body;
}
// 导出的对象标注蓝色分类,我并没有删除。所以如果已经标注就说明曾经导出过了。
if (pItem.Categories == null)
{
pItem.Categories = "Blue Category";
// 这步很关键。否则outlook不会立即刷新界面。
pItem.Save();
// 获取url地址
Match urlMa = reUrl.Match(pItemBody);
if (urlMa.Success)
{
urls.Add(urlMa.Groups["key"].ToString());
}
}
}
// 把全部url保存到我的文件夹。
if (urls.Count > 0)
{
string baseFolder = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments);
string targetFolder = string.Format("{0}\\bel", baseFolder);
DirectoryInfo di = new DirectoryInfo(targetFolder);
if (di.Exists == false)
{
di.Create();
}
DateTime dtNow = DateTime.Now;
string targetFile = string.Format("{0}\\urls_{1}{2}{3}.txt", targetFolder, dtNow.Year, dtNow.Month, dtNow.Day);
StreamWriter sw = new StreamWriter(targetFile, true);
foreach (string url in urls)
{
sw.WriteLine(url);
}
sw.Close();
// 这时候你应该看到url的文本了。
}
}
step 9:调试。默认的外部程序是vs2010,所以你有必要指向outlook的目录。
step 10:插件成功load后,界面显示的控件--“export”。
step 11:单击export后,选择的item会显示蓝色分类。
step 12:vs2010会自动创建发布包,但默认情况不会build,你需要手工build。
step 13:这是成功创建的安装程序。
step 14:试试看吧。
最后感谢施向阳同学的正则表达式技术支持。
outlook 插件:导出rss的link地址