Como faço para janela poupup ajusta de forma automárica

[Luiz Rovero]

Pessoal, boa tarde.

Tenho uma missão de criar uma forma de apresentar uma mensagem semanal do Presidente da empresa através da GPO, até ai tudo bem, o grande problema é que o conteudo desta mensagem será modificada semanalmente por ele. A mensagem será criada no Word e salva em forma .HTM ou .HTML num diretório já criado, então a janela do poupup quando abrir para os usuários na rede, deve apresentar no tamanho do conteúdo da mensagem e não com espaço em branco.

Segue o script que estou utilizando.

'Script de Login

On error Resume Next
Err.clear 0

'============================================================================
'Mensagem ao usuario em HTML

Set objFSO = CreateObject("Scripting.FileSystemObject")

strFile = "C:\Users\lrovero\Documents\!Lixo\teste\mensagem.htm"
If objFSO.FileExists(strFile) Then
strText = objFSO.OpenTextFile(strFile, 1).ReadAll
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate2 "about:blank": objIE.width = "50%" : objIE.height = "50%" : objIE.toolbar = false : objIE.resizable=no
objIE.menubar = false : objIE.statusbar = false : objIE.visible = True
objIE.document.write "<font color=blue><i>"
objIE.document.write strText
objIE.document.write "</i></font>"
End If

Wscript.Quit