Developer Samples

Sub DateStampTop() Dim objApp As Outlook.Application Dim Item As Object Set objApp = Application Set Item = objApp.ActiveInspector.CurrentItem Item.Body = Format(Now(), "MMM dd, yyyy h:mm AM/PM") & vbCrLf & vbCrLf & Item.Body End Sub Sub DateStampCursor() Dim objApp As Outlook.Application Dim Item As Object Dim objWord As Object 'Word.Application Dim objDoc As Object 'Word.Document Dim  

This code sample demonstrates how to use the contents of a text file to populate a ListBox. This works for ComboBoxes and TextBoxes. A client adds keywords to message subjects so it's easier to find the messages later but had a problem: if he misspelled a keyword or used a slightly different keyword, he might not find the message. My solution is a macro that lists keywords to choose from. He can select one or more keywords then click OK to add the keyword(s) to the subject.

Use a macro to display the BCC recipients in an Outlook.com account in Outlook 2013.

A user wanted to create Public Sub CreateContactGroup() Dim oDL As Outlook.DistListItem Dim oRecipients As Outlook.Recipients Dim oMail As Outlook.MailItem Dim objItemsCollection As Object Dim objItem As Object Dim oSelectedContact As Outlook.ContactItem Dim oSelectedDL As Outlook.DistListItem Dim oSelection As Outlook.Selection Dim CurrentFolder As Outlook.Folder Dim Result As Integer Dim Found As Boolean Dim strDisplayName As  

This Outlook macro saves the selected message and any attachments to a folder in your Documents folder.

This macro shows how to get the sender's SMTP address. While it's simple to get the email address, if the sender is a coworker on your Exchange server, Item.SenderEmailAddress will return their Exchange internal address, not their SMTP address. /O=EXCHANGELABS/OU=EXCHANGE ADMINISTRATIVE GROUP (FYDIBOHF23SPDLT)/CN=RECIPIENTS/CN=AB1A9F6FCFFE4BBB64BCB76B991F5C2A-DIANE To get the SMTP address, you need to query the Global Address  

Use a VBA macro to monitor a folder in a secondary mailbox for new messages.

How to create a custom index field on Outlook messages using numbers only or the mailbox name and numbers.

Outlook VBA doesn't have a timer function but you can use Appointment or Task Reminders to trigger macros. If you want the macro to fire a specified time after you restart Outlook, use an Application_Startup macro to create the appointment.

How to view the created date of any Outlook item using VBA. Includes code to display the start or end date of a recurring series.

Moving deleted items from the Deleted Items folder using Quick Steps or a macro.

Victor Beekman wanted to share another macro with our visitors. This is similar to our macros that search for all messages from a contact or sender but instead of doing an "in-place" search, it opens a new window with the results.

How to use a macro and a userform to create a filtered view on any Outlook folder.

I often need to copy a Contact's details to share with others and to put into appointments.

Copy Members of All Distribution Lists to Excel Option Explicit ' Based off of Extract the members of a distribution list to an Excel Worksheet from ' Sue Mosher book "Microsoft Outlook 2007 Programming page 782 also at ' //msdn.microsoft.com/en-us/library/dd492013%28v=office.12%29.aspx Sub AllDLToExcel() Dim dl 'As Outlook.DistListItem Dim objOL As Outlook.Application Dim objNS As Outlook.NameSpace Dim