时间戳

首页 > 解决方案 > VBA：如何将电子邮件复制到 Outlook 文件夹？

vba - VBA：如何将电子邮件复制到 Outlook 文件夹？

问题描述

当使用特定类别标记时，我有一些代码可以将电子邮件“移动”到特定的 Outlook 文件夹，但是现在我需要复制而不是将电子邮件发送到特定文件夹中的一个If语句。它是引用的一个："PO Send to Kathy"。

'Occurs when changing item
Private Sub objInboxItemsOrder_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder

    If TypeOf Item Is MailItem Then
        Set objMail = Item
        'Move mails based on color category
        If InStr(objMail.Categories, "Karen") > 0 Then
            Set objTargetFolder = Application.Session.Folders("orders@xxx.com").Folders("Karen")
            objMail.Move objTargetFolder
        ElseIf InStr(objMail.Categories, "PO Send to Kathy") > 0 Then
            Set objTargetFolder = Application.Session.Folders("orders@xxx.com").Folders("PO Send to Kathy")
            objMail.Move objTargetFolder
        ElseIf InStr(objMail.Categories, "Quote") > 0 Then
            Set objTargetFolder = Application.Session.Folders("orders@xxxx.com").Folders("Quote")
            objMail.Move objTargetFolder
        ElseIf InStr(objMail.Categories, "PO Keep Here") > 0 Then
            Set objTargetFolder = Application.Session.Folders("orders@xxx.com").Folders("Purchase Order")
            objMail.Move objTargetFolder
        End If
    End If
End Sub

标签： vbaoutlook

解决方案

推荐阅读