Da CDOSYS a CDONTS

[ffilogamo]

If Request.querystring("mode") = "mailuser" then

If Request.Form("txtEmail") <> "" Then
userID = Clng(Session("userID"))
Set rsEmail = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT email FROM tblUsers Where ID = " & userID
rsEmail.Open strSQL, adoCon
strSubject = Replace(Request.Form("txtSubject"), "'", "''")
strBody = Replace(Request.Form("txtBody"), "'", "''")
strEmail = Replace(Request.Form("txtEmail"), "'", "''")
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = vEmailServer
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = rsEmail("email")
objCDOSYSMail.To = strEmail
objCDOSYSMail.Subject = strSubject
objCDOSYSMail.HTMLBody = strBody
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Set rsEmail = Nothing
Set adoCon = Nothing
Response.Write ("Il messaggio è stato correttamente inviato a: " & strEmail & "")
Else
strUserID = Clng(Request.querystring("ID"))
Set rsEmail = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT email FROM tblUsers Where ID = " & strUserID
rsEmail.Open strSQL, adoCon
Response.Write ("<form name='User' method='post' action='users.asp?mode=mailuser'>")
Response.Write ("
")
Response.Write ("<table><tr><td>Mittente:</td><td>")
Response.Write (rsEmail("email"))
Response.Write ("<input type='hidden' name='txtEmail' value='")
Response.Write (rsEmail("email"))
Response.Write ("'></td></tr>")
Response.Write ("<tr><td>Oggetto:</td><td><input type='text' name='txtSubject'></td></tr>")
Response.Write ("<tr><td>Messaggio:</td><td><textarea name='txtBody' cols='20' rows='9'></textarea></td></tr>")
Response.Write ("<tr><td><input type='image' src='imgPortale/enter.gif' name='Submit' value='Enter' alt='Invia'>")
Response.Write ("</td></tr></table></form>")
Set rsEmail = Nothing
Set adoCon = Nothing
End If
End If

--------------------


si può trasformare da cdosys a cdonts?
il mio server non supporta cdosys ma supporta cdonts

[santino83]

cerca cdonts sul forum,ci sono mille esempi di script.

[ffilogamo]

ho fatto cosi:

If Request.Form("txtEmail") <> "" Then
Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail")
userID = Clng(Session("userID"))
Set rsEmail = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT email FROM tblUsers Where ID = " & userID
rsEmail.Open strSQL, adoCon
strSubject = Replace(Request.Form("txtSubject"), "'", "''")
strBody = Replace(Request.Form("txtBody"), "'", "''")
strEmail = Replace(Request.Form("txtEmail"), "'", "''")
Set Mail=nothing
Response.Write ("Il messaggio è stato correttamente inviato a: " & strEmail & "")
Else
strUserID = Clng(Request.querystring("ID"))
Set rsEmail = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT email FROM tblUsers Where ID = " & strUserID
rsEmail.Open strSQL, adoCon
Response.Write ("<form name='User' method='post' action='users.asp?mode=mailuser'>")
Response.Write ("
")
Response.Write ("<table><tr><td>Mittente:</td><td>")
Response.Write (rsEmail("email"))
Response.Write ("<input type='hidden' name='txtEmail' value='")
Response.Write (rsEmail("email"))
Response.Write ("'></td></tr>")
Response.Write ("<tr><td>Oggetto:</td><td><input type='text' name='txtSubject'></td></tr>")
Response.Write ("<tr><td>Messaggio:</td><td><textarea name='txtBody' cols='20' rows='9'></textarea></td></tr>")
Response.Write ("<tr><td><input type='image' src='imgPortale/enter.gif' name='Submit' value='Enter' alt='Invia'>")
Response.Write ("</td></tr></table></form>")
Set rsEmail = Nothing
Set adoCon = Nothing
End If
End If



non da errore..anzi da msg inviato..ma non invia nulla..dove sbaglio^?

[ffilogamo]

up

[ffilogamo]

up

[santino83]

non c'è il MAIL.SEND!!!!! Non c'è il MAIL.BODY!!! Non c'è il mittente! il destinatario!!!!!

If Request.Form("txtEmail") <> "" Then
Dim Mail

Set Mail = Server.CreateObject("CDONTS.NewMail")
userID = Clng(Session("userID"))

Set rsEmail = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT email FROM tblUsers Where ID = " & userID
rsEmail.Open strSQL, adoCon

strSubject = Replace(Request.Form("txtSubject"), "'", "''")
strBody = Replace(Request.Form("txtBody"), "'", "''")
strEmail = Replace(Request.Form("txtEmail"), "'", "''")


Mail.From=rsEmail("email")
Mail.to=strEmail
Mail.Subject=strSubject 
Mail.BodyFormat=0
Mail.MailFormat=0
Mail.Body=strBody
Mail.Send


Set Mail=nothing
Response.Write ("Il messaggio è stato correttamente inviato a: " & strEmail & "")


Else
strUserID = Clng(Request.querystring("ID"))
Set rsEmail = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT email FROM tblUsers Where ID = " & strUserID
rsEmail.Open strSQL, adoCon
Response.Write ("<form name='User' method='post' action='users.asp?mode=mailuser'>")
Response.Write ("
")
Response.Write ("<table><tr><td>Mittente:  </td><td>")
Response.Write (rsEmail("email"))
Response.Write ("<input type='hidden' name='txtEmail' value='")
Response.Write (rsEmail("email"))
Response.Write ("'></td></tr>")
Response.Write ("<tr><td>Oggetto:  </td><td><input type='text' name='txtSubject'></td></tr>")
Response.Write ("<tr><td>Messaggio:  </td><td><textarea name='txtBody' cols='20' rows='9'></textarea></td></tr>")
Response.Write ("<tr><td><input type='image' src='imgPortale/enter.gif' name='Submit' value='Enter' alt='Invia'>")
Response.Write ("</td></tr></table></form>")
Set rsEmail = Nothing
Set adoCon = Nothing
End If
End If

[santino83]

Originariamente inviato da santino83
cerca cdonts sul forum,ci sono mille esempi di script.