charlesmac
MIS
Merry Christmas. I want to slow this emailer down to two emails a minute since with smtp our server only lets us send out 10 every 5 minnutes. Any suggestions since I am looking for a way out.
=================================
SCAN FOR NOT EMPTY(EMail)
*** Send email
*** PARAMETERS Recipient email, Subject, Message, Attachment, Send To Name,
*** Sender EMail, Sender Name
=HBSendMail(cEmailMembers.EMail, This.txtsubject.Value, ;
This.Edit1.Value, ALLTRIM(This.txtAttachment.Value),
cEMailMembers.FullName, ;
This.txtSenderEMail.Value, This.txtEmailFrom.Value)
lnMailCount = lnMailCount + 1
IF lnMailCount > 1 AND INT(VAL(substr(TIME(),4,2))) = lnStartMin
DO WHILE INT(Val(substr(TIME(),4,2))) = lnStartMin
ENDDO
lnMailCount = 0
lnStartMin = INT(VAL(LEFT(TIME(),2)))
WAIT WINDOW "" TIMEOUT 55
ENDIF
ENDSCAN
Merry Christmas,
Charlesmac
wnscc@wnscc.org
=================================
SCAN FOR NOT EMPTY(EMail)
*** Send email
*** PARAMETERS Recipient email, Subject, Message, Attachment, Send To Name,
*** Sender EMail, Sender Name
=HBSendMail(cEmailMembers.EMail, This.txtsubject.Value, ;
This.Edit1.Value, ALLTRIM(This.txtAttachment.Value),
cEMailMembers.FullName, ;
This.txtSenderEMail.Value, This.txtEmailFrom.Value)
lnMailCount = lnMailCount + 1
IF lnMailCount > 1 AND INT(VAL(substr(TIME(),4,2))) = lnStartMin
DO WHILE INT(Val(substr(TIME(),4,2))) = lnStartMin
ENDDO
lnMailCount = 0
lnStartMin = INT(VAL(LEFT(TIME(),2)))
WAIT WINDOW "" TIMEOUT 55
ENDIF
ENDSCAN
Merry Christmas,
Charlesmac
wnscc@wnscc.org