See it in Action!Watch this video to see this macro in action.
The CodeHere is the code for this macro. Make sure the following References are setup before running it: Visual Basic For Applications, Microsoft Outlook 16.0 Object Library, Microsoft Word 16.0 Object Library
'Leverage & Lean "Less Clicks, More Results" Sub OutlookLoopingIn() ' Means variable is in use Dim Action As String ' Dim Answer As Integer ' Dim CCRecipients As String ' Dim LoopingIn As String ' Dim oBody As Word.Document ' Dim oItem As Object ' Dim Options As String ' Dim Recipient As Recipient Dim Selection As Word.Selection ' On Error GoTo LeverageLean 'Labels to the Looping In options Options = "1. Looping In Text #1" & vbNewLine & _ "2. Looping In Text #2" & vbNewLine & _ "3. Looping In Text #3" & vbNewLine & _ "4. Looping In Text #4" 'Display the Quick Text options to select from: Action = InputBox(Options, "Outlook Looping In") 'Determine what the Quick Text is based on the Action entered If Action = "" Then Exit Sub ElseIf Action = "1" Then LoopingIn = "Looping In Text #1" CCRecipients = "" ElseIf Action = "2" Then LoopingIn = "Looping In Text #2" CCRecipients = "" ElseIf Action = "3" Then LoopingIn = "Looping In Text #3" CCRecipients = "" ElseIf Action = "4" Then LoopingIn = "Looping In Text #4" CCRecipients = "" ElseIf Action <> "" Then Exit Sub End If Set oItem = Application.ActiveInspector.CurrentItem If oItem.Class = olMail Then 'Populate the Quick Text where the cursor is located Set oBody = Application.ActiveInspector.WordEditor Set Selection = oBody.Application.Selection Selection.TypeText (LoopingIn) 'Add CCRecipients to existing CC Recipients For Each Recipient In oItem.Recipients If Recipient.Type = olCC Then CCRecipients = Recipient.Address & ";" & CCRecipients End If Next Recipient oItem.CC = CCRecipients End If 'Send Email 'Answer = MsgBox("Do you want to send the email now?", vbQuestion + vbYesNo + vbDefaultButton2, "Outlook Looping In") 'If Answer = vbYes Then 'oItem.Send 'End If Set oBody = Nothing Set oItem = Nothing Set Selection = Nothing Exit Sub LeverageLean: MsgBox ("Something went wrong. Please don't hesitate to email me at firstname.lastname@example.org") End Sub 'Stay Awesome
Macro MondayHere is the Macro Monday video this macro was featured in. Watch this video to learn how to get the most out of this macro and start using it today!
CustomizationThese lines of code can be customized to personalize this macro.
16 through 20 ‘Labels to the Looping In options Update the Looping In Text # to display a label to map CCRecipients to a leading number.
28 through 39 ElseIf Action = “1” Then For each section of code that indicates an Action number populate the variables LoopingIn and CCRecipient with the appropriate values
60 through 63 ‘Answer = MsgBox(“Do you want to send the email now?”, vbQuestion + vbYesNo + vbDefaultButton2, “Outlook Looping In”) Make these lines of code active to display a MsgBox give you an option to immediately send an email after looping in the necessary recipients