title image


Smiley Re: Otl2003: Makro um einen Ordner zu löschen
Hi Olli,



hier der Code (Test ist dabei ein Unterordner vom Standard-Kontaktordner):



Set myOlApp = CreateObject("Outlook.Application")

Set myNameSpace = myOlApp.GetNamespace("MAPI")

Set MyFolder = myNameSpace.GetDefaultFolder(olFolderContacts)

Set MyContacts = MyFolder.Folders("Test")

Set MyItem = MyContacts.Items



Anz = MyItem.Count



Debug.Print MyItem.Count

Dim Frage

Frage = MsgBox("Sollen wirklich alle " & Anz & " Elemente des Ordners '" & MyContacts & "' gelöscht werden?", vbCritical + vbYesNo, "Löschen")



If Frage = vbYes Then



For i = Anz To 1 Step -1

MyItem(i).delete

Next i

MsgBox "Es wurden " & Anz & " Elemente gelöscht."

Else

MsgBox "Nochmal Glück gehabt!" 'kleiner Spass ;-)

End If





Gruß

Inge

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: