VP-ASP :: Shopping Cart Software

Shopping Cart Software Solutions for anywhere in the World

US/Canada(Toll Free): +1 888 587 2278
Europe/UK: +44 (020) 7193 9408
Australia/New Zealand: +61 3 9016 4497

VP-ASP Shopping Cart Customer Forum

Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 VPCart Forum
 Customization
 PERSITS ASPEMAIL Mail Queue
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

kwjoey
Starting Member

19 Posts

Posted - March 29 2007 :  19:28:41  Show Profile  Reply with Quote
Hello,
I hope somebody can help me. I think it should be easy for someone who can code. I'm just tinker and can't get this to work. Below is the section of code from ShopMail.asp (vpasp 3.50). I use Persits Aspemail and it works fine. I have the full version so the Mail Queue function is turned on. I think the Mail Queue will speed up the cart a little. This is all that's needed to use Aspemail Mail Queue-

Mail.Queue = True
Mail.Send

I tried putting the above lines in the code. The emails get sent but never through the mail queue. I have other forms outside of vpasp and the mail queue works. Here's my Shopmail.asp file-

If ucase(Mailtype) = "ASPEMAIL" Then
Set Mailer = Server.CreateObject("Persits.MailSender")
if err.number<> 0 then
exit sub
end if
Mail.Host = "mail.XXXXXXXXXX.com"
Mail.Port = "25"
Mail.Username = "[email protected]"
Mail.Password = "XXXXXXXXXX"
Mailer.Host = my_system
Mailer.From = my_fromAddress
Mailer.FromName = my_from
Mailer.AddAddress my_toaddress, my_to
Mailer.Subject = my_subject
If htmlformat="HTML" then
Mailer.IsHTML = TRUE
end if
If my_attachment<>"" then
Mailer.AddAttachment my_attachment
end if
Mailer.Body = body
If Mailer.Send then
setMailer=nothing
exit sub
else
mailerror=langmailerror & " " & my_toaddress
HandleMailError mailerror
set mailer=nothing
exit sub
end if
end if
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000