Outlook Reply or ReplyAll to an Email

by

To simply Reply or ReplyAll selected messages try the following.

Option Explicit
Sub ReplyMSG()
    Dim olItem As Outlook.MailItem
    Dim olReply As MailItem ' Reply
    Dim olRecip As Recipient ' Add Recipient
    
    For Each olItem In Application.ActiveExplorer.Selection
        Set olReply = olItem.ReplyAll
        Set olRecip = olReply.Recipients.Add("Email Address Here") ' Recipient Address
        olRecip.Type = olCC
        olReply.HTMLBody = "Hello, Thank you. " & vbCrLf & olReply.HTMLBody
        olReply.Display
    
        'olReply.Send
    Next olItem
End Sub

To hide the recipient use BCC
Example

olRecip.Type = olBcc

To add multiple recipient just add

Set olRecip = olReply.Recipients.Add("Email Here")
Set olRecip = olReply.Recipients.Add("Email Here")
Set olRecip = olReply.Recipients.Add("Email Here")

With out Recipient try the following.

Option Explicit
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 = "Hello, Thank you. " & vbCrLf & olReply.HTMLBody
        olReply.Display

        'olReply.Send
    Next olItem
End Sub

More Related Contents:

  1. How to move each emails from inbox to a sub-folder [duplicate]
  2. How to insert text into Outlook email editor using VBA
  3. How do you extract email addresses from the ‘To’ field in outlook?
  4. Get reference to additional Inbox
  5. How to add default signature in Outlook
  6. How do I trigger a macro to run after a new mail is received in Outlook?
  7. Outlook VBA – Run a code every half an hour
  8. Can I iterate through all Outlook emails in a folder including sub-folders?
  9. Download attachment from Outlook and Open in Excel
  10. Embed picture in outlook mail body excel vba
  11. Save attachments to a folder and rename them
  12. VBA Search in Outlook
  13. Sending mail using Outlook where the Send method fails
  14. How to do late binding in VBA?
  15. Distinguish visible and invisible attachments with Outlook VBA
  16. Check for the senderEmailAddress
  17. Removing a string that includes CRLF characters from body of e-mail
  18. How do I open an outlook .msg file from my harddrive that is NOT in outlook?
  19. Add a “CC recipient” to Outlook 2010 VBA
  20. Using visual basic to access subfolder in Inbox?
  21. When is a MailItem not a MailItem? [closed]
  22. How to send email to multiple recipients with addresses stored in Excel?
  23. How to add an embedded image to an HTML message in Outlook 2010
  24. Restrict Outlook Items by Date
  25. VBA Outlook Mail .display, recording when/if sent manually
  26. MS Access VBA: Sending an email through Outlook [closed]
  27. Where does Outlook store the VBA code files?
  28. Working with current open email
  29. Debugging an Outlook 2007 script fired by a rule
  30. How to Send Email When Computer is Locked?

Leave a Comment