outlook mail in xl2010

[diddi]

greets all. i have come across my first difficulty using xl2010... this code based on ronDB's code has worked for me for ages, but under 2010 it falls over here:
OlMail.Recipients.Add ToRecipient

has the object model changed? i couldnt find anything at msdn.
TIA

     ' emailName is a Public string

    Dim OlApp As Object, OlMail As Object
    Dim ToRecipient As Variant

            Set OlApp = CreateObject("Outlook.Application")
            Set OlMail = OlApp.createitem(olmailitem)
            
                For Each ToRecipient In Array(emailName) 
                    OlMail.Recipients.Add ToRecipient
                Next ToRecipient
        
            OlMail.Subject = Label2.Caption & " from me"
            OlMail.body = "Please find attached invoice." & Chr(13) & "my name"
            OlMail.Attachments.Add "D:\My Invoices\" & Label2.Caption & ".pdf"

            OlMail.Send

 

[Domenic]

What string has your variable emailName been assigned? If, for example, you have the following...

emailName = "Joe@abc.com;John@xyz.com"

...try replacing...

For Each ToRecipient In Array(emailName)

with

For Each ToRecipient In Split(emailName, ";")

 

[diddi]

quick update...

after trying domenic's suggestion without any luck
i stumbled in the dark until...

                For Each ToRecipient In Array(emailName) 
                    OlMail.Recipients.Add ToRecipient
                Next ToRecipient

change to this

                For Each ToRecipient In Array(emailName) 
                    OlMail.To ToRecipient
                Next ToRecipient

and all is good