Правила в Outlook'07

[Talia]

Помогите, пожалуйста!
Ситуация такая. У каждого пользователя в Outlook видны два ящика: свой "Пупкин Вася И." и "Общий почтовый ящик". По умолчанию каждый пользуется естественно своим ящиком. Из-за этого письма отправленные Васей Пупкиным с Общего почтового ящика (как бы от организации, а не от Васи) сохраняются в папке Sent Items его почтового ящика, а не в папку Отправленные Общего почтового ящика.
Стандартными инструментами Outlook правила для этой ситуации создать не получается, т.к. в списке "Какие сообщения следует отбирать" нет пункта "содержащие <текст> в поле "От".
Я нашла скрипт в инете

Sub MoveSelectedMessagesToFolder()
On Error Resume Next

Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderSentMail)

Set objFolder = objInbox.Folders("Отправленные")

If objFolder Is Nothing Then
MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
End If

If Application.ActiveExplorer.Selection.Count = 0 Then
' Require that this procedure be called only when a message is selected
Exit Sub
End If

For Each objItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
objItem.Move objFolder
End If
End If
Next

Set objItem = Nothing
Set objFolder = Nothing
Set objInbox = Nothing
Set objNS = Nothing

End Sub

который не работает.
Выдается сообщение

Помогите, пжалста, чё тут не так?