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

Question

我期待在任何時候將電子郵件移動到特定文件夾時在字段上設置日期。 該字段是自定義稱爲「完成日期」。 當項目移動到文件夾（文件夾名稱爲「已完成」）時，我可以獲得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