CdoSys

[scura]

Salve a tutti

mi trovo alle prese con un grattacapo
ho un sfw per l'invio di newsletter asp jscript non fatto da me che so fare qualcosa solo asp vbscript e non mastico bene l'altro

per l'invio di mail lo script usa l'oggetto Persits.MailSender ma dovendo mettere lo script su altro spazio dove ho a disposizione altre librerie mi trovo a dover modificare l'invio della mail usando CDOSYS.

La cosa non mi sembrava troppo difficile, ma ho dei problemi soprattutto dovendo scrivere in jscript

posto un pò di codice forse qualcuno mi può aiutare

Questa lo script originale che usa Persits.MailSender

var objMail = Server.CreateObject("Persits.MailSender");
objMail.Host = "smtp.nomesito.it";
objMail.From = "account@nomesito.it";
objMail.FromName = "Nome From";
if (sAttach!="") objMail.AddAttachment(Server.MapPath(upload_path + "/" + sAttach));

objMail.Subject = sSubject;
objMail.Body = sBody;
objMail.isHTML = true


sToAddress = Trim(adoRs("Email").Value);
sToName = adoRs("Nome").Value+" "+adoRs("Cognome").Value;

objMail.AddAddress(sToAddress, sToName);

try {
objMail.Send();
}catch(e){
sMsg += "Destinatario: "+sToAddress+" - Errore: "+ e.description + "
";
}
objMail = null;

[scura]

questo è quello che sono riuscita a fare



var objCDOSYSMail = Server.CreateObject("CDO.Message")
var objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.nomesito.it"
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("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@nomesito.it"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pwd"
//objCDOSYSCon.Fields.Update

objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "info@nomesito.it"



if (sAttach!="") objCDOSYSMail.AddAttachment(Server.MapPath(upload_ path + "/" + sAttach));

objCDOSYSMail.Subject = sSubject;
objCDOSYSMail.HTMLBody = sBody;

sToAddress = Trim(adoRs("Email").Value);
sToName = adoRs("Nome").Value+" "+adoRs("Cognome").Value;
objCDOSYSMail.To = sToAddress;
try {
objCDOSYSMail.Send();
}catch(e){
sMsg += "Destinatario: "+sToAddress+" - Errore: "+ e.description + "
";
}
objCDOSYSMail = null;



ma ho diversi errori

1) alla riga corrispondente a
objCDOSYSCon.Fields.Update ho Metodo o proprietà non supportate dall'oggetto.

2) se commento la riga precedente che restituisce l'errore all'invio della mail ho The "SendUsing" configuration value is invalid.