VBScript para envio de correio electrónico - II

Na sequência do meu post anterior, VBScript para envio de correio electrónico, aqui fica a parte II, agora com mais opções (body em HTML e com Attach).

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "sender@domain.com"
objEmail.CC = "user@domain.com"
objEmail.To = "recipient@organization.com"
objEmail.Subject = "This is a nice script!"
objEmail.CreateMHTMLBody ("http://localhost/body.htm")
objEmail.AddAttachment "file://C:\Download\dummy.txt"
objEmail.Send

Lembrem-se que o CDONTS não é instalado com o Windows 2003, logo se tiverem aplicações a utilizar esta livraria não vão funcionar. É possível instalar o CDONTS no Windows 2003, seguindo para isso os passos descritos nesta página da Microsoft: Migrate CDONTS. No entanto o método preferencial continua a ser a migração para CDO.
Aqui ficam uns links relacionados com este assunto:

• Microsoft Windows Server 2003 Does Not Install CDONTS
• CDO for Windows 2000 (CDOSYS.DLL)
• CDO for Exchange 2000 Server (and 2003) (CDOEX.DLL)