Toon posts:

[sharepoint 2007] mail opslaan, metadata niet gevuld

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik heb ik outlook het volgende vba scriptje geschreven:

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?

  • Glorix Jim
  • Registratie: Februari 2000
  • Laatst online: 03-02 15:05
Omdat je nergens in de properties in Sharepoint aangeeft dat de metadatakolom "Inumber" gevuld moet worden met die waarde? :)