autofit Selection to window

[Omer]

code from Ron de Bruin

   Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.readall
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                                        "align=left x:publishsource=")

I have tried

"width=100% x:publishsource=")
"width=autofit x:publishsource=")

is it possible to auto fit to outlook window.
eg

from this
mail1.jpg

to this
mail2.jpg

[SamT]

I moved your thread from the MS Excel help forum to the Outlook Help Forum.