Just Code‎ > ‎

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

posted Sep 6, 2009, 11:43 PM by Peter Henell   [ updated Sep 6, 2009, 11:47 PM ]
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 = Nothing
End Sub
Comments