Copy Outlook noteitem data to clipboard

[29rosemont]

I have a script attached to a button on an Outlook contact form that copies contact info and places it in an Outlook Note. I want to rather have the data copied to the Windows clipboard, so it can be pasted into Word docs. Here's the code so far:


Set itm = Application.CreateItem(5)
msgString = Item.FullName & chr(13)
msgString = msgString & Item.CompanyName & chr(13)
msgString = msgString & Item.BusinessAddress & chr(13)
msgString = msgString & chr(13)
msgString = msgString & "Office:" & chr(32) & Item.BusinessTelephoneNumber & chr(13)
msgString = msgString & "Fax:" & chr(32) & Item.BusinessFaxNumber & chr(13)
msgString = msgString & "Mobile:" & chr(32) & Item.MobileTelephoneNumber & chr(13)
msgString = msgString & Item.Email1Address
itm.Body = msgString

Instead of using "itm.Body = msgString" above, I've tried


msgString.select
selection.copytoclipboard


and


msgstring.putinclipboard


and


set myitm = itm.body
myitm.putinclipboard



Noe of these work. Any advice is welcome!

 

[29rosemont]

*This is using Outlook 2000 & Windows 2000.