VBA Outlook - Obtendo a senha de um formulário

[André Luiz Bernardes]

Obter a senha de um formulário do MS Outlook é algo simples, quase trivial (na maioria das vezes), porque o objeto FormDescription, contém informações fundamentais sobre o Form, incluindo a propriedade SENHA. O código VBA para o MS Outlook a seguir mostra o valor da propriedade SENHA numa caixa de mensagem.

Sub GetFormPassword()
    Dim objApp As Application
    Dim objInsp As Inspector
    Dim objFD As FormDescription
    
    Set objApp = CreateObject("Outlook.Application")
    Set objInsp = objApp.ActiveInspector

    If Not objInsp Is Nothing Then

        Set objFD = objInsp.CurrentItem.FormDescription
        MsgBox _
          Prompt:="A senha para o " & _
                  Chr(34) & objFD.MessageClass & _
                  Chr(34) & " formulário é:" & _
                  vbCrLf & vbCrLf & objFD.Password, _
          Title:=".: Recuperando a SENHA"
               
    Else

        MsgBox _
          Prompt:="Por favor, abra um item utilizando " & _
                  "o formulário desejado " & _
                  "execute o código 'GetFormPassword'.", _
          Title:=".: Recuperando a SENHA"
    End If

    Set objFD = Nothing
    Set objNS = Nothing
    Set objApp = Nothing
End Sub