Outlook2k3 VBA- BCC versenden+Kopie in Unterordner legen

Habe im Outlook 2003 einen Regel erstellt.
Wenn ein E-Mail den Betreff Hallo Frank blabla hat dann E-Mail an [email protected] senden.

In VBA habe ich dann den unten angegebenen Code aufgeschrieben.

(Wenn die E-Mail an [email protected] gesendet wird soll wie im VBA Code
die E-Mail über BCC an
- [email protected]
- [email protected]
- [email protected]
senden.

anschliessend soll diese eine Mail die an 3 E-Mails über BCC gesendet worden sind, in 3 verschiedenen Subordner kopiert werden.

Beispiel:
E-Mail: Hallo Frank blabla
1.) wird per Regel an [email protected] weitergeleitet.
2.) (VBA) wird per BCC an
- [email protected]
- [email protected]
- [email protected]
gesendet
3.) Die E-Mail: Hallo Frank blabla in 3 Unterordnern kopieren
- kopieren in Postausgang / Kontakt
- kopieren in Postausgang / Info
- kopieren in Postausgang / Support

(E-Mail empfangen -> weiterleiten BCC an 3 E-Mails -> diese Mail in 3 Unterordner kopieren )


Nur leider weiß ich nicht so genau wie ich das über VBA realisieren kann.
(bin ein neuling in Sachen VBA)

VBA Code den ich im Netz gefunden habe ..

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim email As String
email = [email protected]
Dim r As Recipient
Set r = Item.Recipients.Add(email)
r.Type = olBCC
r.Resolve
Item.Save
'Ergänzung für weitere Blindkopie
Set objMe = Item.Recipients.Add([email protected])
objMe.Type = olBCC
objMe.Resolve
'Ende Ergänzung
'Ergänzung für weitere Blindkopie
Set objMe = Item.Recipients.Add([email protected])
objMe.Type = olBCC
objMe.Resolve
'Ende Ergänzung
End Sub

MfG
Dev