quarta-feira, 26 de abril de 2023

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

Nenhum comentário:

Pesquisar este blog

Arquivo do blog

Quem sou eu

Minha foto
Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient. Pós-graduado em Business Intelligence.