You gave me the code to copy the e-mail address which worked perfecting, and it works for other objects in the Contact form, but not for the new fields I created....so here is the code you gave me and I substituted the TextBox for the Email1Address and it does not work....so is there an easy way to fix this?
Sub CopyStatusDate()
Dim oContact As ContactItem
'DataObj As MSForms.DataObject
Set oContact = ActiveExplorer().Selection.Item(1)
Set DataObj = New MSForms.DataObject
DataObj.SetText oContact.TextBox4
DataObj.PutInClipboard
End Sub
Sub CopyStatusDate()
Dim oContact As ContactItem
'DataObj As MSForms.DataObject
Set oContact = ActiveExplorer().Selection.Item(1)
Set DataObj = New MSForms.DataObject
DataObj.SetText oContact.TextBox4
DataObj.PutInClipboard
End Sub