Как в Windows отправить сообщение (email) штатными средствами : Программирование

█ 18.05.2016 18:12

Поскольку убогая ОС не подразумевает какого-нибудь sendmail, то для того, чтобы отправить сообщение пришлось обратиться к VBS

Код:

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

█ 18.05.2016 18:40

Send-MailMessage в PowerShell

█ 18.05.2016 19:55

Вот не было, да и больно уже напрягает это "тут работает, тут не работает". Ладно бы, если на какой-нибудь лохматой XP.

█ 18.05.2016 20:47

Ты ещё про ДОС вспомни. "Умерла, так умерла", какой смысл принципиально держаться ОС, официально заброшенной в поддержке производителем? Клиентам это тоже нужно объяснять. Ты же не пользуешься для новых инсталляций дистрибутивами линукса 10-ти 15-ти летней давности? А первой версии ХР 15 годков вот-вот стукнет.

█ 18.05.2016 20:52

Нет-нет, я как раз и говорю, что ладно бы XP, так на 7ке не работает... Ее-то пока еще не совсем закопали.

█ 18.05.2016 21:54

На 7-ке любой подверсии это должно работать "из коробки"