Automation SendPost

Jeg har lavet et lille script på samme måde som i VBA:
Åben regneark
Opdater pivot
Send som mail

strMail = "nih@tre-for.dk"
strXlFil = "C:\Niels\energiserver\Supergros ugeopgørelse.xls"

dim objWrkBook
dim objXl

set objXl =  WScript.createobject("Excel.Application")
set objWrkBook =  objXL.Workbooks.Open(strXlFil)

objXL.Application.Visible = True
objWrkBook.Sheets("ugeoversigt").PivotTables("minPivot").RefreshTable
periode = objWrkbook.Sheets("ugeoversigt").Range("c7")

objwrkbook.sendMail strMail,"energirådgivning "  & periode

objWrkBook.Close true
objXL.Application.Quit
Set objWrkBook = Nothing: Set objXL = Nothing

problemmet er, at hvis ikke Outlook er åben, kommer der en dialogbox, hvor jeg skal 'vælge profil'.
Hvordan undgår jeg det ????

Niels