Not using the Outlook Object Model. You will need Extended MAPI/CDO
1.21/Redemption to read the PR_FLAG_ICON (10950003) property.
In Redemption:
set sItem = CreateObject("Redemption.SafeMailItem")
sItem.Item = YourOutlookPostItem
MsgBox sItem.Fields(&H10950003)
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"None" wrote in message
ups.com...
Using the class property, I receive the number 45 which should
correspond a olpost.
Is there a way to access to the flagicon properties?
the class postitem does not have this properties but if I can select
the flag icon from outlook for the e-mails in the folder, I think there
will be a way to access to it
thanks
Alex
Dmitry Streblechenko ha scritto:
FlagIcon property is only supported by the MailItem and MeetingItem
objects.
If you have some other item type in that folder (e.g. PostItem), you will
get that error.
Check first that if the item is of expected type using the Class
property -
e.g. it will be olMail (43) for MailItem.
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
"None" wrote in message
ups.com...
i'm not very expert on vba script. I'm using outlook 2003 and i'm
trying to do a simple application. Actually I'm receiving an error
using the script below.
The script try to access to the public folder "personale" where there
are a lot of mail.
it display correctly the selected mail (in this case the number 5 since
I wrote "Set mailnow = myfolder.Items(5)") but it can't compute the
last row of the code:
mailnow.FlagIcon = olGreenFlagIcon
giving me the error number 438 - Object doesn't support this property
or method.
Why can't i access to the property flag icon?
thanks for any help
bye!
Sub prova()
Set myfolder = GetPublicFolder("personale")
Set mailnow = myfolder.Items(5)
mailnow.Display
mailnow.FlagIcon = olGreenFlagIcon
End Sub
Public Function GetPublicFolder(strFolderPath)
Dim colFolders
Dim objFolder
Dim arrFolders
Dim i
On Error Resume Next
strFolderPath = Replace(strFolderPath, "/", "\")
arrFolders = Split(strFolderPath, "\")
Set objFolder = Application.GetNamespace("MAPI")
Set objFolder = objFolder.Session.GetDefaultFolder(18)
Set objFolder = objFolder.Folders.Item(arrFolders(0))
If Not objFolder Is Nothing Then
For i = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(i))
If objFolder Is Nothing Then
Exit For
End If
Next
End If
Set GetPublicFolder = objFolder
Set colFolders = Nothing
Set objApp = Nothing
Set objFolder = Nothing
End Function