How to use NoSpaceBetweenParagraphsOfSameStyle ? RRS feed


  • Actually, it appears to work just by adding one code line after filling in the HTMLBody:

    Sub CreateEmail()
        Dim MyEmail As Outlook.MailItem
        Set MyEmail = Application.CreateItem(olMailItem)
        MyEmail.HTMLBody = "<html><body>blah<br>blah<br>blah<br></body></html>" + MyEmail.HTMLBody
        Outlook.ActiveInspector.WordEditor.Styles("Normal").NoSpaceBetweenParagraphsOfSameStyle = True
        Set MyEmail = Nothing
    End Sub

    I will keep this solution as it is the easiest one. :-)

    • Marked as answer by ChrisMS-help Thursday, April 4, 2013 7:24 AM
    Thursday, April 4, 2013 7:24 AM

All replies