Has anyone used the Queue method with ASPEmail?
I'm getting access is denied and don't know why. This is on my local computer, the queue folder is under the application (C:\DF19\Membership\Queue...)
Also same message when I run the MailAgent and try to stop/start it.
I can start/stop thru Management of Services.
The reason why I'm trying to use the queue is that it took all day for the 2000+ subscriptions to be emailed. :-(
Code:
Get IsComObjectCreated of oComMailSender to bIsComObjectCreated
If (not(bIsComObjectCreated)) Begin
Send CreateComObject to oComMailSender
End
Get IsComObjectCreated of oComLogEntry to bIsComObjectCreated
If (not(bIsComObjectCreated)) Begin
Send CreateComObject to oComLogEntry
End
Move ("Please find attached your subscription invoice.") to sMessage
Get ComValidateAddress of oComMailSender (trim(sToEmail)) to iReturnVal
If (iReturnVal=0) Begin
Send ComReset to oComMailSEnder
Set ComSSL of oComMailSender to True
Set ComPort of oComMailsender to Param.OutServer_Port //465 - 587
If (Param.Encryption_Type="N") Begin
Set ComSSL of oComMailSender to False
Set ComTLS of oComMailSender to False
End
Else If (Param.Encryption_Type="S") Begin
Set ComSSL of oComMailSender to True
Set ComTLS of oComMailSender to False
End
Else If (Param.Encryption_Type="T") Begin
Set ComSSL of oComMailSender to False
Set ComTLS of oComMailSender to True
End
Else If (Param.Encryption_Type="A") Begin //Auto??
Set ComSSL of oComMailSender to True
Set ComTLS of oComMailSender to True
End
Set ComHost of oComMailSender to (trim(Param.eMail_SMTP))
Set ComFrom of oComMailSender to (trim(Param.EMAIL))
Set ComFromName of oComMailSender to (trim(Param.EMAIL_From))
Set ComUsername of oComMailSender to (trim(Param.EMAIL_UserName))
Set ComPassword of oComMailSender to (trim(Param.EMAIL_PWD))
Set ComSubject of oComMailSender to ("Subscription for"*sMemberAlpha)
Set ComBody of oComMailSender to sMessage
Send ComAddBcc to oComMailSender (trim(Param.EMAIL)) (Trim(Param.EMAIL_From))
Send ComAddAddress to oComMailSender (trim(sToEmail)) sMailingName
Send ComAddAttachment to oComMailSender sFilename
Set ComQueue of oComMailSender to True
Get ComSend of oComMailSender "" to bMailed
Get ComQueueFileName of oComMailSender to sQueueFileName