create macro to add category to email

gmayor · #11 07-15-2023, 01:18 AM

If yo want to add the default signature and the original message, and include bullet points, it is simpler to use the eMail Word editor.
The following will reply to the selected message, categorize the original message and retain your signature,

Code:

Sub ReplyMSG()
'Graham Mayor - https://www.gmayor.com - Last updated - 15 Jul 2023
Dim olItem As Outlook.MailItem
Dim olReply As MailItem    ' Reply
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object
    
    On Error Resume Next
    Select Case Outlook.Application.ActiveWindow.Class
        Case olInspector
            Set olItem = ActiveInspector.currentItem
        Case olExplorer
            Set olItem = Application.ActiveExplorer.Selection.Item(1)
    End Select

    Set olReply = olItem.ReplyAll
    With olReply
        .BodyFormat = olFormatHTML
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range(0, 0)
        oRng.Text = "Am currently working on your quote, I should have it done today or first tomorrow morning. " & _
                    "Any question, please feel free to email directly."
        oRng.collapse 0
        oRng.Text = vbCr & vbCr & "Item 1" _
                    & vbCr & vbCr & "Item 2" _
                    & vbCr & vbCr & "Item 3"
        olReply.Display
        olReply.Send
    End With
    olItem.Categories = "Juan Cabrera”"
    olItem.Close olSave
lbl_Exit:
    Set olItem = Nothing
    Set olReply = Nothing
    Set olInsp = Nothing
    Set wdDoc = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create a Userform in Outlook to select a macro for an email template.	snickerbart	Outlook	4	04-17-2015 12:55 PM
Create QuickStep: Save Contact with Category	ilcaa72	Outlook	1	05-20-2014 10:31 AM
Macro to export email to text file on send depending on category	Joe Patrick	Outlook	0	10-19-2012 06:20 PM
How to create a Main category mirrored in Sub category data entry type of solution?	Geza59	Excel	0	10-19-2012 05:44 AM