ACTIVEEXPLORER to always include File Size

  • Thread starter Thread starter jason
  • Start date Start date
J

jason

I can't find a built-in Tool which will mean that whichever of my
subfolders I am viewing I get to see the file-size of each mail in the
folder.

I have several routines in ThisOutlookSession - one from S.Mosher's
book that means that whenevr I go into the Contacts explorer the find
tool is always activated.I was wandering if I could solve my present
problem in a similar way so that whenever the explorer is changed an
event is fired and the activeexplorer will always show file-size.The
only problem is that I can't find any code to help me show this
explore property!

Any help greatly appreciated

J
 
Application.ActiveExplorer.BeforeFolderSwitch would tell you which
folder is being switched to. If you already have views defined in your
folders that show the item sizes you can use Explorer.CurrentView to
set the view in that folder.

Why not just set the default view for the folders you are interested
in to be a view that shows item sizes?

--
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
 
Ken Slovak suggests using Explorer.CurrentView - how do I use this to
change the view though, does "CurrentView" have arguments, one of
which is file size, or does CurrentView have its own properties one of
which is file size
(Ken suggested to change the default view of each explorer, and not
use code, I've got about 50 subfolders to my Inbox, it would be a
boring job going through and manually changing the view of each one!)

Help greatly appreciated

J
 
Explorer.CurrentView = "Phone List" or Explorer.CurrentView = "Address
Cards" or whatever. It must be a currently existing view that is
available in the folder that is the MAPIFolder which is
Explorer.CurrentFolder.

If you don't know how a property, method or event works or what its
arguments are use the Object Browser. Most topics there also have code
examples.

--
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
 
Ken,

So far I have this code in my ThisOutlookSession:

Option Explicit
Dim WithEvents objexpl As Outlook.Explorer

Private Sub application_startup()
Set objexpl = Application.ActiveExplorer
End Sub

Private Sub objexpl_BeforeFolderSwitch(ByVal NewFolder As Object,
Cancel As Boolean)
'code to set the new folder view
End Sub

Unfortunately I'm missing the important bit! (I can put in
msgbox"hello" and I get a nice message when I swich folders).I wish
there was a macro recorder - this probelm would be easy!

Help greatly appreciated

J

Ken Slovak - said:
Explorer.CurrentView = "Phone List" or Explorer.CurrentView = "Address
Cards" or whatever. It must be a currently existing view that is
available in the folder that is the MAPIFolder which is
Explorer.CurrentFolder.

If you don't know how a property, method or event works or what its
arguments are use the Object Browser. Most topics there also have code
examples.

--
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


jason said:
Ken Slovak suggests using Explorer.CurrentView - how do I use this to
change the view though, does "CurrentView" have arguments, one of
which is file size, or does CurrentView have its own properties one of
which is file size
(Ken suggested to change the default view of each explorer, and not
use code, I've got about 50 subfolders to my Inbox, it would be a
boring job going through and manually changing the view of each one!)

Help greatly appreciated

J

(e-mail address removed) (jason) wrote in message
Click to expand...
Click to expand...
 
Private Sub objexpl_BeforeFolderSwitch(ByVal NewFolder As Object, _
Cancel As Boolean)
'code to set the new folder view
NewFolder.GetExplorer.CurrentView = "whatever view name"
End Sub
 
Back
Top