title: Outlook mail signature script with with image (.vbs)
body: <p>I am actually working on a vbscript to generate the signature on Outlook, which should look like this;</p>
  
  <p><img src="https://i.stack.imgur.com/vbiyK.jpg" alt="enter image description here"></p>
  
  <p>All the data is being fetched successfully and the format seems okay, as I hae been using a table and placed the data in the corresponding cells to avoid overlapping and all.</p>
  
  <p>Here is my code;</p>
  
  <pre><code>' Instantiation
  Set objWord = CreateObject("Word.Application")
  Set objDoc = objWord.Documents.Add()
  Set objSelection = objWord.Selection
  Set objEmailOptions = objWord.EmailOptions
  Set objSignatureObject = objEmailOptions.EmailSignature
  Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
  
  Details = "Details Details Details Details Details Details Details Details"
  
  ' Add logo 
  Set objRange = objDoc.Range()
  objDoc.Tables.Add objRange, 4, 2
  Set objTable = objDoc.Tables(1)
  objTable.Columns(0).Width = 900
  objTable.Columns(1).Width = 100
  
  ' Full Name
  objTable.Rows(1).Cells.Merge
  objTable.Rows(1).Height = 5
  objTable.Cell(1, 1).Range.Font.Color = RGB(15,0,250)
  objTable.Cell(1, 1).Range.Font.Name = "Monotype Corsiva"
  objTable.Cell(1, 1).Range.Font.Bold = true
  objTable.Cell(1, 1).Range.Font.Size = 16 
  objTable.Cell(1, 1).Range.Text = strFirstName &amp; " " &amp;  strLastName 
  
  ' Title
  objTable.Rows(2).Cells.Merge
  objTable.Rows(2).Height = 5
  objTable.Cell(2, 1).Range.Font.Color = RGB(15,36,62)
  objTable.Cell(2, 1).Range.Font.Name = "Monotype Corsiva"
  objTable.Cell(1, 1).Range.Font.Bold = true
  objTable.Cell(2, 1).Range.Font.Size = 12
  objTable.Cell(2, 1).Range.Text = strTitle
  
  ' Details
  objTable.Rows(3).Cells.Merge
  objTable.Rows(3).Height = 15
  objTable.Cell(3, 1).Range.Font.Color = RGB(15,36,62)
  objTable.Cell(3, 1).Range.Font.Name = "Calibri"
  objTable.Cell(3, 1).Range.Font.Size = 8 
  objTable.Cell(3, 1).Range.Text = Details  
  
  ' Images
  objTable.Rows(4).Height = 15
  If (strGender = "M") Then
      objTable.Cell(4, 1).Range.InlineShapes.AddPicture "C:\Scripts\Logon\Male.jpg"
  Else
      objTable.Cell(4, 1).Range.InlineShapes.AddPicture "C:\Scripts\Logon\Female.jpg"
  End if
  
  ' Logo
  objTable.Cell(4, 2).Range.InlineShapes.AddPicture "C:\Scripts\Logon\logoSignatureNew.jpg"
  objTable.Cell(4, 2).Range.ParagraphFormat.Alignment = 2
  
  objSelection.EndKey END_OF_STORY  
  Set objSelection = objDoc.Range() 
  
  objSignatureEntries.Add "Signature", objSelection
  objSignatureObject.NewMessageSignature = "Signature"
  
  objDoc.Saved = true
  objDoc.Close
  objWord.Quit
  </code></pre>
  
  <p>The output, as of now, is as follows;
  <img src="https://i.stack.imgur.com/AkuzP.jpg" alt="enter image description here"></p>
  
  <p>Can anyone please help me to add the balloon around the text? I don't know how we can add an image and <code>send to back</code> or use a sort of watermark.</p>
  
  <p>Any help will be greatly appreciated.
  Thanks in anticipation.</p>