Set objMsg = CreateObject("CDO.Message") objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.10.150" objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMsg.Configuration.Fields.Update objMsg.Subject = "Server is down" objMsg.From = "olegon@olegon.ru" objMsg.To = "test@olegon.ru" objMsg.TextBody = "После непродолжительной гражданской панихиды...тело было предано земле." objMsg.Send