sirichai
Posts: 22
|
| Posted: 06/05/2007, 10:36 PM |
|
Hi,
please hlp me. I just want to send mail from codecharge studio and copy some source from Aspmail (persit) sample to my program.
I already install and test for ASPmail sample asp program it's work.
but when I copy and use my program it's not.
my source program+copy sample is below :-
please help me.
Rgds,
Sirichai
Function member_AfterInsert(Sender) 'member_AfterInsert @2-E6B9E513
'Custom Code @46-73254650
' -------------------------
' Write your own code here.
Dim Mailer
Dim strHost
Dim strHTML
Dim Mail
' Body in HTML format
strHost = "smtp.truemail.co.th"
strHTML = "<A HREF=""http://www.persits.com""><IMG SRC=""http://www.persits.com/ps_logo.gif"" BORDER=""0""></A><BR>" & chr(13) &chr(10)
strHTML = strHTML & "<TABLE WIDTH=""300"" BGCOLOR=""#E0E0E0"" BORDER=1>" & chr(13) & chr(10)
strHTML = strHTML & "<CAPTION>Persits Software Price List</CAPTION>" & chr(13) & chr(10)
strHTML = strHTML & "<TR><TH>Product</TH><TH>Price</TH></TR>" & chr(13) & chr(10)
strHTML = strHTML & "<TR><TD><A HREF=""http://aaa.co.th "">Membership login</A></TD><TD>You are invited from your firend</TD></TR>" & chr(13) & chr(10)
strHTML = strHTML & "<TR><TD><A HREF=""http://www.aspupload.com"">AspUpload</A></TD><TD>$149.00</TD></TR>" & chr(13) & chr(10)
strHTML = strHTML & "<TR><TD><A HREF=""http://www.aspuser.com"">AspUser</A></TD><TD>$120.00</TD></TR>" & chr(13) & chr(10)
strHTML = strHTML & "<TR><TD><A HREF=""http://www.aspencrypt.com"">AspEncrypt</A></TD><TD>$249.00</TD></TR>" & chr(13) & chr(10)
strHTML = strHTML & "<TR><TD><A HREF=""http://www.aspgrid.com"">AspGrid</A></TD><TD>$199.00</TD></TR>" & chr(13) & chr(10)
strHTML = strHTML & "<TR><TD><A HREF=""http://www.aspupload.com/aspjpeg.html"">AspJpeg</A></TD><TD>$150.00</TD></TR>" & chr(13) & chr(10)
strHTML = strHTML & "</TABLE>"
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = "admin@aaa.co.th"
Mail.FromName = "Member administrator"
Mail.AddAddress Request("To")
' message subject
Mail.Subject = "Membership information"
' message body
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"
Mail.Send ' send message
' -------------------------
'End Custom Code
End Function 'Close member_AfterInsert @2-54C34B28
|
 |
 |
smalloy
Posts: 107
|
| Posted: 06/07/2007, 2:34 PM |
|
My Persits works just fine, here is my code right out of a working page:
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.From = strSender
Mailer.FromName = UserFullName
Mailer.AddAddress strReceiver
Mailer.Host = "myhostcom"
Mailer.IsHTML = True
Mailer.Subject = "Certificate Request Requires Authorization"
Mailer.Body = "A new certificate was requested by " & UserFullName & ", the " & _
"certificate could not be generated automatically as the " & strReason & ". " & _
"The certificate number is: " & intCertNumber & "."
Mailer.Username = "sxxxxx"
Mailer.Password = "sxxxxxx"
Mailer.Send
set Mailer = Nothing
I hope I've helped,
Steve
_________________
Anything can be done, just give me time and money. |
|
|
|
sirichai
Posts: 22
|
| Posted: 06/08/2007, 3:14 AM |
|
Hi,
Thanks alot.
Sirichai
|
|
|
|
|
