Veja este exemplo :

objEmail = Createobject("CDO.Message")
objEmail.From = Trim(Substr(Sys(0),1,At("#",Sys(0))-1))+"@coloil.com.br"
objEmail.To = "ferrari@coloil.com.br"
objEmail.Subject = "Log de eventos - Arquivo"
objEmail.AddAttachment(var_arquivo)
objEmail.Send
Release objEmail