Macro to generate email fails on other computers but works on mine

[Mr_Phil]

I have a macro that generates an email at the click of a button. It is on a workbook that is distributed to others who do the same thing I do but for differing regions. Obviously the macro works for me. But one of the others says it simply does nothing for her. I had her send me her up to date workbook and opened it on my computer and the macro ran as advertised. One of the others also runs the macro fine on his machine.

I'm thinking the issue is somewhere in her Outlook or Windows Setting and isn't an Excel issue. Here is the code, if anyone sees anything wrong I'd appreciate the chance to learn from it. Thanks for looking.

Sub RaEmail()
    On Error GoTo ErrHandler
    
    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' CREATE EMAIL OBJECT.
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)

    With objEmail
        .To = Sheets("Remote SM").Range("U1").Value
        .CC = Sheets("Remote SM").Range("U2").Value & ";" & Sheets("Remote SM").Range("U3").Value & ";" & Sheets("Remote SM").Range("U4").Value
        '.BCC = "REGIONAL MANAGERS;"
        .Subject = UCase(Sheets("Remote SM").Range("A6").Value) & ": " & "OLD RA WARNING"
        .Body = Sheets("Remote SM").Range("A6").Value & " " & "has old or past due RA's as shown below." & vbNewLine & "Beginning in August we will not pull for anyone whose RA's are past due." & vbNewLine & "Please have the tech turn in the old or past due RA immediately so it can be picked up on the next truck headed back to the warehouse."
        '& vbNewLine & ThisWorkbook.Sheets("Remote SM").Range("RETURNS")
        .Display        ' Display the message in Outlook.
    End With
    
    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing
        
ErrHandler:
    '
End Sub

[cubangt]

Make sure the other computer has the outlook reference checked

[Mr_Phil]

Make sure the other computer has the outlook reference checked

It does. It appears she’s got Win 7 where I have Win 10. I assume that means her version of Excel is close but not the same as mine. IT is getting her a new computer with matching specs as mine. Hopefully we’ll get more info then. Thanks for your suggestion. I appreciate the time you took to help out.

[TMS]

Change this:

    Set objEmail = objOutlook.CreateItem(olMailItem)

to this

    Set objEmail = objOutlook.CreateItem(0)

I suspect that you created the code using early binding and then converted it to late binding. olMailItem is an Outlook Object model item reference and will not be interpreted on someone else's machine without the Outlook reference.

[Mr_Phil]

Change this:

    Set objEmail = objOutlook.CreateItem(olMailItem)

to this

    Set objEmail = objOutlook.CreateItem(0)

I suspect that you created the code using early binding and then converted it to late binding. olMailItem is an Outlook Object model item reference and will not be interpreted on someone else's machine without the Outlook reference.

I’m afraid it didn’t make a difference. IT thinks it is due to a difference in our Windows versions as she’s on 7 and I’m on 10. That makes me think we might have close but not quite the same version of excel. Hopefully getting her a new computer with matching specs will fix the issue. I appreciated the bit of learning though. Thanks for your time and help.

[TMS]

@MrPhil: is this resolved?

[Mr_Phil]

@MrPhil: is this resolved?

Not just yet. We think now that it might be version differnces in her and my OS. IT is going to get her a new computer and we’ll see then.

[TMS]

Does she use other workbooks with macros successfully?

[Mr_Phil]

Does she use other workbooks with macros successfully?

Yes Sir. All the other macros in that workbook work fine for her. It's only the one email issue.