всем привет.
задачко: при получении письма Аутлуком, если оно соответствует некоторым параметрам, на это письмо должно быть сделано действие "Ответить всем". вот как раз это у меня и не получается. Посмотрите, плиз. Выкладываю код:
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
все. тема закрыта. справился.
если кому нужен код, решающий следующую задачу, обращайтесь
При получении нового письма с определенной темой, Аутлук запускает процедуру в Экселе, и результат процедурки отправляет обратно по почте: