VBA, Setting values to Custom Fields on Custom Forms

Setting values to Custom Fields on Custom Forms

Author	Message
Dave #1 / 3	Setting values to Custom Fields on Custom Forms Please help (again) I have a custome Contacts Form. In it I have placed a combo and tex box, cmbType and txtDX. I have also set these up as Custom fields, Type and DX as text fields. The code below works fine to open up my customised form. How do I set the values for Type and DX though? Dim NameSpace As NameSpace Dim mailFolder As Object Dim mailItem As Object Dim olApp As Outlook.Application Dim objUserType As Object Set olApp = New Outlook.Application Set NameSpace = olApp.GetNamespace("MAPI") Set mailFolder = NameSpace.GetDefaultFolder(olFolderContacts) Set mailItem = mailFolder.Items.Add("IPM.Contact.My_Contact") mailItem.CompanyName = sCompany mailItem.LastName = sLName mailItem.FirstName = sFName mailItem.Email1Address = sEMail mailItem.HomeTelephoneNumber = sHPhone mailItem.BusinessTelephoneNumber = sWPhone mailItem.MobileTelephoneNumber = sMPhone 'mailItem.Subject = sName mailItem.Save
Fri, 04 Oct 2002 03:00:00 GMT

Sue Mosher [MVP #2 / 3	Setting values to Custom Fields on Custom Forms Try this: mailItem.UserProperties("Type") = value1 mailItem.UserProperties("DX") = value -- Sue Mosher Author of "Teach Yourself Microsoft Outlook 2000 Programming in 24 Hours" "Microsoft Outlook 2000 E-mail and Fax Guide" Outlook and Exchange solutions at http://www.slipstick.com Quote: > Please help (again) > I have a custome Contacts Form. In it I have placed a combo and tex box, > cmbType and txtDX. I have also set these up as Custom fields, Type and DX as > text fields. The code below works fine to open up my customised form. How do > I set the values for Type and DX though? > Dim NameSpace As NameSpace > Dim mailFolder As Object > Dim mailItem As Object > Dim olApp As Outlook.Application > Dim objUserType As Object > Set olApp = New Outlook.Application > Set NameSpace = olApp.GetNamespace("MAPI") > Set mailFolder = NameSpace.GetDefaultFolder(olFolderContacts) > Set mailItem = mailFolder.Items.Add("IPM.Contact.My_Contact") > mailItem.CompanyName = sCompany > mailItem.LastName = sLName > mailItem.FirstName = sFName > mailItem.Email1Address = sEMail > mailItem.HomeTelephoneNumber = sHPhone > mailItem.BusinessTelephoneNumber = sWPhone > mailItem.MobileTelephoneNumber = sMPhone > 'mailItem.Subject = sName > mailItem.Save
Fri, 04 Oct 2002 03:00:00 GMT

Dave #3 / 3	Setting values to Custom Fields on Custom Forms Thanks Sue, as usual it worked perfectly. Quote: > Try this: > mailItem.UserProperties("Type") = value1 > mailItem.UserProperties("DX") = value > -- > Sue Mosher > Author of > "Teach Yourself Microsoft Outlook 2000 Programming in 24 Hours" > "Microsoft Outlook 2000 E-mail and Fax Guide" > Outlook and Exchange solutions at http://www.slipstick.com > > Please help (again) > > I have a custome Contacts Form. In it I have placed a combo and tex box, > > cmbType and txtDX. I have also set these up as Custom fields, Type and DX > as > > text fields. The code below works fine to open up my customised form. How > do > > I set the values for Type and DX though? > > Dim NameSpace As NameSpace > > Dim mailFolder As Object > > Dim mailItem As Object > > Dim olApp As Outlook.Application > > Dim objUserType As Object > > Set olApp = New Outlook.Application > > Set NameSpace = olApp.GetNamespace("MAPI") > > Set mailFolder = NameSpace.GetDefaultFolder(olFolderContacts) > > Set mailItem = mailFolder.Items.Add("IPM.Contact.My_Contact") > > mailItem.CompanyName = sCompany > > mailItem.LastName = sLName > > mailItem.FirstName = sFName > > mailItem.Email1Address = sEMail > > mailItem.HomeTelephoneNumber = sHPhone > > mailItem.BusinessTelephoneNumber = sWPhone > > mailItem.MobileTelephoneNumber = sMPhone > > 'mailItem.Subject = sName > > mailItem.Save
Sat, 05 Oct 2002 03:00:00 GMT

Page 1 of 1

[ 3 post ]