Ik heb ik outlook het volgende vba scriptje geschreven:
Dit werkt. Het mailtje wordt weggeschreven en de property Inumber wordt gevuld. In sharepoint heb ik de colom Inumber ook aangemaakt maar de wordt niet gevuld. Iemand enig idee?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| Dim outSel As Outlook.Selection
Dim outExpl As Outlook.Explorer
Dim mailObject As MailItem
Dim Up As UserProperty
Dim Ups As UserProperties
Set outExpl = Application.ActiveExplorer
Set mailObject = outExpl.Selection.Item(1)
Set Ups = mailObject.UserProperties
Set Up = Ups.Add("Inumber", olText, True)
mailObject.UserProperties.Find("Inumber").Value = "123"
mailObject.Save
MsgBox mailObject.UserProperties.Find("Inumber").Value
mailObject.SaveAs "http://tarn01/sites/algemeen/test/library/test.msg"
Set outExpl = Nothing
Set mailObject = Nothing |
Dit werkt. Het mailtje wordt weggeschreven en de property Inumber wordt gevuld. In sharepoint heb ik de colom Inumber ook aangemaakt maar de wordt niet gevuld. Iemand enig idee?