G
Guest
I have a problem with my default "Notes" folder. For some reason it changed into a "Mail" folder. The Icon in the folder tree shows a mailfolder icon, the notes in the folder are still notes. The available views are only the mail related ones.
I cannot delete it and make a new one, because it is the default notes folder.
When I run the following code;
Private Sub CheckNotesFolder()
Dim myFolder As MAPIFolder
Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderNotes)
Debug.Print "Def.ItemType : " & myFolder.DefaultItemType
Select Case myFolder.DefaultItemType
Case olAppointmentItem
Debug.Print " : olAppointmentItem"
Case olContactItem
Debug.Print " : olContactItem"
Case olDistributionListItem
Debug.Print " : olDistributionListItem"
Case olJournalItem
Debug.Print " : olJournalItem"
Case olMailItem
Debug.Print " : olMailItem"
Case olNoteItem
Debug.Print " : olNoteItem"
Case olPostItem
Debug.Print " : olPostItem"
Case olTaskItem
Debug.Print " : olTaskItem"
End Select
Debug.Print "Def.msg.class: " & myFolder.DefaultMessageClass
End Sub
The result is;
Def.ItemType : 0
: olMailItem
Def.msg.class: IPM.Note
The default ItemType should have been olNoteItem, and the defaultmessageclass should have been IPM.StickyNote
I tried all the options I could find. Also from VBA Itried to change it, but the mentioned properties for the default items & class are both read-only.
Can anybody help me out on this? My palm doesn't synchronize the notes anymore, probably because the notes folder is no notes folder anymore.....
Tieske.
I cannot delete it and make a new one, because it is the default notes folder.
When I run the following code;
Private Sub CheckNotesFolder()
Dim myFolder As MAPIFolder
Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderNotes)
Debug.Print "Def.ItemType : " & myFolder.DefaultItemType
Select Case myFolder.DefaultItemType
Case olAppointmentItem
Debug.Print " : olAppointmentItem"
Case olContactItem
Debug.Print " : olContactItem"
Case olDistributionListItem
Debug.Print " : olDistributionListItem"
Case olJournalItem
Debug.Print " : olJournalItem"
Case olMailItem
Debug.Print " : olMailItem"
Case olNoteItem
Debug.Print " : olNoteItem"
Case olPostItem
Debug.Print " : olPostItem"
Case olTaskItem
Debug.Print " : olTaskItem"
End Select
Debug.Print "Def.msg.class: " & myFolder.DefaultMessageClass
End Sub
The result is;
Def.ItemType : 0
: olMailItem
Def.msg.class: IPM.Note
The default ItemType should have been olNoteItem, and the defaultmessageclass should have been IPM.StickyNote
I tried all the options I could find. Also from VBA Itried to change it, but the mentioned properties for the default items & class are both read-only.
Can anybody help me out on this? My palm doesn't synchronize the notes anymore, probably because the notes folder is no notes folder anymore.....
Tieske.