| | Awarded by
Microsoft: |  |
| | VBOffice Info | | Visitors | 726300 | | Impressions | 2784379 |
| |
|
| |
| Author: Michael Bauer | Homepage | | Date: 05.04.2007 | Accessed: 12749 | | | | Description
We are very sorry! This description is not translated yet. Anyway, please try the code as it is self-explanatory. |
Public Sub DeleteFolderContent()
Dim Folder As Outlook.MAPIFolder
Dim Items As Outlook.Items
Dim Msg As String
Dim i As Long
Set Folder = Application.ActiveExplorer.CurrentFolder
Set Items = Folder.Items
Msg = Items.Count & " Element(e) aus " & Folder.Name & " löschen?"
If MsgBox(Msg, vbYesNo) = vbYes Then
For i = Items.Count To 1 Step -1
Items.Remove i
Next
End If
End Sub
|
| | |
| | |  | Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more] |
| | |  | SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more] |
| | |  | OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more] |
| |
|
