Outlook add-in 插件.Net开发经验-补充（2）

指定progID

<GuidAttribute("CA940FE1-1193-411b-82DF-570A04491150"),

ProgIdAttribute("AddinForBible.olAddin")>

Public Class OutAddIn

End Class

清除Outlook的对象：

Public Sub DisposeObject(ByVal obj As Object)

            'Wraps ReleaseCOMObject to provide a 'safe' disposal helper method.

            Dim count As Integer

            Try

                If obj Is Nothing Then

                    Exit Try

                End If

                If Not Marshal.IsComObject(obj) Then

                    Exit Try

                End If

                count = Marshal.ReleaseComObject(obj)

                While count > 0

                    count = Marshal.ReleaseComObject(obj)

                End While

            Catch ex As SystemException

            Finally

                obj = Nothing

            End Try

End Sub

设置folder的default post message 属性为 自定义 form

这个属性找了很久，msdn里没有提及，留在这里吧，以后也不太会再作Outlook开发了

g_olNamespace = m_olOutlookApp.Session

     g_olNamespace.Logon(, , False, False)

     g_objMAPISession = New MAPI.Session

g_objMAPISession.Logon(, , False, False)

Public Function SetFolderDftMsgPostClass(ByVal sFolderID As String, ByVal sStoreID As String) As Boolean

            Dim objMAPIFolder As MAPI.Folder

            Dim objMAPIFields As MAPI.Fields

            Const PR_DEF_POST_DISPLAYNAME = &H36E6001E '定制form的显示名字

            Const PR_DEF_POST_MSGCLASS = &H36E5001E  '定制form的MessageClass名称

            Try

                objMAPIFolder = g_objMAPISession.GetFolder(sFolderID, sStoreID)

                objMAPIFields = objMAPIFolder.Fields

                Try

                    If objMAPIFields.Item(PR_DEF_POST_MSGCLASS).value = cVerseMessageClass Then

                        Exit Try

                    End If

                Catch ex As Exception

                    With objMAPIFields

                        .Add(PR_DEF_POST_DISPLAYNAME, cVerseFormName)

                        .Add(PR_DEF_POST_MSGCLASS, cVerseMessageClass)

                    End With

                    objMAPIFolder.Update()

                End Try

            Catch ex As Exception

            Finally

            End Try

            DisposeObject(objMAPIFields)

            DisposeObject(objMAPIFolder)

End Function

初始化Outlook对象，取得基本的对象。

Imports myOutlook = Microsoft.Office.Interop.Outlook

Public g_olNamespace As myOutlook.NameSpace '当前Outlook session对象

Public g_oBaseFolder As myOutlook.MAPIFolder '当前Outlook folder对象

Public g_olApp As myOutlook.Application   '当前Outlook对象

Public g_sStoreID As String

Private WithEvents m_olEXPlorer As myOutlook.EXPlorerClass

'当前Outlook eXPlorer对象

g_olNamespace = m_olOutlookApp.Session

g_olNamespace.Logon(, , False, False)

m_olEXPlorer = CType(m_olOutlookApp.ActiveEXPlorer, myOutlook.EXPlorerClass)

g_oBaseFolder = g_olNamespace.Folders.Item(foldername)

g_sStoreID = g_oBaseFolder.StoreID

取得folder对象：

namespace.folders.Item(“foldername”)

取得第一个名为foldername的folder

namespace.GetFolderFromID(sFolderID,sStoreID)

取得指定ID的folder

FolderID , StoreID

Folder.EntryID