Макрос OutLook If Else Заявление Office 365 - PullRequest
0 голосов
/ 19 апреля 2019

Попытка использовать макрос, который мне помог создать. Первоначально я использовал его в Office 2016, но, похоже, он не работает в Office 365. Как мне заставить его работать снова?

    Option Explicit
    Public WithEvents objMails As Outlook.Items
    Private Sub Application_Startup()
        Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
    End Sub

    Private Sub objMails_ItemAdd(ByVal Item As Object)
        Dim objMail As Outlook.MailItem
        Dim objAttachments As Outlook.Attachments
        Dim objAttachment As Outlook.Attachment
        Dim strAttachmentName As String
        Dim objInboxFolder As Outlook.Folder
        Dim objTargetFolder As Outlook.Folder

        Debug.Print "Items Add"

        '"Ensure the incoming item is an email"
        If TypeOf Item Is MailItem Then
            Set objMail = Item
            Set objAttachments = objMail.Attachments

            '   "Check if the incoming email contains one or more attachments"
            If objAttachments.Count > 0 Then
                For Each objAttachment In objAttachments
                    strAttachmentName = objAttachment.DisplayName
                    Debug.Print strAttachmentName

                    Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)

                    If InStr(LCase(strAttachmentName), "attachment name") > 0 Then
                        Set objTargetFolder = objInboxFolder.Folders("Target Folder")
                        objMail.Move objTargetFolder
                        Debug.Print objAttachment.DisplayName
                    End If
                Next
            End If
        End If

        Set objMail = Nothing
        Set objAttachments = Nothing
        Set objAttachment = Nothing
        Set objInboxFolder = Nothing
        Set objTargetFolder = Nothing
    End Sub

Когда запускается макрос, я не вижу ошибок. Я действительно удостоверился, что имя приложения - все строчные. Выполнение макроса включено. Имя папки правильное.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...