HTML to Plain Text Macro - Help

[SamuelDawes]

Good Morning,

I am using a macro that converts selected HTML emails into Plain Text, then prints them out. The macro works perfectly.

I was wondering how i would add some code that would format the selected HTML email to the 'No Spacing' style before converting it into Plain Text.
Condensing all the text from an email and removing all the guff, so it is in a format that prints efficiently.

Sub ConvertPlainText()

    Dim selItems            As Selection
    Dim myItem              As Object

    ' Set reference to the Selection.
    Set selItems = ActiveExplorer.Selection

    '  Loop through each item in the selection.
    For Each myItem In selItems
            myItem.BodyFormat = olFormatPlain
        'myItem.Save
        myItem.PrintOut
    Next
    
    Set selItems = Nothing

End Sub

I have tried multiple solutions and exhausted my google options.
Any help would be much appreciated!

Kind Regards,

Sam

 

[Diane Poremsky]

You would need to use the word object model to do that. I don't know if it would be easier to search for 2 line breaks and remove 1, after it is converted.

something like
mybody = replace(myItem.Body,vbcrlf & vbcrlf,vbcrlf)
myItem.Body = mybody