將項目移到Outlook中的文件夾時設置自定義值

Question

每當電子郵件移至特定文件夾時，我都希望在字段上設置日期。 該字段是自定義的，稱為“完成日期”。 當項目移入文件夾（文件夾名稱為“ Completed”）時，能否在VBA代碼上獲得一些幫助以設置自定義字段（日期）。

我最終希望報告收到項目（自定義表單電子郵件）的時間到完成時間（根據將電子郵件移至完成的文件夾的操作）。

我非常清楚基本的票務系統:)。

謝謝，

一種

Answer 1

使用ItemAdd http://www.outlookcode.com/article.aspx?id=62 ，在其中引用“已完成”文件夾。

將其與類似http://www.vbaexpress.com/forum/showthread.php?5738-Need-to-Add-a-Userdefined-Property-to-Mail-Items的代碼結合

樣本代碼

對其進行更改，以使您不會僅更新觸發ItemAdd的一項就更新文件夾中的所有項。

Option Explicit 

Sub AddAUserDefinedProperty() 

Dim olApplication   As Outlook.Application 
Dim olNameSpace     As Outlook.NameSpace 
Dim olFolder        As Outlook.MAPIFolder 
Dim olItem          As Object 
Dim strDomain       As String 
Dim olProperty      As Outlook.UserProperty 

Set olApplication = New Outlook.Application 
Set olNameSpace = olApplication.GetNamespace("Mapi") 
Set olFolder = olNameSpace.GetDefaultFolder(olFolderJunk) 

For Each olItem In olFolder.Items 

    strDomain = Mid(olItem.SenderEmailAddress, _ 
    InStr(1, olItem.SenderEmailAddress, "@") + 1) 

    Set olProperty = olItem.UserProperties.Add("Domain", olText) 

    olProperty.Value = strDomain 

    Debug.Print olItem.SenderEmailAddress, olProperty.Value 

    olItem.Save 

Next olItem 

Set olApplication = Nothing 
Set olNameSpace = Nothing 
Set olFolder = Nothing 
Set olProperty = Nothing 

End Sub 

更多參考資料， 請參見http://www.codeproject.com/Articles/427913/Using-User-Defined-Fields-in-Outlook