Från CDONTS till Jmail

StefanPMedlem sedan jan. 200284 inlägg

Frågan12 feb. 2002 18:29#1

Halloj.
Ja har ett nyhetsbrev som är gjort för CDONTS men det stöds in av den servern jag ligger på just nu. Dom använder sig av Jmail. Därför undrar jag ifall det är lätt att ändra koden ifrån CDONTS till Jmail?

Såhär ser min kod ut

Det är nog den sista (CDONTS) delen som man behöver ändra.

Dim strTo , strFrom , strEmail, strSubject , strBody , objCDONTS , objRS , objConn
'get the results from the create newsletter form
strFrom = Request.Form("from")
strSubject = Request.Form("subject")
strEmail = Request.Form("emailp")
strBody = Request.Form("message")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../newsletter.mdb")& ";Driver={Microsoft Access Driver (*.mdb)}"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open "email" , objConn ,adOpenKeyset ,adLockReadOnly,adCmdTable

Response.Write ("Nyhetbrevet skickas")
response.Write ("<br>")

While not objRS.EOF
 
	Set objCDONTS = Server.CreateObject("CDONTS.NewMail")

	objCDONTS.From = strFrom
	objCDONTS.To = objRS("email")
	objCDONTS.Subject = strSubject
             objCDONTS.Body = strBody
	objCDONTS.Send
	Set objCDONTS = Nothing

	Response.Write ("message sent to " & objRS("email") & "<br>")

	objRS.MoveNext
Wend

Response.Write ("Nyhetsbrevet är nu skickat ")
%>

[Redigerat av StefanP den 12 feb 2002]

StefanPMedlem sedan jan. 200284 inlägg

12 feb. 2002 19:23#2

Nu har jag löst det efter lite knåpande.
Såhär gjorde jag

<%

'our variables for the email and for our objects
Dim strTo , strFrom , strEmail, strSubject , strBody , objJmail , objRS , objConn

strName = Request.Form("name")
strSubject = Request.Form("subject")
strEmail = Request.Form("email")
strBody = Request.Form("message")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../newsletter.mdb")& ";Driver={Microsoft Access Driver (*.mdb)}"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open "email" , objConn ,adOpenKeyset ,adLockReadOnly

While not objRS.EOF

	set msg = Server.CreateOBject( "JMail.Message" ) 

	msg.From = strEmail
	msg.FromName = strName
    msg.AddRecipient objRS("email")
	msg.Subject = strSubject
	msg.Body = strBody
	if not msg.Send("mail.swebase.com" ) then
    Response.write "<pre>" & msg.log & "</pre>"
else
end if

	objRS.MoveNext
Wend
%>