Visual Basic para Aplicaciones - Macro Guardar mensajes Outllok en c: .msg

Hola a todos.

Estoy haciendo mis primeros pinitos en vba y me he trabado con este tema. Quería hacer que el outlook guardara ciertos mensajes enviados al mandarlos en una carpeta externa, por ejemplo c: en formato msg.

Para ello he probado con este codigo, pero no tengo ni idea de como hacer funcionar la sub con eventos.


Dim oSubFolder As Outlook.MAPIFolder
'ThisOutlookSession
Option Explicit

Public WithEvents SentItemsAdd As Items
Private Sub Application_MAPILogonComplete()
Set SentItemsAdd = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items
End Sub

Private Sub SentItemsAdd_ItemAdd(ByVal Item As Object)

If Item.Subject Like "Proyectox*" Then
Item.SaveAs "C:\Correos\" & Item.Subject & ".msg"
End If

End Sub

¿Alguien sabe como proceder?

Muchas gracias por todo.

Vale funciona. tenía que reiniciar el outlook- ;)