Red VBA Error

[BigtunaExcel]

I have a VBA script for Outlook that works fine on my machine however when I paste code into my coworkers application parts of the code turns red and the error message says "Syntax Error". I tried this on a handful of machines and repeated get the same red font errors. I don't think it is reference issue, and I don't think it is a macro security issue either, but that this point any suggestions for things to try would be greatly appreciated.


Private Sub GetPDFS(mostrecentdate As Date, Optional foldername As String, Optional subfoldername As String)

Dim Inbox As Outlook.MAPIFolder

Dim Item As Outlook.MailItem
Dim Atmt As Outlook.Attachment
Dim fileName As String

Dim i As Integer
Dim subject As String
Dim ws_test As Integer
Dim attachment_counter As Integer

Dim received As Date
Dim testDate As Date

Dim NS As Outlook.Namespace
Dim objOwner As Outlook.Recipient

Set NS = GetNamespace("MAPI")
Set objOwner = NS.CreateRecipient(Sample@sample.us.com)
objOwner.Resolve

'' See if subfolder has name.
If foldername = "" Then
Set Inbox = NS.GetSharedDefaultFolder(objOwner, olFolderInbox)
ElseIf subfoldername = "" Then
Set Inbox = NS.GetSharedDefaultFolder(objOwner, olFolderInbox).Folders(foldername)
Else
Set Inbox = NS.GetSharedDefaultFolder(objOwner, olFolderInbox).Folders(foldername).Folders(subfoldername)
End If

i = 1
received = mostrecentdate + 1

'' This is based on the idea that Inbox.Items is sorted by recieved date.
Dim ct As Integer
Dim pol As String
Dim savename As String

Do While received > mostrecentdate
Set Item = Inbox.Items(i)
received = Item.ReceivedTime
senderemail = Item.Sender

If senderemail = XXXX Or senderemail = "XXX" Or senderemail = "XX" Then
subject = Item.subject
subject = removeSpecial(subject)
Body = Item.Body

 

[Joe4]

Welcome to the Board!

Look at the file on your machine (that works).
Go to the VB Editor, and from the Tools menu, go to References and note all the libraries that are selected.
Do the same on the other machines.
Are they missing the library selections? If so, find them in the list and select them.

 

[BigtunaExcel]

I double checked the references and they are the same on all machines.

 

[Joe4]

I double checked the references and they are the same on all machines.

Can you tell/show me what references they are, so I can see if I get those errors when I select those same references?

 

[BigtunaExcel]

 

[BigtunaExcel]

Like I mentioned the red highlight only appears on others machines. The macro runs fine on mine.

 

[Joe4]

Does that code really work on your computer, as-is?
Because it appears that you have some blatant errors in red lines of code you have:

Set objOwner = NS.CreateRecipient(Sample@sample.us.com)

needs double-quotes around the value in parentheses, like this:

Set objOwner = NS.CreateRecipient("Sample@sample.us.com")

Likewise, you need quotes around the first senderemail value, i.e.

If senderemail = XXXX Or senderemail = "XXX" Or senderemail = "XX" Then

like this:

If senderemail = "XXXX" Or senderemail = "XXX" Or senderemail = "XX" Then

 

[BigtunaExcel]

Apologies. I altered the values and forgot to include the parentheses. They way you have it shown is how it is on my machine.

 

[Joe4]

So which lines are returning the errors on the other computers?

 

[BigtunaExcel]

The two I tried to highlight in red. They appear red on the users computer.

Set objOwner = NS.CreateRecipient("Sample@sample.us.com")
If senderemail = "XXXX" Or senderemail = "XXX" Or senderemail = "XX" Then