Send email from Excel, set 'Direct Replies To' via script

jronaldlee · Mar 14th 2014

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

Wigi · Mar 15th 2014

Re: Send email from Excel, set 'Direct Replies To' via script

Untested coding:

Code

Sub test()


    'Send email
    With CreateObject("Outlook.Application").CreateItem(0)
        .to = Sheet2.[B3]
        .ReplyRecipients.Add "[email protected]"
        .Subject = Sheet2.[B5]
        .HTMLBody = "EmailBody"
        .Send
    End With


End Sub

Display More

At least, it's way simpler than your code.

jronaldlee · Mar 17th 2014

Re: Send email from Excel, set 'Direct Replies To' via script

Way simpler... and it works great, too! Thank you so much.

Wigi · Mar 18th 2014

Re: Send email from Excel, set 'Direct Replies To' via script

You're welcome! Thanks for the feedback.

Send email from Excel, set 'Direct Replies To' via script

Participate now!

Share