here is my code for changing fields in an outlook form through vb
Dim ol As Object
Set ol = CreateObject("Outlook.Application"
Set olns = ol.GetNamespace("MAPI"
Set objFolder = olns.Folders("Public Folders".Folders("All Public Folders".Folders("Edgetech".Folders("Customer Contact DB"
Set allContacts = objFolder.Items
Set newContact = allContacts.Add("IPM.Contact.Edge Cust Contact"
With newContact
.FullName = Text1.Text
.CompanyName = Text2.Text
.BusinessAddressStreet = Text3.Text
.BusinessAddressCity = Text5.Text
.BusinessAddressState = Text6.Text
.BusinessAddressPostalCode = Text7.Text
.BusinessTelephoneNumber = Text10.Text
.BusinessFaxNumber = Text12.Text
End With
newContact.Save
newContact.Display
This all works fine. My problem is that I cannot access my user defined fields for newContact. Does anyone know how i can do this? I have them all defined for the item and for the folder.
Thanks
Dim ol As Object
Set ol = CreateObject("Outlook.Application"
Set olns = ol.GetNamespace("MAPI"
Set objFolder = olns.Folders("Public Folders".Folders("All Public Folders".Folders("Edgetech".Folders("Customer Contact DB"
Set allContacts = objFolder.Items
Set newContact = allContacts.Add("IPM.Contact.Edge Cust Contact"
With newContact
.FullName = Text1.Text
.CompanyName = Text2.Text
.BusinessAddressStreet = Text3.Text
.BusinessAddressCity = Text5.Text
.BusinessAddressState = Text6.Text
.BusinessAddressPostalCode = Text7.Text
.BusinessTelephoneNumber = Text10.Text
.BusinessFaxNumber = Text12.Text
End With
newContact.Save
newContact.Display
This all works fine. My problem is that I cannot access my user defined fields for newContact. Does anyone know how i can do this? I have them all defined for the item and for the folder.
Thanks