Por mais que as ferramentas Office da Microsoft estejam inchando em tamanho e funcionalidades fúteis ao longo do tempo ainda são úteis e meu meio principal de interagir com meus colegas durante o dia de trabalho.
Dessa forma, tive que aprender alguns truques em cada uma delas.
No excel controlo minhas atividades, que referenciam quase tudo que preciso.
No Outlook eu uso as estruturas de pastas e um arquivamento próprio para me organizar.
E quando preciso referenciar uma mensagem do Outlook em alguma nota ou Excel, como faço ? Simples, mando o Outlook abrir a mensagem refererida através de seu ID.
Pàra pegar o ID da mensagem uso uma Macro VBA auxiliada por um pequeno Form:
Sub AddLinkToMessage()
Dim objMail As Outlook.MailItem
Dim mailId As String
Dim S As String
'One and ONLY one message muse be selected
If Application.ActiveExplorer.Selection.Count <> 1 Then
Exit Sub
End If
Set objMail = Application.ActiveExplorer.Selection.Item(1)
S = "outlook:" + objMail.EntryID
With UserForm1.TextBox1
.Text = S
.SelStart = 0
.SelLength = Len(.Text)
End With
UserForm1.Show
End Sub
Com o ID acima em mãos, crio um link (inclusive terminal) em qualquer lugar no seguinte formato:
outlook.exe /select outlook:00000000000000FA717272
onde o 00000000000000FA717272, é na verdade a longa identificação dada a mensagem.