Set Object Variable inside an If/ElseIf Statement (Run-time error 5)

[xenedra13]

This macro keeps giving me a run-time error '5'.

Dim myOlApp As Object
    Dim MyItem As Object
    Set myOlApp = CreateObject("Outlook.Application")
    
    If Range("C6").Value = "June" Then
        MyItem = myOlApp.CreateItemFromTemplate(JuneTemplate)                 'THE ERROR HIGHLIGHTS THIS LINE
    ElseIf Range("C6").Value = "July" Then
        MyItem = myOlApp.CreateItemFromTemplate(JulyTemplate)
    End If

I'm assuming that it isn't possible to set an object equal to something inside an if statement. Is this true? And is there any way around this problem?

 

[Rick Rothstein]

This macro keeps giving me a run-time error '5'.

Dim myOlApp As Object
    Dim MyItem As Object
    Set myOlApp = CreateObject("Outlook.Application")
    
    If Range("C6").Value = "June" Then
        [COLOR=#FF0000][B]Set [/B][/COLOR]MyItem = myOlApp.CreateItemFromTemplate(JuneTemplate)                 'THE ERROR HIGHLIGHTS THIS LINE
    ElseIf Range("C6").Value = "July" Then
        [COLOR=#FF0000][B]Set [/B][/COLOR][COLOR=#FF0000][/COLOR]MyItem = myOlApp.CreateItemFromTemplate(JulyTemplate)
    End If

I'm assuming that it isn't possible to set an object equal to something inside an if statement. Is this true? And is there any way around this problem?

You need to use the Set keyword (as shown above in red) when assigning a reference to an object.

 

[xenedra13]

I included the set keyword and I still got the same error.

 

[Rick Rothstein]

I included the set keyword and I still got the same error.

It would have helped if you mentioned which error you got. Anyway, I don't use Outlook, so I have not direct knowledge of what you are trying to do. Based on your declaring MyItem as an object, the Set keyword is required, so that was a problem. I have to assume you know what you are doing and that CreateItemFromTemplate is a method of myOlApp variable that does, in fact, return an object. If so, then without knowing the specific error message you got, the only thing I can think of is that either JuneTemplate (or JulyTemplate) is a variable that needs to be assigned a string value of some sort OR it is supposed to be a string argument and is missing the surrounding quote marks.

 

[xenedra13]

The error was listed in the first post I made but I will be more specific. I on the same line I got a "Run-Time Error '5'" "Invalid procedure call or argument". Both JuneTemplate and JulyTemplate are assigned to strings in a separate sub that calls the sub in which this segment is included. June and July Templates are assigned to "C:\Filepath\Filename.oft" and refer to a saved template. The CreateItemFromTemplate is indeed a method that returns an object and this procedure has worked in other situations. The only thing different that I can think of that I have done in this procedure as compared to the others that have all worked perfectly is that it is within an if statement. Thank you for your help

 

[Rick Rothstein]

I on the same line I got a "Run-Time Error '5'" "Invalid procedure call or argument". Both JuneTemplate and JulyTemplate are assigned to strings in a separate sub that calls the sub in which this segment is included.

When the separate sub calls this one, how are the JuneTemplate and JulyTemplate passed... as direct arguments or globally declared variables?

 

[xenedra13]

They were direct arguments. I just moved them to the declarations section and it worked! Thank you! I hadn't thought about that.