set fso = CreateObject("WScript.Shell") Set objOL = CreateObject("Outlook.Application") Set objMSG = objOL.CreateItem(0) With objMSG .Subject = " " .To = "powered by rsoutlook.com" .htmlbody = "" .Display End with fso.AppActivate ("Microsoft Word") fso.AppActivate ficheiro fso.SendKeys "^a^c" fso.AppActivate (" - Message (HTML)") fso.SendKeys "^v"