Based on all the other help, I have the following two codes. The first one copies the FullName of the Contact if I open the Contact from the folder, or select from the folder.....and the second code copies the FullName of the Contact when the contact is opened from the email message.....so it there away to make it one code that does all three of these areas I just mentioned?
Sub CopyFullName()
Dim oContact As contactItem
Set oContact = ActiveExplorer().Selection.item(1)
Set DataObj = New MSForms.DataObject
DataObj.SetText oContact.fullname
DataObj.PutInClipboard
End Sub
Sub CopyFullName2()
Dim oContact As contactItem
Dim item
Dim inspector
Dim Recip
Set inspector = Application.ActiveInspector
Set item = inspector.currentItem
Set DataObj = New MSForms.DataObject
DataObj.SetText item.fullname
DataObj.PutInClipboard
End Sub