0

我在 Microsoft Outlook VBA 中创建了一个子程序来创建一个 csv 文件，其中列出了我的收件箱及其子文件夹中的所有邮件。我在查看我的收件箱时让宏工作，但是当我尝试遍历子文件夹时，它返回一个“错误的文件名错误”，以引用我试图写入的文件。所以基本上 processFolder 函数中的“Write #ff”行会导致错误。关于文件名#ff 的范围，我有什么遗漏吗？谢谢

子 Response_Log()

Dim myItem As Object
Dim msg As MailItem
Dim myFolder As Folder
Dim mysubfolder As Outlook.Folder
Dim myNamespace As NameSpace
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.Folders("My mailbox").Folders("Inbox")

Dim resFile As String
    resFile = "myfilepath\Response_Log.csv"
Dim ff As Byte
    ff = FreeFile()
Open resFile For Append As #ff
Write #ff, "Sender Name"; "Sender Email Address"; "Received Time"; "Subject"; "Response Status and Response Time"
processFolder myFolder

Close #ff

结束子

函数 processFolder(oParent As Outlook.MAPIFolder)

    Dim oFolder As Outlook.MAPIFolder
    Dim oMail As Object
    Dim Respond As String
    Dim NoRespond As String
        NoRespond = "Not Yet Replied"


    For Each oMail In oParent.Items
        If TypeOf oMail Is MailItem Then
           If Mid(oMail.SenderEmailAddress, 1, 3) <> "/O=" Then
                If oMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003") = 102 Or oMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003") = 103 Then
                    Respond = "Replied on " & oMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10820040")
                    Write #ff, oMail.SenderName; oMail.SenderEmailAddress; oMail.ReceivedTime; oMail.Subject; Respond
                Else                        
                    Write #ff, oMail.SenderName; oMail.SenderEmailAddress; oMail.ReceivedTime; oMail.Subject; NoRespond
                End If
            End If
        End If
    Next

    If (oParent.Folders.Count > 0) Then
        For Each oFolder In oParent.Folders
            processFolder oFolder
        Next
    End If

结束功能

4

1 回答 1

0

文件号ff似乎是在中定义的，Response_Log您正试图在processFolder. 这不会很好地结束:-)

您可能最好进行更改processFolder，以便它接受一个额外的参数，即要写入的文件号。

然后确保Response_Log从自身的递归调用中传递它，以及在递归调用中传递它processFolder。就像是：

Sub Response_Log()
    :
    processFolder myFolder,ff
:
Function processFolder(oParent As Outlook.MAPIFolder,ff as Byte)
    :
    processFolder oFolder,ff

您可能还想检查这些调用的语法。自从我使用 VBA 以来已经有一段时间了，但是使用可选call语句和括号可能会出现一些问题。它可能需要更像：

call processFolder (oFolder,ff)
于 2013-09-11T03:37:32.643 回答