Outlook 2007 Archives - MikeSel Hosting Ltd - Downloads, How-To's, News, Reviews & Rumours

Using this small piece of Visual Basic for Applications code in Microsoft Outlook you can check the status of the out of office assistant. Normally I call this on the Item_Send evet. Which is a handy reminder to switch of your out of office assistant after your nice long holiday etc.

Public Sub checkoof()
Dim oCDO As MAPI.Session
Dim oStore As MAPI.InfoStore
Dim oFolder As MAPI.Folder
Dim strStoreID As String
Dim blnOOF As Boolean
Dim blnResult As Boolean Set oCDO = CreateObject("MAPI.Session")
oCDO.Logon "", "", False, False 'piggy-back logon
Set oFolder = oCDO.Inbox 'get default Inbox
strStoreID = oFolder.StoreID 'get default InfoStore.StoreID0
Set oStore = oCDO.GetInfoStore(strStoreID) 'get store
blnOOF = oStore.Fields(&amp;H661D000B) 'get property
If blnOOF = True Then
blnResult = MsgBox("The out of office assistant is currently set, would you like to disable this?")
If blnResult = True Then
SendKeys "%{U}"
End If
End If
End Sub
Private Sub Application_Startup()
checkoof
End Sub
Public Sub checkoof()Dim oCDO As MAPI.SessionDim oStore As MAPI.InfoStoreDim oFolder As MAPI.FolderDim strStoreID As StringDim blnOOF As BooleanDim blnResult As Boolean Set oCDO = CreateObject("MAPI.Session")oCDO.Logon "", "", False, False 'piggy-back logonSet oFolder = oCDO.Inbox 'get default InboxstrStoreID = oFolder.StoreID 'get default InfoStore.StoreID0Set oStore = oCDO.GetInfoStore(strStoreID) 'get storeblnOOF = oStore.Fields(&amp;H661D000B) 'get property
If blnOOF = True ThenblnResult = MsgBox("The out of office assistant is currently set, would you like to disable this?")If blnResult = True ThenSendKeys "%{U}"End IfEnd If
End Sub
Private Sub Application_Startup()
checkoof
End Sub

Public Sub checkoof()

Dim oCDO As MAPI.Session

Dim oStore As MAPI.InfoStore

Dim oFolder As MAPI.Folder

Dim strStoreID As String

Dim blnOOF As Boolean

Dim blnResult As Boolean Set oCDO = CreateObject("MAPI.Session")

oCDO.Logon "", "", False, False 'piggy-back logon

Set oFolder = oCDO.Inbox 'get default Inbox

strStoreID = oFolder.StoreID 'get default InfoStore.StoreID0

Set oStore = oCDO.GetInfoStore(strStoreID) 'get store

blnOOF = oStore.Fields(&H661D000B) 'get property

If blnOOF = True Then

blnResult = MsgBox("The out of office assistant is currently set, would you like to disable this?")

If blnResult = True Then

SendKeys "%{U}"

End If

End Sub

Private Sub Application_Startup()

checkoof

End Sub

Public Sub checkoof()Dim oCDO As MAPI.SessionDim oStore As MAPI.InfoStoreDim oFolder As MAPI.FolderDim strStoreID As StringDim blnOOF As BooleanDim blnResult As Boolean Set oCDO = CreateObject("MAPI.Session")oCDO.Logon "", "", False, False 'piggy-back logonSet oFolder = oCDO.Inbox 'get default InboxstrStoreID = oFolder.StoreID 'get default InfoStore.StoreID0Set oStore = oCDO.GetInfoStore(strStoreID) 'get storeblnOOF = oStore.Fields(&H661D000B) 'get property

If blnOOF = True ThenblnResult = MsgBox("The out of office assistant is currently set, would you like to disable this?")If blnResult = True ThenSendKeys "%{U}"End IfEnd If

End Sub

Private Sub Application_Startup()

checkoof

End Sub

Outlook 2007 brought with it the all new ‘Ribbon Bar’ which has caused headaches to programmers the world over.

Now, using this code you can create a menu in Outlook. The menu, which contains one item, appears at the top of the application. When you click the menu item, the code displays a message that shows the menu item caption.

Private menuBar As Office.CommandBar Private newMenuBar As Office.CommandBarPopup Private buttonOne As Office.CommandBarButton Private menuTag As String = “A unique tag” Private Sub ThisApplication_Startup(ByVal sender As Object, ByVal e _ As System.EventArgs) Handles Me.Startup RemoveMenubar() AddMenuBar() End Sub Private Sub AddMenuBar() Try menuBar = Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar newMenuBar = menuBar.Controls.Add( _ Office.MsoControlType.msoControlPopup, _ Temporary:=False) If newMenuBar IsNot Nothing Then newMenuBar.Caption = “New Menu” newMenuBar.Tag = menuTag buttonOne = newMenuBar.Controls.Add( _ Office.MsoControlType.msoControlButton, _ Before:=1, Temporary:=True) With buttonOne .Style = Office.MsoButtonStyle.msoButtonIconAndCaption .Caption = “Button One” .FaceId = 65 .Tag = “c123” End With AddHandler buttonOne.Click, AddressOf ButtonOne_Click newMenuBar.Visible = True End If Catch Ex As Exception MessageBox.Show(Ex.Message) End Try End Sub Public Sub ButtonOne_Click(ByVal buttonControl As Office. _ CommandBarButton, ByRef Cancel As Boolean) MessageBox.Show(“You clicked: ” & buttonControl.Caption, _ “Custom Menu”, MessageBoxButtons.OK) End Sub Private Sub RemoveMenubar() Try ‘ If the menu already exists, remove it. Dim foundMenu As Office.CommandBarPopup = _ Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar. _ FindControl(Office.MsoControlType.msoControlPopup, _ System.Type.Missing, menuTag, True, True) If foundMenu IsNot Nothing Then foundMenu.Delete(True) End If Catch Ex As Exception MessageBox.Show(Ex.Message) End Try End Sub

Welcome to MikeSel.info

Operating System How To's

Programming How To's

CMS How To's

Security How To’s

Home Automation

Outlook 2007

Check out of office status VBA

Add Custom Menus and Menu Items to Outlook