почта не идет
Модератор: Модераторы
Сообщений: 8
• Страница 1 из 1
- Remy
- Активный пользователь
-
- Сообщения: 793
- Зарегистрирован: 17 мар 2004, 19:11
- Откуда: Санкт-Петербург, Россия
Цитата | ||||
Set objEmail = CreateObject("CDO.Message") objEmail.From = "netmon@domain.com" objEmail.To = "services@domain.com" objEmail.Subject = "Server down" objEmail.Textbody = "Server1 is no longer accessible over the network." objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "domain" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send [/quote] скопировал с Microsoft, раньше, не здесь, работал, сейчас, не работает.
|