I want to use Jmail in an asp page but not sure how. I did the codes but when i run it give me Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid ProgID.
What should I do?
<%@ Language=VBScript %>
<% Response.Buffer=True %>
<!--#include file="\setting.asp" -->
<%
Dim Conn
OpenConnection Conn
Dim sqlQuery
Dim rsQuery
Dim url
Set rsQuery = Server.CreateObject("ADODB.Recordset")
'EmailSubject=Request.form("EmailSubject")
'EmailText=Request.Form("EmailText")
sqlQuery=""
sqlQuery="SELECT distinct email, cust_id from m_Customer Where Len(email)>0"
rsQuery.Open sqlQuery,Conn
rsQuery.MoveFirst
session("id")= rsQuery("cust_id")
While Not rsQuery.EOF
Dim JMail ' As Jmail Object
Set JMail = Server.CreateObject("JMail.SMTPMail")
On Error Resume Next
strsender="[email protected]"
strreceiver = rsQuery("email")
JMail.ServerAddress = "168.9.1.226"
JMail.ContentType = "text/html"
JMail.Subject = "Test"
JMail.body = "How are you"
JMail.Sender = strsender
JMail.AddRecipient strreceiver
JMail.Priority=1
JMail.Execute
JMail.ClearRecipients
If err<>0 then
Response.Write ("Error:" &err.description)
End if
wend
Response.Redirect "abc.asp"
CloseConnection Conn
%>
Server object, ASP 0177 (0x800401F3)
Invalid ProgID.
What should I do?
<%@ Language=VBScript %>
<% Response.Buffer=True %>
<!--#include file="\setting.asp" -->
<%
Dim Conn
OpenConnection Conn
Dim sqlQuery
Dim rsQuery
Dim url
Set rsQuery = Server.CreateObject("ADODB.Recordset")
'EmailSubject=Request.form("EmailSubject")
'EmailText=Request.Form("EmailText")
sqlQuery=""
sqlQuery="SELECT distinct email, cust_id from m_Customer Where Len(email)>0"
rsQuery.Open sqlQuery,Conn
rsQuery.MoveFirst
session("id")= rsQuery("cust_id")
While Not rsQuery.EOF
Dim JMail ' As Jmail Object
Set JMail = Server.CreateObject("JMail.SMTPMail")
On Error Resume Next
strsender="[email protected]"
strreceiver = rsQuery("email")
JMail.ServerAddress = "168.9.1.226"
JMail.ContentType = "text/html"
JMail.Subject = "Test"
JMail.body = "How are you"
JMail.Sender = strsender
JMail.AddRecipient strreceiver
JMail.Priority=1
JMail.Execute
JMail.ClearRecipients
If err<>0 then
Response.Write ("Error:" &err.description)
End if
wend
Response.Redirect "abc.asp"
CloseConnection Conn
%>