Ограничить отправку сообщений на почту. - Компьютерный форум OSzone.net

Добрый день.

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

Задача:
Ограничить отправку сообщения, 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