Skip to content

Instantly share code, notes, and snippets.

@sdcampbell

sdcampbell/Outlook-Addin-SMB-Image-Tag.txt

Created December 17, 2019 14:21
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save sdcampbell/ba788de362b98dade76d18acdaa2acdc to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save sdcampbell/ba788de362b98dade76d18acdaa2acdc to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. sdcampbell created this gist Dec 17, 2019.
    18 changes: 18 additions & 0 deletions Outlook-Addin-SMB-Image-Tag.txt
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,18 @@
    Sub HTMLMessage()
    Dim objOutlookMsg As Outlook.MailItem
    Dim message, title, defaultValue As String
    Dim myValue As String
    ' prompt for user input.
    message = "Enter SMB Tag(s)"
    ' Set popup box title.
    title = "SMB Input Box"
    defaultValue = "<img src='file://IPADDRESS/image/signature.jpg'><img src='file:\\IPADDRESS\image\signature.jpg'>"
    ' Prompt input box
    myValue = InputBox(message, title, defaultValue)
    If myValue <> "" Then
    ' If a value is input for SMB tags
    Set objOutlookMsg = Outlook.Application.CreateItem(olMailItem)
    objOutlookMsg.HTMLBody = "<b>smb Image Tag below </b><br>" & myValue
    objOutlookMsg.Display
    End If
    End Sub