![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
![]()
I am trying to use the following code (downloaded from OutlookCode.com and
modified to suit my requirements) to move information from the built in User fields to custom property fields. I have only altered the name of the form to be used and the names of the custom fields. On running the code I get: Run-time error '-13179289555 (b1720005)': Method 'UserProperties' of object 'ContactItem' failed I am pretty inexperienced in VBA in general so haven't a clue what the problem is. I did try the syntax objItem.UserProperties("Hotels").value = objItem.User1 but received a similar error. Any ideas? thanks Keith ---------------------------------------------------------------------------------- Sub ConvertFields() Dim objApp As Application Dim objNS As NameSpace Dim objFolder As MAPIFolder Dim objItems As Items Dim objItem As Object Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objFolder = objNS.PickFolder If Not objFolder Is Nothing Then Set objItems = objFolder.Items For Each objItem In objItems ' make sure you have a Contact item If objItem.Class = olContact Then ' convert to your published custom form objItem.MessageClass = "IPM.Contact.PRList" ' copy data to your custom fields objItem.UserProperties("Hotels") = objItem.User1 objItem.UserProperties("Residential") = objItem.User2 objItem.UserProperties("Prop. Dev.") = objItem.User3 objItem.UserProperties("Gardens") = objItem.User4 objItem.UserProperties("Projects") = objItem.Department 'comment out following lines until code is working 'objItem.User1 = "" 'objItem.User2 = "" 'objItem.User3 = "" 'objItem.User4 = "" objItem.Save End If Next End If Set objItems = Nothing Set objItem = Nothing Set objFolder = Nothing Set objNS = Nothing Set objApp = Nothing End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Problem setting OE as defaul mail client | Jim Pickering | Outlook Express | 0 | April 4th 06 09:22 PM |
Problem with calendar item & Outlook 2003 | Andreas Koepke | Outlook - General Queries | 1 | March 17th 06 10:40 AM |
Problem setting up Outlook | Joanne Mills | Outlook - Installation | 2 | March 11th 06 01:37 PM |
VB.net Cannot add userproperties | Ben | Add-ins for Outlook | 2 | February 24th 06 11:32 AM |
Userproperties in Folder | MClaudio | Outlook and VBA | 3 | January 16th 06 08:59 AM |