autofit Selection to window

[Omer]

code from Ron de Bruin (http://www.rondebruin.nl/win/s1/outlook/bmail2.htm)


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
13309

to this
13310

[SamT]

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