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
Change the All Day Event Default Free/Busy to "Busy"
How to use a macro or a custom form to set a new all day event to Busy by default.
Private: "Always reply using HTML" code sample
Outlook's behavior with the reply format is to reply in the format of the original message. If someone sends you plain text message, the reply will always be plain text, because Outlook assumes the sender prefers mail in that format or can only accept mail in that format. You can change this using VBA.
Private: Save Email Attachments (but don't delete them from message)
The following code works in Outlook 2000 and up. It saves the attachments from selected messages but does not delete the attachments from the message(s). Copy and paste the code from this page into your ThisOutlookSession project. To do this, click in the text box, Select All using Ctrl+A, Ctrl+C to copy. In Outlook, press
Add Secure to the Message Subject before Sending
Several users asked me how to add secure to the message subject before sending the message. I need a way to change the subject of an email after I hit send. Specific example: If I have a subject that says "meeting", after I hit send I would like the subject to be automatically changed to
Copy attachment names when replying
Use a macro to copy attachment names from the original message to the reply or reply all in HTML or plain text messages.
Insert or change an Outlook signature using VBA
How to insert or change an Outlook signature using a VBA macro.
Remove Email Signature from Message using VBA
Remove a signature from a message using a VBA macro.
Add Attachment Names to Message Before Sending
An Outlook user saw my macro that adds attachments names in the reply and asked about a macro that will add the attachment names to the message body before sending a message.
Remove the To field from an Outlook message form
Sometimes we get some interesting questions and the solution, while not useful to everyone, is worth mentioning. This is one of those questions. I must use the BCC most of the time because of confidentiality reasons. I have made mistakes a couple of times when I entered the email addresses of more than one recipient
Add Email Addresses to a Contact Group
Use a macro to quickly add the sender of an email to a Contact Group.
Save and Send a PDF from Word
I utilize the "Email as a PDF Attachment" button in Word. It generates an email ready to go with the PDF attachment. I need to replace the default subject (which is the file title), with standard information that I have to put in all these emails. But I can't do anything before saving, closing and
Add a date stamp to Outlook items using a macro
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
Outlook VBA: Use a Text File to Populate a ListBox
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.
View the CC or BCC Addresses in a Sent Message
Use a macro to display the BCC recipients in an Outlook.com account in Outlook 2013.
Create Contact Groups by Category
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