Problem with outlook

I was using W2000 with the following code to save a message in outlook.

Set objOutlook = New Outlook.Application
Set Namespace = Outlook.GetNamespace("MAPI")
Set Recipient = Namespace.CreateRecipient(g_codigo_usuario)
Set Appt = Namespace.GetSharedDefaultFolder(Recipient, olFolderCalendar).Items.Add
Appt.Location = "Cobros"
.
.
.

But now with xp i got an error in this line
Set Appt = Namespace.GetSharedDefaultFolder(Recipient, olFolderCalendar).Items.Add

with this message:Outlook does not recognize one or more names.

Any hlp? :D

Moved

Did you verify that the reciepient is the same or is valid? Also try Resolving the receipient after you add it. ;)