Цитата |
---|
Anton_Kozlov написал: нужно чтобы срабатывал макрос от excel |
во как. И как же он сработает? Вы будете из Outlook его запускать? Или все это хотите на стороне Excel сделать?
Куда помещаете приведенный выше код?
Кстати, сам код почти рабочий. единственное, я бы один момент изменил, если папка "Задачи" является вложенной в папку "Входящие". Вот так:
Код |
---|
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
' default local Inbox
Set Items = objNS.GetDefaultFolder(olFolderInbox).Folders("Задачи").Items
End Sub
Private Sub Items_ItemAdd(ByVal item As Object)
On Error GoTo ErrorHandler
Dim Msg As Outlook.MailItem
If TypeName(item) = "MailItem" Then
Set Msg = item
' ******************
' do something here
MsgBox ("пришло письмо")
' ******************
End If
ProgramExit:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ProgramExit
End Sub |
Если папка "Задачи" сама по себе - то этого можно не делать.