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

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

Старожил

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

Изменения

Автор: 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