Question

我正在为outlook 2010编写一个宏。即使是第一次，oFolder确实包含一个文件夹，我在每个循环上都会收到错误。顺便说一句，SaveAttachments第一次正常运行它第二次爆炸。

Public Sub processFolder()

    Set objNS = Application.GetNamespace("MAPI")
    Dim oParent As Outlook.MAPIFolder
    Dim oFolder As Outlook.MAPIFolder
    Dim FolderName As String

    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)        

    SaveAttachments (objInbox)


    If (objInbox.Folders.Count > 0) Then
        For Each oFolder In objInbox.Folders
            SaveAttachments (oFolder)
        Next
    End If
End Sub

Sub SaveAttachments（ByVal oParent As Outlook.MAPIFolder）

'Declaration
Dim myItems, myItem, myAttachments, myAttachment As Object
Dim myOrt As String
Dim myOlApp As New Outlook.Application

myOrt = "C:\attachments"

On Error Resume Next

'for all items do...
For Each myItem In oParent.Items

    'point on attachments
    Set myAttachments = myItem.Attachments

    'if there are some...
    If myAttachments.Count > 0 Then

        'add remark to message text
        myItem.Body = myItem.Body & vbCrLf & _
            "Removed Attachments:" & vbCrLf

        'for all attachments do...
        For i = 1 To myAttachments.Count

            'save them to destination
            myAttachments(i).SaveAsFile myOrt & _
                myAttachments(i).DisplayName

            'add name and destination to message text
            myItem.Body = myItem.Body & _
                "File: " & myOrt & _
                myAttachments(i).DisplayName & vbCrLf

        Next i

        'for all attachments do...
        While myAttachments.Count > 0

            'remove it (use this method in Outlook XP)
            'myAttachments.Remove 1

            'remove it (use this method in Outlook 2000)
            myAttachments(1).Delete

        Wend

        'save item without attachments
        myItem.Save
    End If

Next

'free variables
Set myItems = Nothing
Set myItem = Nothing
Set myAttachments = Nothing
Set myAttachment = Nothing
Set myOlApp = Nothing
Set myOlExp = Nothing
Set myOlSel = Nothing

End Sub

Answer 1

您已混合并匹配调用SaveAttachments

的方法

选择其中一个

Call SaveAttachments(objInbox)  ' <--- Call requires brackets

SaveAttachments objInbox        ' <--- No brackets

SaveAttachments oFolder         ' <--- No brackets

运行时错误424对象必需

1 个答案: