Supongo que en los que tendrás duda será en estos tres, aquí tienes un ejemplo, prueba a ver si funciona, suerte:
objCDOMail.From = "
[email protected]"
objCDOMail.AddAddress "
[email protected]"
objCDOMail.Subject = "Email informativo de la empresa"
Un saludo