![]() |
|
#1
|
|||
|
|||
![]() Thank you, this is what I was looking for. |
#2
|
|||
|
|||
![]()
Sub ReplyMSG()
'Graham Mayor - Graham Mayor - Home Page - 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 If TypeName(ActiveExplorer.Selection.Item(1)) = "MailItem" Then Set oMail = ActiveExplorer.Selection.Item(2) 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 |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
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 |