How to Remove blank lines in email signature in outlook?

Hitesh Prajapati
Hitesh Prajapati used Ask the Experts™
on
As per client requirement, I have to remove blank lines from reply message in Email Signature.
1)

1.png
2) After clicking on OutLook-->Formate Text --> Plain Text

2.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)

Open in new window


Please Help me on this.

Thanks in advance.
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Commented:
Remove all the posted code except the last part:
       debugLog("Setting Disclaimers")

       If Not Disclaimer1Text = "" Then
       selection.TypeText Chr(11)
       selection.TypeText Chr(11)

Open in new window

Seth SimmonsSr. Systems Administrator

Commented:
No comment has been added to this question in more than 21 days, so it is now classified as abandoned.

I have recommended this question be closed as follows:

Accept: Kimputer (https:#a42362628)

If you feel this question should be closed differently, post an objection and the moderators will review all objections and close it as they feel fit. If no one objects, this question will be closed automatically the way described above.

seth2740
Experts-Exchange Cleanup Volunteer

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial