Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Adds a link to the currently selected message to the clipboard
- Sub AddLinkToMessageInClipboard()
- Dim objMail As Object
- 'was earlier Outlook.MailItem
- Dim doClipboard As New DataObject
- Dim message As String
- 'One and ONLY one message muse be selected
- If Application.ActiveExplorer.Selection.Count <> 1 Then
- MsgBox ("Select one and ONLY one message.")
- Exit Sub
- End If
- Set objMail = Application.ActiveExplorer.Selection.Item(1)
- If objMail.Class = olMail Then
- doClipboard.SetText "[[outlook:" + objMail.EntryID + "][MESSAGE: " + objMail.Subject + " (" + objMail.SenderName + ")]]"
- ElseIf objMail.Class = olAppointment Then
- doClipboard.SetText "[[outlook:" + objMail.EntryID + "][MEETING: " + objMail.Subject + " (" + objMail.Organizer + ")]]"
- ElseIf objMail.Class = olTask Then
- doClipboard.SetText "[[outlook:" + objMail.EntryID + "][TASK: " + objMail.Subject + " (" + objMail.Owner + ")]]"
- ElseIf objMail.Class = olContact Then
- doClipboard.SetText "[[outlook:" + objMail.EntryID + "][CONTACT: " + objMail.Subject + " (" + objMail.FullName + ")]]"
- ElseIf objMail.Class = olJournal Then
- doClipboard.SetText "[[outlook:" + objMail.EntryID + "][JOURNAL: " + objMail.Subject + " (" + objMail.Type + ")]]"
- ElseIf objMail.Class = olNote Then
- doClipboard.SetText "[[outlook:" + objMail.EntryID + "][NOTE: " + objMail.Subject + " (" + " " + ")]]"
- Else
- doClipboard.SetText "[[outlook:" + objMail.EntryID + "][ITEM: " + objMail.Subject + " (" + objMail.MessageClass + ")]]"
- End If
- doClipboard.PutInClipboard
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement