Правила в Outlook'07

Тема в разделе "Остальные БД", создана пользователем Talia, 4 дек 2007.

  1. Talia

    Talia Гость

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

Поделиться этой страницей