Office: benötigtes Skript für gesendete Mails/Postausgang

Hallo,
sorry ich fange erst an mit VBA und brauche Hilfe!
Zuerst die notwendigen Infos:
Beteriebssystem: Windows XP Pro SP2
Programm: MS Outlook 2002 Stand.

Ich suche ein Skript, mit dem ich gesendete Emails, eines bestimmten MailAccounts automatisch in einen Task verwandel und in einen öffentlichen Ordner verschieben kann.
Ich habe das schon einmal für den Posteingang gemacht, der Unterschied ist nur, dass ich mein Skript über den Regelassistenten dort auch ausführen kann. Bei Objekten die ich sende, sieht das leider etwas anders aus...Kann mir jemand helfen???
Damit Ihr es euch vielleicht ein bisschen besser vorstellen könnt, hänge ich mal das vorhandene Skript für einkommende Emails an.
Ich brauche quasi das gleiche für die gesendeten Objekte/Postausgang, nur habe ich keine Idee wie ich das hinbekomme...


SKRIPT:

Sub Inbox(olItem As MailItem)


Dim oeff As Outlook.MAPIFolder
Dim objApp As Outlook.Application

Set objApp = New Outlook.Application
Set oeff = objApp.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("Firma Ordner").Folders.Item("Abteilung").Folders.Item("Abt Tasks")

If oeff Is Nothing Then
MsgBox "Invalid Folder"

Else
Dim olTask As Outlook.TaskItem

Dim olExp As Outlook.Explorer
Dim fldCurrent As Outlook.MAPIFolder
Dim olApp As Outlook.Application

Set olApp = Outlook.CreateObject("Outlook.Application")
Set olTask = olApp.CreateItem(olTaskItem)
Set olExp = olApp.ActiveExplorer
Set fldCurrent = olExp.CurrentFolder

Dim cntSelection As Integer
cntSelection = olExp.Selection.Count

For i = 1 To cntSelection
Set olItem = olExp.Selection.Item(i)
olTask.Attachments.Add olItem
olTask.Subject = "Zu Vorgang Betreff: " & olItem.Subject
olTask.Body = olItem.Body
olItem.Move Application.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("Firma Ordner").Folders.Item("Abteilung").Folders.Item("Abt Tasks")

Next
olTask.DueDate = DateAdd("h", 48, Now)
olTask.StartDate = DateAdd("h", 0, Now)

olTask.ReminderSet = True
olTask.ReminderTime = DateAdd("h", 24, Now)

olTask.Save
olTask.Move Application.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders.Item("Alle Öffentlichen Ordner").Folders.Item("Firma Ordner").Folders.Item("Abteilung").Folders.Item("Abt Tasks")
olTask.Display
End If
End Sub

P.S.: Am besten wäre natürlich ein Skript, das keinen Regelassistenten benötigt...

Gruß
Dominik