VBScript : How to Remove blank lines in email signature in outlook? : As per client requirement, I have to remove blank lines from reply message in Email Signature.

1) First Image 

[![enter image description here][1]][1]


2) After clicking on OutLook-->Formate Text --> Plain Text 

[![enter image description here][2]][2]


  [1]: https://i.stack.imgur.com/6hb1c.png
  [2]: https://i.stack.imgur.com/aoN7W.png

Here I want to remove these 5 lines using VBScript.

       
       
           If Not BannerImage = "" And Not Left(BannerImage, 8) = "Excluded" Then
               debugLog("Setting Marketing Banner")
    
           selection.TypeParagraph()
           Set Logo = selection.InlineShapes.AddPicture(BannerImage)
           document.Hyperlinks.Add logo.Range, BannerURL
           selection.TypeParagraph()
           End If	
    
       selection.TypeParagraph()
       selection.Font.Name = "Arial"
       selection.Font.Size = "7"
    
    If recordset.Fields("co") <> "Netherlands" Then
    
               debugLog("Setting Facebook Logo")
    
       Set Logo = selection.InlineShapes.AddPicture(FacebookLogo)
       document.Hyperlinks.Add logo.Range, FacebookURL
       Logo.Height = 19
       Logo.Width = 19
    
    End If
    
  
           debugLog("Setting LinkedIn Logo")
    
       Set Logo = selection.InlineShapes.AddPicture(LinkedInLogo)
       document.Hyperlinks.Add logo.Range, LinkedInURL
       Logo.Height = 19
       Logo.Width = 19
    
           debugLog("Setting Twitter Logo")
    
       Set Logo = selection.InlineShapes.AddPicture(TwitterLogo)
       document.Hyperlinks.Add logo.Range, TwitterURL
       Logo.Height = 19
       Logo.Width = 19
    
           debugLog("Setting YouTube Logo")
    
       Set Logo = selection.InlineShapes.AddPicture(YouTubeLogo)
       document.Hyperlinks.Add logo.Range, YouTubeURL
       Logo.Height = 19
       Logo.Width = 19
           
           
           debugLog("Setting Disclaimers")
    
           If Not Disclaimer1Text = "" Then
           selection.TypeText Chr(11)
           selection.TypeText Chr(11)

Please Help me on this.

Thanks in advance.

