Microsoft Office Forums - View Single Post

gmayor · 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