Can I convert this simple outlook 2000 macro to run via a form ?

[Andrew]

I have the following outlook vba macro code

Set olkApp = CreateObject("Outlook.Application")
Set myExplorer = olkApp.ActiveExplorer
myExplorer.ShowPane olFolderList, True
myExplorer.ShowPane olOutlookBar, False

I do not have any office development tools and am looking for a simple
way to send this out to my org.

The form would be simple and I would use the open event. I hoping that
someone here can tweak the above and help me /advise.

Thank you

 

[Ken Slovak - [MVP - Outlook]]

If you put the code in a form it would have to be published for the
code in Item_Open to run.

Function Item_Open()
Dim myExplorer
Const olFolderList = 2
Const olOutlookBar = 1

Set myExplorer = Application.ActiveExplorer
myExplorer.ShowPane olFolderList, True
myExplorer.ShowPane olOutlookBar, False

Set myExplorer = Nothing
End Function

BTW, in an Outlook VBA macro you don't need to create an
Outlook.Application object, you can just use Application.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Lead Author, Professional Outlook 2000 Programming, Wrox Press
Lead Author, Beginning VB 6 Application Development, Wrox Press
Attachment Options
http://www.slovaktech.com/attachmentoptions.htm
Extended Reminders
http://www.slovaktech.com/extendedreminders.htm

 

[Andrew]

Thanks Ken,

It looks so simple like that !

My reason for doing this is so people can see that they have move than
an INBOX and clear the mailbox before we have a server crash because
of disk space problems.

Too late already happened, once its back up I will test it

If you put the code in a form it would have to be published for the
code in Item_Open to run.

Function Item_Open()
Dim myExplorer
Const olFolderList = 2
Const olOutlookBar = 1

Set myExplorer = Application.ActiveExplorer
myExplorer.ShowPane olFolderList, True
myExplorer.ShowPane olOutlookBar, False

Set myExplorer = Nothing
End Function

BTW, in an Outlook VBA macro you don't need to create an
Outlook.Application object, you can just use Application.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Lead Author, Professional Outlook 2000 Programming, Wrox Press
Lead Author, Beginning VB 6 Application Development, Wrox Press
Attachment Options
http://www.slovaktech.com/attachmentoptions.htm
Extended Reminders
http://www.slovaktech.com/extendedreminders.htm

I have the following outlook vba macro code

Set olkApp = CreateObject("Outlook.Application")
Set myExplorer = olkApp.ActiveExplorer
myExplorer.ShowPane olFolderList, True
myExplorer.ShowPane olOutlookBar, False

I do not have any office development tools and am looking for a simple
way to send this out to my org.

The form would be simple and I would use the open event. I hoping that
someone here can tweak the above and help me /advise.

Thank you