Accessing the function across the forms.

[Guest]

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

 

[Sue Mosher [MVP-Outlook]]

This may sound obvious, but whatever code you want to run each form to run needs to be present in that form's code editor window.

It's not at all clear from what you posted what xmldoc is supposed to be. If you're calling an external component, you need to instantiate that component first.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

 

[Guest]

Hi Sue,

I have created the custom form with the below public function and I want to
use the public function across many forms. For example

Public Function GetData(requireElement)
Dim nodes
Dim i
Dim Element()

Set xmldoc = createobject("MSXML.DOMDOCUMENT")
xmldoc.async="false"
If xmldoc.Load("\\devdata\Admin\Sample.xml") then
Else
Msgbox "Not Loaded..."
End If

Set nodes=xmlDoc.selectNodes(requireElement)
redim preserve Element(nodes.length-1)

for i = 0 to nodes.length-1
Element(i)= nodes(i).Text
next

GetData = Element

End Function

Is it possible to call this function from the another form. I have tried the
below code, but getting an error.

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

sub cmdimport_click()
dim xmldoc
dim st
set xmldoc=GetNewItem()
set st=xmldoc.GetData("A\B\C") ----> Here getting an same error.

end sub

Please suggest me the solution.

Thanks,
Mani

 

[Sue Mosher [MVP-Outlook]]

As I indicated earlier, you must copy the function's code into each form you want to use it in.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers

I have created the custom form with the below public function and I want to
use the public function across many forms. For example