excel 附上 email 自动保存在文件夹中

Question

我想，多亏了一个代码，当我从某个人那里收到 email 时，这个 email 的附件会自动保存在此处的“TEST”文件夹中，然后 email 被标记为已读，然后归档。 这是我可以在网上找到的，但它不起作用。 我没有错误信息，但我也没有记录。

你能帮我么

Sub extrait_PJ_vers_rep(strID As Outlook.MailItem)

    Dim olNS As Outlook.namespace
    Dim MyMail As Outlook.MailItem
    Dim expediteur

    Set olNS = Application.GetNamespace("MAPI")
    Set MyMail = olNS.GetItemFromID(strID.EntryID)
    
    If MyMail.Attachments.Count > 0 Then
    
        expediteur = MyMail.SenderEmailAddress
        Repertoire = "c:\TEST" & "\"
    
        If Repertoire <> "" Then
            If "" = Dir(Repertoire, vbDirectory) Then
                MkDir Repertoire
            End If
        End If
    
        Dim PJ, typeatt
    
        For Each PJ In MyMail.Attachments
    
            typeatt = Isembedded(strID, PJ.Index)
            If typeatt = "" Then
    
                If "" <> Dir(Repertoire & PJ.FileName, vbNormal) Then
    
                    MsgBox Repertoire & PJ.FileName & " Done before"
    
                    If "" = Dir(Repertoire & "old", vbDirectory) Then
                        MkDir Repertoire & "old"
                    End If
    
                    FileCopy Repertoire & PJ.FileName, Repertoire & "old\" & PJ.FileName
                End If
                    PJ.SaveAsFile Repertoire & PJ.FileName
             End If
        Next PJ
    
        MyMail.UnRead = False
        MyMail.Save
    
        Dim myDestFolder As Outlook.MAPIFolder
        Set myDestFolder = MyMail.Parent.Folders("test")
        MyMail.Move myDestFolder
    
    End If
    
    Set MyMail = Nothing
    Set olNS = Nothing

End Sub

我想，多亏了一个代码，一旦我收到某个人的 email，这个 email 的附件就会自动保存在此处的“TEST”文件夹中，然后 email 被标记为已读，然后归档

Answer 1

该代码完全满足您的需要，您只需连接 Outlook 应用程序 class 的NewMailEx事件，该事件在新邮件到达收件箱时和客户端规则处理发生之前触发。 对于 Microsoft Outlook 处理的每个收到的项目，此事件都会触发一次。该项目可以是多种不同项目类型之一，例如MailItem 、 MeetingItem或SharingItem 。 EntryIDsCollection字符串包含对应于该项目的条目 ID。 使用 EntryIDCollection 数组中返回的条目 ID 调用NameSpace.GetItemFromID方法并处理项目，就像您在代码中所做的那样。

Go 到 Outlook 中的 VBA 环境，select 左侧下拉列表中的Application如屏幕截图所示：

然后您可以添加NewMailEx事件处理程序：

Viola，将添加事件处理程序。 你只需要在这里粘贴你的代码。