J
Jason Chapman
My first Outlook VBA. I am trying to work through folders (typically
inboxes), archiving e-mails off to the appropriate place. As there are
thousands of e-mails in the inbox, I thought I would have a button that
allowed me to record what date the last e-mail looked at was, so I can
come back to that point and continue archiving in the future.
I thought I would use the folder description as it doesn't ever seem to
have anything in it and I wanted the "bookmark" to be close to the data.
The code below works, but often the updated description doesn't stick
between outlook sessions. I think it might be when there are more than
one outlook "view" open, but not sure. Any idea why, is it like the
old lotus 123 overlapping saves?
Sub SetFolderDescription()
Dim TestFolder As Outlook.Folder
Dim NewDescritpion
Set TestFolder = Application.ActiveExplorer.CurrentFolder
Debug.Print (TestFolder.Description)
NewDescritpion = InputBox("Edit Description", "Folder: " &
TestFolder.Name, TestFolder.Description)
TestFolder.Description = NewDescritpion
Debug.Print (TestFolder.Description)
End Sub
Unfortunately, there may be more stupid questions as I work through all
the ideas I have to customise outlook.
TIA
inboxes), archiving e-mails off to the appropriate place. As there are
thousands of e-mails in the inbox, I thought I would have a button that
allowed me to record what date the last e-mail looked at was, so I can
come back to that point and continue archiving in the future.
I thought I would use the folder description as it doesn't ever seem to
have anything in it and I wanted the "bookmark" to be close to the data.
The code below works, but often the updated description doesn't stick
between outlook sessions. I think it might be when there are more than
one outlook "view" open, but not sure. Any idea why, is it like the
old lotus 123 overlapping saves?
Sub SetFolderDescription()
Dim TestFolder As Outlook.Folder
Dim NewDescritpion
Set TestFolder = Application.ActiveExplorer.CurrentFolder
Debug.Print (TestFolder.Description)
NewDescritpion = InputBox("Edit Description", "Folder: " &
TestFolder.Name, TestFolder.Description)
TestFolder.Description = NewDescritpion
Debug.Print (TestFolder.Description)
End Sub
Unfortunately, there may be more stupid questions as I work through all
the ideas I have to customise outlook.
TIA