Я скопировал следующий код в моем VUE VUE из одного из сообществ VBA и внесла в него изменения в соответствии с моей потребностью. Я могу запустить его с помощью F5 и F8. Теперь я хотел бы запускать этот макрос всякий раз, когда получаю электронное письмо в папке1. Я попытался настроить правило, но я не вижу макроса, указанного в поле "запустить a script". Я уже проверил, что
- настройка безопасности макроса верна.
- макрос находится в модуле не в классе
Не могли бы вы рассказать мне, что происходит в настройке.
Public Sub SaveAttachments()
Dim myOlapp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim yourFolder As Outlook.MAPIFolder
Dim myItem As Outlook.MailItem
Dim myAttachment As Outlook.Attachment
Dim I As Long
Set myOlapp = CreateObject("Outlook.Application")
Set myNameSpace = myOlapp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set yourFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myFolder = myFolder.Folders("folder1")
Set yourFolder = yourFolder.Folders("folder2")
For Each myItem In myFolder.Items
If myItem.Attachments.Count <> 0 Then
For Each myAttachment In myItem.Attachments
I = I + 1
myAttachment.SaveAsFile "C:\arthur\test.csv"
Next
End If
myItem.Move yourFolder
Next
End Sub