I need to send emails and have the "Direct Replies To" field updated to a different address.
This is my code. I've remarked what I tried, which is NOT working.
Code
Dim OutApp As Object
Dim OutMail As Object
Dim EmailBody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'Send email
On Error Resume Next
With OutMail
.to = Sheet2.Range("b3").Value
.ReplyRecipients = """Test Reply"" <[email protected]>" 'This isn't working with Outlook 2010. The Direct Replies To field does not update.
.Subject = Sheet2.Range("b5").Value
.HTMLBody = EmailBody
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Display More