Sub StartProcs()
Application.OnTime Now + TimeValue("00:10:00"), "DeleteJunk"
End Sub

Dim Offer As Boolean

Sub TimerProc()
    Do While Offer = False
        Call DeleteJunk
        Pause 1
    Loop
End Sub

Sub Pause(Sec As Single)
    Dim Start As Single
    Start = Timer
    Do While Timer < Start + Sec * 600
        DoEvents
    Loop
End Sub

Sub DeleteJunk()
Dim Junk1 As Object
Dim Mail1 As Object
Set Junk1 = Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderJunk)
For Each Mail1 In Junk1.Items
If Mail1.Class = olMail Then
    Mail1.delete
End If
Next Mail1
End Sub