Outlook add-in 插件.Net开发经验-补充(2.1)

原创 2004年01月05日 12:02:00

这里上传文件字数太少,只能分多次。

1.         outlook里创建Menu, Button<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

outlook里创建Menu, Button

Private m_oMainMenu As Office.CommandBarPopup

Private WithEvents mnuLogInOff As Office.CommandBarButton

 

Dim oBars As Office.CommandBars

Dim oMenuBar As Office.CommandBar

 

'添加及选择工具栏

oBars = m_olExplorer.CommandBars     '取所有菜单栏

oMenuBar = oBars.ActiveMenuBar    '取当前菜单栏

 

'添加主菜单

m_oMainMenu = CType(oMenuBar.Controls.Add(10, , , ,True),Office.CommandBarPopup)

m_oMainMenu.Caption = "MainMenu"

 

'添加菜单项

mnuLogInOff = CType(m_oMainMenu.Controls.Add(Type:=1), Office.CommandBarButton)      ', Temporary:=True, Before:=1)

mnuLogInOff.Caption = " mnuLogInOff"

mnuLogInOff.Enabled = True

 

2.         创建,修改Folder view

创建,修改Folder view

Folder view xml格式。

Dim myView As myOutlook.View

Dim myViews As myOutlook.Views

 

myViews = g_oBaseFolder.Views

myView = myViews.Add(Name:="<?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />Normal View", _                                   ViewType:=myOutlook.OlViewType.olTableView, SaveOption:=myOutlook.OlViewSaveOption.olViewSaveOptionAllFoldersOfType)

myView.XML = sViewXML

myView.Save()

 

3.         修改类别 category

category信息,存放在注册表内。

'**********************************

'增加,修改category,调试

'**********************************

Private Sub mnuDebug2_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean) Handles mnuDebug2.Click

 

            Dim sSubkey As String

            Dim sValueName As String

            Dim oValue As Object

 

            sSubkey = "Software/Microsoft/Office/10.0/Outlook/Categories"

            sValueName = "MasterList"

            oValue = GetRegisterValue(sSubkey, sValueName, modOutlook.RegTypeEnum.RegBinaryType)

 

            Dim sOldCategories As String

            sOldCategories = GetRegisterValue(sSubkey, sValueName, modOutlook.RegTypeEnum.RegBinaryType)

 

            Dim sNewCategories As String

            sNewCategories = InputBox("Please input new categories,use;split", "Input", sOldCategories)

            ' sNewCategories = "custom;VIP;策略;等待;电话;个人;供应商;观点;国际;贺卡;假日;竞争;礼物;目标/目的;商务;时间和经费;收藏夹;熟人;杂项"

            sNewCategories = Trim(sNewCategories)

            If Right(sNewCategories, 1) = ";" Then

                sNewCategories = Trim(Left(sNewCategories, sNewCategories.Length - 1))

            End If

            oValue = EncodeChineseString2Unicode(sNewCategories)

            SetRegisterValue(sSubkey, sValueName, oValue)

 

            MsgBox(sNewCategories, MsgBoxStyle.Information)

 

        End Sub

Category在注册表里是byte[]保存

 

4.         得到最新添加的pst storefolder

得到最新添加的pst storefolder

m_olNamespace.AddStore(sStorePath)

oPstFolder = m_olNamespace.Folders.GetLast

m_sStoreID = oPstFolder.StoreID

DebugWriter("StoreID: ", m_sStoreID)

 

#Region "调试所用的函数,可以调试输出,或出文件"

     Public Sub DebugWriter(ByVal strSource As String, Optional ByVal strMessage As String = "")

 #If constDebug Then

            Dim tempPath As String = Path.GetTempPath()

         'Dim tempPath As String = "C:/"           

Dim myFile As New StreamWriter(tempPath & "debug.txt", True)

            Try

                Dim strError As String = Now().ToString & Chr(9) & strSource & Chr(9) & strMessage

                myFile.WriteLine(strError)

            Finally

                myFile.Close()

            End Try

#Else

            Debug.WriteLine(strSource & Chr(9) & strMessage)

#End If

        End Sub

#End Region

 

5.         做某些操作会出现outlook得安全警告,例如:发送邮件,查询address ……

看看这些:

http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q290/4/99.asp&NoWebContent=1

http://www.microsoft.com/china/msdn/library/dnout2k2/html/odc_olsecurityovw.asp#odc_olsecurityovw_topic7

 

6.         先写到这里,想到了再补充

 

Outlook add-in 插件.Net开发经验-补充(2)

一些注意点:       具体需要做些什么,个人需要,我也不仔细说了,察看msdn就明白了。       我在开发过程中的一些注意,列一下:1.       在单独类oAddin中处理,指定progI...
  • duibudui
  • duibudui
  • 2004年01月05日 12:02
  • 1012

Outlook add-in 插件.Net开发经验-补充(1)

Outlook add-in 插件.Net开发经验-补充(1)这次补充了些东西,把原文扩充了一些,为了看着方便,直接合并在了一起。 第一次写这玩意,记录些开发中的过程,.net开发设置要比在VB里复杂...
  • duibudui
  • duibudui
  • 2004年01月05日 12:00
  • 1492

Outlook add-in 插件.Net开发经验-补充(2)

 一些注意点:        具体需要做些什么,个人需要,我也不仔细说了,察看msdn就明白了。       我在开发过程中的一些注意,列一下:1.       在单独类oAddin中处理,指定pro...
  • benlee
  • benlee
  • 2004年12月20日 11:19
  • 770

Outlook add-in 插件.Net开发经验

Outlook add-in 插件.Net开发经验第一次写这玩意,记录些开发中的过程,.net开发设置要比在VB里复杂一些,要把office的对象用ms提供的工具包装一下,才能在.Net开发环境里使用...
  • duibudui
  • duibudui
  • 2003年12月19日 23:19
  • 1169

Outlook Add-in

 利用VC++/ATL开发Office 2003 COM插件最近,我为一个客户写了一个Outlook2003的COM插件。当我为这个工程写代码的时候,我遇到了很多用C++无法解决的问题。对于一个初学者...
  • cliviajin
  • cliviajin
  • 2007年10月20日 20:35
  • 3830

使用vsto制作的outlook插件在用户机器上无法运行的问题

         最近因为工作的需要,使用vsto2005se制作了一个outlook2003的小插件,主要是对邮件进行一些检查什么的,用vsto制作这类office软件的插件相对容易和迅速,和off...
  • ScienWu
  • ScienWu
  • 2007年04月20日 09:51
  • 1855

Qt -visual studio add-in

在vs中写QT引用程序 1.首先要安装 add-in 插件 2.在属性管理器-> vc++目录中 2.1添加C:\QtSDK\Desktop\Qt\4.8.0\msvc2010\bin到可执行目...
  • china_daywalker
  • china_daywalker
  • 2012年04月13日 13:50
  • 3754

【ArcGIS Add-in编程】如何创建ArcMap的下拉菜单插件

step1. VS2010中创建一个空的解决方案step2.创建一个项目 直接点击finish。step3 为该项目创建项目,选择Menu,作为根菜单,而后修改xml中的items项,添加需要...
  • u013177446
  • u013177446
  • 2017年02月15日 17:04
  • 1003

outlook插件开发学习

1、获取outlook邮件的正文内容         在邮件打开的时候   //获取当前邮件                 MailItem mail = Globals.ThisAddIn....
  • u011249351
  • u011249351
  • 2016年10月19日 17:26
  • 412

从“3-4年的.Net开发经验”想到的

我msn上有个朋友是做hr的,经常在他名字后面写一些招聘信息什么的。今天上来也不例外,说是要找“3-4年”工作经验的.Net开发人员。当然我不知道他们公司是怎么想的,不过我想在中国想找真正3-4年工作...
  • jayliu
  • jayliu
  • 2005年06月22日 14:25
  • 2987
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Outlook add-in 插件.Net开发经验-补充(2.1)
举报原因:
原因补充:

(最多只允许输入30个字)