da cdonts a cdo

[joshua72]

Ho acquistato alcuni spazi su aruba, ovviamente non supportano cdosys qualcuno può aiutarmi a tradurre questo codice affinche giri con cdosys?

<%
gsSYS_EmailLib = "CDONTS (Microsoft SMTP Service)"
gsSYS_EmailLibVer = "1.2"

Sub SendEmailMessage( psTo, psFrom, psSubject, psBody)
If Len(Trim("" & psTo)) > 0 Then
Dim objCDONTS
Err.Clear
On Error Resume Next
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
If Err.Number <> 0 Then
Response.Write "
Error:Could not create CDONTS object
"
Else
objCDONTS.To = "" & psTo
objCDONTS.From = "" & psFrom
objCDONTS.Subject = "" & psSubject
objCDONTS.Body = "" & psBody
objCDONTS.Send
End If
Set objCDONTS = Nothing
On Error Goto 0
End If
End Sub

Sub SendEmailMessageWithFile( psTo, psFrom, psSubject, psBody, psFile)
If Len(Trim("" & psTo)) > 0 Then
Dim objCDONTS
Err.Clear
On Error Resume Next
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
If Err.Number <> 0 Then
Response.Write("
Error:Could not create CDONTS object
")
Else
objCDONTS.To = "" & psTo
objCDONTS.From = "" & psFrom
objCDONTS.Subject = "" & psSubject
objCDONTS.Body = "" & psBody
objCDONTS.AttachFile "" & psFile
If Err.Number <> 0 Then
Response.Write("
Error:Could not attach file (" & psFile & ") to the CDONTS object
")
Else
End If
objCDONTS.Send
End If
Set objCDONTS = Nothing
On Error Goto 0
End If
End Sub
%>

[alexba64]

Esiste una sezione vademecum e guida ai servizi sul sito dell'hoster che hai nominato.

Link

[joshua72]

Lo so grazie ma non è sufficiente per fare un porting, o per lo meno non ci riesco mi da un bel pò di errori nonostante tutti dicano che sia semplicissimo!

[Mems]

Vediamo come hai modificato il codice?

[joshua72]

fare inviare una mail è semplice

<%

Set myMail = Server.CreateObject("CDO.Message")
myMail.Subject="invio password"
myMail.From="nomeutente@nomesito.it"
myMail.To="joshua72@libero.it" (questo lo vede vuoto --->) & psTO
myMail.HTMLBody = """"""
myMail.Send
%>





Far rispettare le variabili un pò meno, non mi interessa che esegua i controlli basta che invii la mail con in dati.

[joshua72]

RISOLTO DA SOLO POTETE CHIUDERE GRAZIE