Outlook Notes delete

[Roger Odermatt]

Hello

How can delete all Notes in the Outlook?

I try it with this code, but no success.

------
Dim oApp As New Outlook.Application
Dim oNotes As Outlook.MAPIFolder
Dim oNameSpace As Outlook.NameSpace

oNameSpace = oApp.GetNamespace("MAPI")
oNotes = oNameSpace.GetDefaultFolder(Outlook.OlDefaultFolde rs.olFolderNotes)

Dim i As Integer

For i = 0 To oNotes.Items.Count - 1
oNotes.Items.Remove(i)
Next
------

Can anybody help me?

regards
Roger

[Ken Tucker [MVP]]

Hi,

Try starting with the last note first.

Ken
--------------
"Roger Odermatt" <ro************@nospam.swica.ch> wrote in message
news:OZ***************@TK2MSFTNGP15.phx.gbl...
Hello

How can delete all Notes in the Outlook?

I try it with this code, but no success.

------
Dim oApp As New Outlook.Application
Dim oNotes As Outlook.MAPIFolder
Dim oNameSpace As Outlook.NameSpace

oNameSpace = oApp.GetNamespace("MAPI")
oNotes = oNameSpace.GetDefaultFolder(Outlook.OlDefaultFolde rs.olFolderNotes)

Dim i As Integer

For i = 0 To oNotes.Items.Count - 1
oNotes.Items.Remove(i)
Next
------

Can anybody help me?

regards
Roger

[Roger Odermatt]

Thank you very much!

regards
Roger

"Ken Tucker [MVP]" <vb***@bellsouth.net> schrieb im Newsbeitrag
news:uF**************@TK2MSFTNGP10.phx.gbl...

Hi,

Try starting with the last note first.

Ken
--------------
"Roger Odermatt" <ro************@nospam.swica.ch> wrote in message
news:OZ***************@TK2MSFTNGP15.phx.gbl...
Hello

How can delete all Notes in the Outlook?

I try it with this code, but no success.

------
Dim oApp As New Outlook.Application
Dim oNotes As Outlook.MAPIFolder
Dim oNameSpace As Outlook.NameSpace

oNameSpace = oApp.GetNamespace("MAPI")
oNotes =
oNameSpace.GetDefaultFolder(Outlook.OlDefaultFolde rs.olFolderNotes)

Dim i As Integer

For i = 0 To oNotes.Items.Count - 1
oNotes.Items.Remove(i)
Next
------

Can anybody help me?

regards
Roger