Установите пользовательское значение, когда элемент перемещается в папку в Outlook

Я хочу установить дату в поле каждый раз, когда электронное письмо перемещается в определенную папку. поле настраивается под названием «Дата завершения». Могу ли я получить небольшую помощь по коду VBA, чтобы установить настраиваемое поле (дату), когда элемент перемещается в папку (имя папки «Завершено»).

В конечном итоге я хочу сообщить о времени получения элемента (электронное письмо с пользовательской формой) до момента его завершения (в соответствии с действием по перемещению электронного письма в заполненную папку.

Очень элементарная система продажи билетов, я очень хорошо осведомлен :).

Спасибо,

A


outlook vba directory user-defined-fields
person user2856874    schedule 23.10.2013    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Используйте 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

person niton    schedule 17.11.2013