| 1 | #include <Debug.au3>
|
|---|
| 2 |
|
|---|
| 3 | _DebugSetup("Debug Out", False, 1)
|
|---|
| 4 | _DebugOut("Debug start")
|
|---|
| 5 |
|
|---|
| 6 | ;-----------------------------------------------------------------------
|
|---|
| 7 | ; Setup Outlook environment
|
|---|
| 8 | ;-----------------------------------------------------------------------
|
|---|
| 9 | $olApp = ObjCreate("Outlook.Application")
|
|---|
| 10 | $olNameSpace = $olApp.GetNameSpace("MAPI")
|
|---|
| 11 | Dim $archive = $olNameSpace.PickFolder
|
|---|
| 12 |
|
|---|
| 13 | ;-----------------------------------------------------------------------
|
|---|
| 14 | ; Save number of mails to Drafts folder
|
|---|
| 15 | ;-----------------------------------------------------------------------
|
|---|
| 16 | $timestamp = @HOUR & ":" & @MIN & ":" & @SEC
|
|---|
| 17 | Dim $Mail
|
|---|
| 18 | for $i = 1 to 10
|
|---|
| 19 | _DebugOut("Adding mail #" & $i)
|
|---|
| 20 | $Mail = $olApp.CreateItem(0)
|
|---|
| 21 | $Mail.Subject = "Test mail (" & $timestamp & ") [" & $i & "]"
|
|---|
| 22 | $Mail.HTMLBody = "<HTML><p>test</p></HTML>"
|
|---|
| 23 | $Mail.save()
|
|---|
| 24 | Sleep(1000)
|
|---|
| 25 | Next
|
|---|
| 26 |
|
|---|
| 27 | ;-----------------------------------------------------------------------
|
|---|
| 28 | ; Delete all items using a FOR..IN..NEXT loop
|
|---|
| 29 | ;-----------------------------------------------------------------------
|
|---|
| 30 | $oParentFld = $Mail.Parent
|
|---|
| 31 | $iteration = 0
|
|---|
| 32 | For $j in $oParentFld.Items
|
|---|
| 33 | $iteration += 1
|
|---|
| 34 | _DebugOut("Deleting mail, loop " & $iteration)
|
|---|
| 35 | $j.Delete
|
|---|
| 36 | Sleep(1000)
|
|---|
| 37 | Next
|
|---|
| 38 |
|
|---|
| 39 | _DebugOut("Loop has finished, " & $oParentFld.Items.Count & " items remaining in folder.")
|
|---|
