Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Другие офисные программы => Тема начата: Андрей Ковальчук от 24.10.2008, 14:32

Название: ReplyAll в Outlook'2007
Отправлено: Андрей Ковальчук от 24.10.2008, 14:32
всем привет.

задачко: при получении письма Аутлуком, если оно соответствует некоторым параметрам, на это письмо должно быть сделано действие "Ответить всем". вот как раз это у меня и не получается. Посмотрите, плиз. Выкладываю код:
Private Sub Application_NewMail()
Set myOlApp = Outlook.Application
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

Dim MyExl As Object
Set MyExl = GetObject(, "Excel.Application")

For i = myFolder.Items.Count To 1 Step -1
Set myItem = myFolder.Items(i)
With myItem
    If .UnRead Then
        If Left(.Subject, 17) = "Обновить поле дем" Then
           
'            d = DateValue(Right(.Subject, 10))
'            On Error Resume Next
'            Set a = MyExl.Application.Run("'Распределение установок.xls'!PoleDem", d)
'                With MyExl.workbooks("Распределение установок.xls")
'                    q = MyExl.WorksheetFunction.CountA(MyExl.Columns(1))
'                    fln = MyExl.cells(q, 3)
'                End With
        .UnRead = False
       
         .Reply' /////////вот здесь затык и возникает
        '.Send
       
       
        Exit For
        End If
    End If
End With
    Next i
End Sub
Название: Re: ReplyAll в Outlook'2007
Отправлено: Андрей Ковальчук от 27.10.2008, 13:21
все. тема закрыта. справился.

если кому нужен код, решающий следующую задачу, обращайтесь
При получении нового письма с определенной темой, Аутлук запускает процедуру в Экселе, и результат процедурки отправляет обратно по почте: