VBA Script create a link to current selected item and copy to clip board

Post date: Sep 7, 2009 6:43:49 AM

Sub CreateLinkToOutlookItem() Dim olkItem As Outlook.MailItem, strLink As String Set olkItem = Application.ActiveExplorer.Selection(1) strLink = "outlook://" & olkItem.Parent.Name & "/~" & olkItem.Subject ClipBoard_SetData strLink Set olkItem = NothingEnd Sub