Hi,

I have developed the Custom Form with various user defined functions. My
requirement is to use the same functions in different custom forms. I could
not able to call the functions (Getting an error "object doesn't support this
property or method" ). For example,

Function GetNewItem()
Dim nameSpace, inbox, newItem
Set nameSpace = Application.GetNameSpace("MAPI")
Set inbox = nameSpace.GetDefaultFolder(6)
Set newItem = inbox.Items.Add("IPM.Note.GeneralNavigation")
Set GetNewItem = newItem
End Function

sub cmdimport_click()
dim doc
dim st
set doc=GetNewItem() 'Object created.
set st=xmldoc.getusername() 'Getting error here.
end sub

Please give me the solution on this.
I appreciate your help.

Thanks,
Mani