• Outlook User
  • New Outlook app
  • Outlook.com
  • Outlook Mac
  • Outlook & iCloud
  • Developer
  • Microsoft 365 Admin
    • Common Problems
    • Microsoft 365
    • Outlook BCM
    • Utilities & Addins

VBA Code Samples

Slipstick Systems

The articles listed below contain VBA code samples. Additional code samples are listed at Developer Samples

VBA Code Samples was last modified: February 8th, 2018 by Slipstick Systems

Display the recipient addresses in an Outlook Email

I want to add a column to my Inbox showing the recipient's email address. I have many email accounts and want to quickly see the recipient mail address to check if the message looks legitimate before opening it. There are several ways you can do this. If each address is a separate Outlook account you  

Create Birthday Events for Public Folder Contacts

How to use a macro to create recurring birthday events for contacts in shared calendars in Microsoft Outlook.

Internet Explorer

View Messages in Internet Explorer using a macro

This code sample saves the selected message as an HTML files and displays it in Internet Explorer. To use: select a message and run the macro. If more than one message is saved, only the first message is saved and opened in Internet Explorer. Sub ViewInBrowser() Dim oApp As Object Dim FSO As Object Dim  

Mail merge to members of a contact group

How to use VBA to mail merge (send individual messages) to members of a Contact Group.

navigation modules

Always open Contacts to a specific Contacts folder

Use a VBA macro to always open a specific folder when you switch to a module.

Work with selected items

Sub UseSelection() Dim currentExplorer As Explorer Dim Selection As Selection Dim obj As Object Set currentExplorer = Application.ActiveExplorer Set Selection = currentExplorer.Selection On Error Resume Next For Each obj In Selection Set objItem = obj With objItem ' do whatever .Save End With Err.Clear Next Set Session = Nothing Set currentExplorer = Nothing Set obj  

Find the next workday

Function NextWeekDay(dateFrom As Date, _ Optional daysAhead As Long = 1) As Date Dim currentDate As Date Dim nextDate As Date ' convert neg to pos If daysAhead < 0 Then daysAhead = Abs(daysAhead) End If ' determine next date currentDate = dateFrom nextDate = DateAdd("d", daysAhead, currentDate) ' Check for holidays entered as mm/dd/yyyy  

Outlook 2013 icon

Read and change a registry key using VBA

The basics of reading and changing a registry key using VBA.

Create a custom printout in Outlook

How to use a macro to create a custom printout in Microsoft Outlook.

Mail Merge to Contact Groups

Use a macro to mail merge to contact groups.

No linkedin

Macro to Create an Outlook Contact from an Email Message

Use a macro to create Outlook Contacts for people who sent an email message. Save the contact to the default Contacts folder or to a different Contacts folder.

Find messages in a conversation

When you use Instant Search to find messages from a person, the results contain only messages from that person, not all messages in the conversation. You can use a macro to create an Instant Search that includes messages to and from the sender of the selected message.

Check messages you send for number of recipients

A macro that checks the number of recipients on an outgoing Outlook message. If there are "too many", it asks if you want to send the message.

Create a list of contact group members and their phone numbers

Create a list of Contact Group members and their phone numbers

How to create a list of contact group (distribution list)members and their phone numbers using an Outlook macro.

Select a name in a Word document then create a Contact

How to use a macro to capture a name and email address in a Word document (such as a resume) and create a contact for that person.

« Previous Page
Next Page »

Visit Slipstick Forums.
What's New at Slipstick.com

Latest EMO: Vol. 31 Issue 3

Support Services

Do you need help setting up Outlook, moving your email to a new computer, migrating or configuring Office 365, or just need some one-on-one assistance?

Our Sponsors

CompanionLink
ReliefJet
  • Popular
  • Latest
  • Week Month All
  • Jetpack plugin with Stats module needs to be enabled.
  • Sync Issues and Errors with Gmail and Yahoo accounts
  • Error Opening iCloud Appointments in Classic Outlook
  • Opt out of Microsoft 365 Companion Apps
  • Mail Templates in Outlook for Windows (and Web)
  • Urban legend: Microsoft Deletes Old Outlook.com Messages
  • Buttons in the New Message Notifications
  • Move Deleted Items to Another Folder Automatically
  • Open Outlook Templates using PowerShell
  • Count and List Folders in Classic Outlook
  • Google Workspace and Outlook with POP Mail
Ajax spinner

Recent Bugs List

Microsoft keeps a running list of issues affecting recently released updates at Fixes or workarounds for recent issues in classic Outlook (Windows).

For new Outlook for Windows: Fixes or workarounds for recent issues in new Outlook for Windows .

Outlook for Mac Recent issues: Fixes or workarounds for recent issues in Outlook for Mac

Outlook.com Recent issues: Fixes or workarounds for recent issues on Outlook.com

Office Update History

Update history for supported Office versions is at Update history for Office

Outlook Suggestions and Feedback

Outlook Feedback covers Outlook as an email client, including Outlook Android, iOS, Mac, and Windows clients, as well as the browser extension (PWA) and Outlook on the web.

Outlook (new) Feedback. Use this for feedback and suggestions for Outlook (new).

Use Outlook.com Feedback for suggestions or feedback about Outlook.com accounts.

Other Microsoft 365 applications and services




New Outlook Articles

Sync Issues and Errors with Gmail and Yahoo accounts

Error Opening iCloud Appointments in Classic Outlook

Opt out of Microsoft 365 Companion Apps

Mail Templates in Outlook for Windows (and Web)

Urban legend: Microsoft Deletes Old Outlook.com Messages

Buttons in the New Message Notifications

Move Deleted Items to Another Folder Automatically

Open Outlook Templates using PowerShell

Count and List Folders in Classic Outlook

Google Workspace and Outlook with POP Mail

Newest Code Samples

Open Outlook Templates using PowerShell

Count and List Folders in Classic Outlook

Insert Word Document into Email using VBA

Warn Before Deleting a Contact

Use PowerShell to Delete Attachments

Remove RE:, FWD:, and Other Prefixes from Subject Line

Change the Mailing Address Using PowerShell

Categorize @Mentioned Messages

Send an Email When You Open Outlook

Delete Old Calendar Events using VBA

Repair PST

Convert an OST to PST

Repair damaged PST file

Repair large PST File

Remove password from PST

Merge Two Data Files

Sync & Share Outlook Data

  • Share Calendar & Contacts
  • Synchronize two computers
  • Sync Calendar and Contacts Using Outlook.com
  • Sync Outlook & Android Devices
  • Sync Google Calendar with Outlook
  • Access Folders in Other Users Mailboxes

Diane Poremsky [Outlook MVP]

Make a donation

Mail Tools

Sending and Retrieval Tools

Mass Mail Tools

Compose Tools

Duplicate Remover Tools

Mail Tools for Outlook

Online Services

Calendar Tools

Schedule Management

Calendar Printing Tools

Calendar Reminder Tools

Calendar Dates & Data

Time and Billing Tools

Meeting Productivity Tools

Duplicate Remover Tools

Productivity

Productivity Tools

Automatic Message Processing Tools

Special Function Automatic Processing Tools

Housekeeping and Message Management

Task Tools

Project and Business Management Tools

Choosing the Folder to Save a Sent Message In

Run Rules on messages after reading

Help & Suggestions

Submit Outlook Feature Requests

Slipstick Support Services

Buy Microsoft 365 Office Software and Services

Visit Slipstick Forums.

What's New at Slipstick.com

Home | Outlook User | Exchange Administrator | Office 365 | Outlook.com | Outlook Developer
Outlook for Mac | Common Problems | Utilities & Addins | Tutorials
Outlook & iCloud Issues | Outlook Apps
EMO Archives | About Slipstick | Slipstick Forums
Submit New or Updated Outlook and Exchange Server Utilities

Send comments using our Feedback page
Copyright © 2026 Slipstick Systems. All rights reserved.
Slipstick Systems is not affiliated with Microsoft Corporation.