Outlook VBA - capturar o link de uma imagem no corpo do e-mail

Deixando registrado aqui o código de uma necessidade pontual.

;-) 

Sub CapturarAtributoTag()
    Dim objMail As Outlook.MailItem
    Set objMail = Application.ActiveExplorer.Selection(1)
   
    Dim objHTMLDoc As MSHTML.HTMLDocument
    Set objHTMLDoc = New MSHTML.HTMLDocument
   
    objHTMLDoc.body.innerHTML = objMail.HTMLBody
   
    Dim objImg As MSHTML.HTMLImg
    Set objImg = objHTMLDoc.getElementsByTagName("img")(0)
   
    MsgBox objImg.getAttribute("src")
End Sub