“Reply To All” With Standard Answer In Outlook

I’m currently writing a code, which will enable me to run a code, which will reply to a selected email with standard text in the cc, subject, body, and so on.

The code that I managed to write creates a new email message, instead I want the code to select "reply to all" to the email that I’ve selected, and then fill in the cc, subject, body, and so on.



Sub test()
Dim msg As Outlook.MailItem
Set msg = Application.CreateItem(olMailItem)
msg.Display
msg.CC = "test@hotmail.com"
msg.Subject = "testing!"
msg.Body = "hello all" & vbNewLine & vbNewLine & "We agree to your call..."

End Sub