![]() |
#7
|
||||
|
||||
![]()
The following is a combination of the two
Code:
Sub ReplyMSG() Dim olItem As Outlook.MailItem Dim olReply As MailItem ' Reply For Each olItem In Application.ActiveExplorer.Selection Set olReply = olItem.ReplyAll olReply.HTMLBody = "Am currently working on your quote, I should have it done today or first tomorrow morning. Any question feel to email directly please." & vbCrLf & olReply.HTMLBody olReply.Display olReply.Categories = "Juan Cabrera”" olReply.Send Next olItem Set olItem = Nothing Set olReply = Nothing End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
|
![]() |
||||
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 |