Sending Outlook Email to ReplyRecipients

[bigal.nz]

Hello,

I am trying to send a email with an attachment, and set the ReplyTo address.

I am getting :

Runtime Error '287'
Application-defined or Object-defined error

On the line : .ReplyRecipients.Add "test@test.com"




'***************************************
' *** CLICK EVENT BUTTON - Email NG ***
'***************************************


Private Sub btn_NGProvider_email_Click()


GetUserFullName2


' *** SETUP OUTLOOK ***
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set OutMail = OutApp.CreateItem(olMailItem)


' *** SETUP OTHER STUFF ***
...


' *** CREATE PDF ***
...


...




' *** CREATE EMAIL ***
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


With OutMail
.Subject = "Referral - " & Me.Event
.Body = "FEEDBACK: "
If EmailAddress > 0 Then
.To = EmailAddress
End If
.Importance = olImportanceHigh
.Attachments.Add FileName
.ReplyRecipients.Add "test@test.com"
.Display
End With


' *** TIDY UP ***
Set OutMail = Nothing
Set OutApp = Nothing


End Sub



What am I doing wrong?

Cheers

-Al

[bigal.nz]

Update: I have since found out that my code works on my personal computer - I think it might be something to do with a G.Policy @ work.