Outlook 2002 (XP) - MAPIFolder.Description - Runtime Error -2113470450

  • Thread starter Thread starter Johannes Harth
  • Start date Start date
J

Johannes Harth

Hi

I am trying to get the Description of a Folder using the Description
Property of a MAPIFolder Object.

Every newly created Folder has no Description property set by default.
As a result of that I'll get a runtime error -2113470450. I have a
German version of outlook so i translated the error message with google
translate. So it could be possible that it sounds slightly different
then the original English message.

EN "Not sufficient main memory or system resources. Close some windows
or programs and try it again."

DE "Nicht genügend Arbeitsspeicher oder Systemressourcen. Schließen Sie
einige Fenster oder Programme und versuchen Sie es erneut."

I also figured out that the Folder has no property "PR_COMMENT" set.

Is there a way in vba to check whether a folder has a comment applied to
it or not?

here is an example code for testing:

Sub MAPIFolderTest()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myCalendar = myNameSpace.GetDefaultFolder(olFolderCalendar)
Set myExplorer = myOlApp.ActiveExplorer

Debug.Print "Description of Default Calendar:" & _
vbTab & myCalendar.Description
Debug.Print "Description of Selected Folder:" & _
vbTab & vbTab & myExplorer.CurrentFolder.Description
End Sub

Any help greatly appreciated
Joe
 
You could use CDO to check for the presence of the PR_COMMENT property. See http://www.cdolive.com/cdo10.htm if you're not familiar with MAPI property syntax.

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

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Thanks a lot Sue, I now have chosen a on error resume next construct to
catch that error. The reason for that is that I also would rise up an
error by reading a property via CDO without value. I could not find a
solution without rising an error.

As a result of that I now have a new question. How can I restore the
normal environment for error handling after writing the on error resume
next statement.
If any further errors would arise they just would be skipped without a
error msg. I would only like to have my application to behave so in a
few lines.

debugging would get extremely hard...

Kind regards, Johannes
 
On Error Goto 0

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

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