These articles are in the Developer and Code Sample categories. These pages often contain only the code, with very little instructions and assume the reader has some VBA knowledge. See How to use the VBA Editor if you need help using VBA.
Additional code samples are at VBA Code Samples
Find folders using VBA
Sub Example_FindFolders() Dim F As Folder For Each F In FindSessionFolders(olAppointmentItem) Debug.Print F.FolderPath 'F.Display Next End Sub Function FindSessionFolders(ByVal DefaultItemType As OlItemType) As Collection Dim F As Folder, SubF As Folder Set FindSessionFolders = New Collection For Each F In Session.Folders If F.DefaultItemType = DefaultItemType Then FindSessionFolders.Add F If F.Folders.Count > 0 Then For Each
Delete from Calendar
Sub DeleteAppointmentItemsByCategories() Dim Item As AppointmentItem Dim All As New Collection With Session.GetDefaultFolder(olFolderCalendar).Items For Each Item In .Restrict( _ "@SQL=""urn:schemas-microsoft-com:office:office#Keywords"" = 'CategoryName'") All.Add Item Next End With For Each Item In All Item.Delete Next End Sub More Information //msdn.microsoft.com/en-us/library/bb147586%28v=office.12%29.aspx //msdn.microsoft.com/en-us/library/exchange/ms875215%28v=exchg.65%29.aspx Delete from Calendar was last modified: October 25th, 2013 by Diane Poremsky
Turn reminders on (or off) in an Outlook folder
To use this script, copy and paste into Notepad, save using the .vbs extension. Double click to run. Dim olApp ''Outlook.Application Dim olMapi ''Outlook.NameSpace Dim olFolder ''Outlook.MAPIFolder Dim olItems ''Outlook.Items Dim Item Dim obj ' 10 for contacts, 6 for inbox olFolder = 10 Set olApp = CreateObject("Outlook.Application") Set olMapi = olApp.GetNamespace("MAPI") Set olFolder =
Selectively change message format when replying
How to change the message format on selected messages when replying. You can also use a Run a Script rule to change the message format as messages arrive.
Create recurring event using VBA
Public Sub CreatePattern() Dim objAppt As Outlook.AppointmentItem Dim objAppt2 As Outlook.AppointmentItem Dim myPattern As Outlook.RecurrencePattern Set objAppt = GetCurrentItem() If TypeName(objAppt) = "AppointmentItem" Then Set myPattern = objAppt.GetRecurrencePattern myPattern.RecurrenceType = olRecursMonthly myPattern.Interval = 3 myPattern.Occurrences = 5 objAppt.Save objAppt.Display On Error Resume Next Set objAppt2 = Application.CreateItem(olAppointmentItem) newdate = DateAdd("m", 11, objAppt.Start) - 1 With
Check each folder using a macro
This close "walks" the subfolders of the selected folder. In this example, it just shows the message count and folder name, but that section can be replaced with code that actually does something. Sub WalkFolder() Dim olApp As Outlook.Application Dim objNS As Outlook.NameSpace Dim MyFolder As Outlook.MAPIFolder On Error Resume Next Set olApp = Outlook.Application
VBA: No attachments to CC'd recipients
Use this macro to send an attachment to email addresses in the To line and CC others with just the message and a list of attachments, and the To: recipients.