VBS/WSH/JS - Ограничить отправку сообщений на почту.

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBS/WSH/JS - Ограничить отправку сообщений на почту.

bombording

Старожил

Сообщения: 226
Благодарности: 4

Профиль | Отправить PM | Цитировать

Изменения

Автор: bombording
Дата: 02-11-2011

Добрый день.

Имеется функция отправки сообщения. Используется в одном скрипте. Всё работает.

Задача:
Ограничить отправку сообщения, 5-ю сообщениями за одну сессию работы скрипта.

Собственно из вариантов реализации только, запись номера письма в переменную при каждой отправке сообщения. А в самой функции поставить условие, которое будет сравнивать переменную с 5.

Помогите пожалуйста реализовать.

Код:

Function sendMail()

strSmtpServer="mail"
strSmtpPort=25
strSmtpAuth="yes"
strSmtpSsl="no"
strSmtpUser = "user"
strSmtpPass = "pass"
strSendingEmail="user@domen.ru"
strReportEmail="user@domen.ru"
Set objMessage = CreateObject("CDO.Message")
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = strSmtpPort
If strSmtpAuth = "yes" Then
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strSmtpUser
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSmtpPass
End If
objMessage.Configuration.Fields.Update
objMessage.Subject = "Тема письма" & strDate & "."
objMessage.From = strSendingEmail
objMessage.To = strReportEmail
objMessage.HTMLBody = "Текст сообщения"
objMessage.Send
End Function

-------
Альтернатива Всему!

Отправлено: 16:12, 31-10-2011