将项目移动到 Outlook 中的文件夹时设置自定义值

Posted

技术标签:

【中文标题】将项目移动到 Outlook 中的文件夹时设置自定义值【英文标题】:Set custom value when item moved to folder in outlook 【发布时间】:2013-10-23 03:21:38 【问题描述】:

我希望在将电子邮件移至特定文件夹时在字段上设置日期。 该字段是自定义的,称为“完成日期”。 当项目移动到文件夹(文件夹名称为“已完成”)时,我能否获得有关 VBA 代码设置自定义字段(日期)的一些帮助。

我最终希望报告收到项目(自定义表单电子邮件)到完成时间的时间(根据将电子邮件移动到已完成文件夹的操作。

非常基本的票务系统,我很清楚 :) 。

谢谢,

一个

【问题讨论】:

【参考方案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

【讨论】:

以上是关于将项目移动到 Outlook 中的文件夹时设置自定义值的主要内容,如果未能解决你的问题,请参考以下文章

将Outlook邮件从一个邮箱收件箱移动到同一邮箱中的不同文件夹

outlook如何建立本地文件夹

删除/移动到垃圾箱时将项目标记为已读

vbscript VBScript将已发送的项目移动到Outlook中的收件箱

outlook移动ost邮箱数据到D盘

Outlook - 从带有 .xls 附件的电子邮件和特定发件人中保存文件,然后将电子邮件移动到子文件夹