1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Правила в Outlook'07

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

  1. Talia

    Talia Гость

    Репутация:
    0
    Помогите, пожалуйста!
    Ситуация такая. У каждого пользователя в 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
    который не работает.
    Выдается сообщение
    Правила в Outlook'07
    Помогите, пжалста, чё тут не так?
     
Загрузка...

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