none
Автоматическое открепление аттачей из писем Exchange 2007 RRS feed

  • Вопрос

  • Задача.
    Дано:
    1) Много пользователей, которые пишут отчеты.
    2) Почтовый ящик otchet@firma.ru
    3) Пользователи отправляют отчеты *****.xls на otchet@firma.ru

    Необходимо, чтобы Exchange автоматически извлекал аттачи с этого почтового ящика в c:\otchet\

    Как это реализуется?
    • Перемещено Hengzhe Li 12 марта 2012 г. 9:35 forum merge (От:Exchange Server 2007)
    2 июля 2009 г. 11:41

Все ответы

  • например транспортным агентом или обработчиком события уровня хранилища
    Exchange MVP. _ This posting is provided "AS IS" with no warranties, and confers no rights.
    2 июля 2009 г. 11:45
  • Как они настраиваются и где? (опыта в эксчендже 3 суток)
    2 июля 2009 г. 11:55
  • они для начала пишутся
    Exchange MVP. _ This posting is provided "AS IS" with no warranties, and confers no rights.
    2 июля 2009 г. 12:07
  • Могу я попросить Вас показать пример?.. )
    2 июля 2009 г. 12:41
  • скачайте SDK - там есть нечто подобное
    Exchange MVP. _ This posting is provided "AS IS" with no warranties, and confers no rights.
    2 июля 2009 г. 12:43
  • Опыта ноль - говорюж - всего 3й день разбираюсь...
    Башка пухнет, и SDK не потяну..
    Напишите пример, пожалуйста, если не сложно.
    2 июля 2009 г. 12:52
  • Вот нечто в этом духе должно быть - здесь вложенные электронные письма сохраняются на сетевой диск:

     Sub processMai(ByVal Item As Object, Cancel As Boolean)
    Dim itm As Variant
    Dim saveFolder As MAPIFolder
    'Const saveTo As String = "C:\Name"
    Const saveTo As String = "C:\Name"
    Dim subject As String
    Dim intcount As Integer
    Dim strSaveTo As String
    Dim ret() As String
    Dim entry As Variant
    Dim foundit As Boolean
    Dim olkAttachment As Outlook.Attachment
    Dim olkTemp As Outlook.MailItem
    Dim strFilename As String
     
    For Each olkAttachment In Item.Attachments
        strFilename = "C:\eeTesting\" & olkAttachment.FILENAME
        olkAttachment.SaveAsFile strFilename
        Set olkTemp = Application.CreateItemFromTemplate(strFilename)
        If testStr(olkTemp.subject) Then
            foundit = True
            extractStr olkTemp.subject, ret
        Else
            If testStr(olkTemp.Body) Then
                foundit = True
                extractStr olkTemp.Body, ret
            End If
        End If
        If foundit Then
            For Each itm In ret
                Set saveFolder = olNav2Folder("\\Network Folder\Sent Items2\" & itm, True)
                strSaveTo = md(saveTo & "\" & itm, False)
                If strSaveTo <> "" Then
                    olkAttachment.SaveAsFile strSaveTo & "\" & olkTemp.Subject & " " & ".msg"
                End If
            Next
        End If
        Set olkTemp = Nothing
        Kill strFilename
    Next
    End Sub
     

    Все вышесказанное является моим личным мнением, не имеющим отношения к корпорации Майкрософт
  • Юрий - и  этот скприт подвесить в Outlook -)
    Exchange MVP. _ This posting is provided "AS IS" with no warranties, and confers no rights.
    9 июля 2009 г. 10:15