da CDONT a CDOSYS

[gioska]

CIAO,
se con CDONTS è cosi'

<%@LANGUAGE = JScript%>
<%
// Recupero i dati dal modulo
var username = new String(Request.Form("username"));
var password = new String(Request.Form("password"));
var email = new String(Request.Form("email"));
var oggetto = new String(Request.Form("oggetto"));
var messaggio = new String(Request.Form("messaggio"));

// Verifico username e password
if ((username != "lukeonweb") || (password != "prova")) {
Response.Write("Autorizzazione negata");
Response.End;
}

// Creo la classe CDONTS.NewMail per inviare l'email
var INVIA = new ActiveXObject("CDONTS.NewMail");

// Riempio i campi dell'email
INVIA.To = "";
INVIA.Bcc = email;
INVIA.From = "tua_email@server.it"; // Inserisci il tuo indirizzo email
INVIA.Subject = oggetto;
INVIA.Body = messaggio;

INVIA.Send();

Response.Write("Newsletter inviata con successo.");
%>

come devo fare utilizzando CDOSYS?
Grazie per l'aiuto.

[weppos]

Prova a fare una ricerca nel forum.
Sono stati postati innumerevoli esempi di adattamento, sia in vb che in js.

[gguida]

dei cambiare:

INVIA.Body = messaggio;

in

INVIA.TextBody = messaggio;

INVIA = new ActiveXObject("CDONTS.NewMail");

in

INVIA = new ActiveXObject("CDO.Message");

in generale ecco le differenze tra i due:

Vecchio CDONTS
<%
Dim MiaMail
Set MiaMail = Server.CreateObject("CDONTS.NewMail")
MiaMail.From = "tuoindirizzo@aaa.it"
MiaMail.To = "aaa@aaa.it"
'MiaMail.Cc = "altroindirizzo@aaa.it;ancora@aaa.it"
'MiaMail.Bcc = "altroindirizzo@aaa.it;ancora@aaa.it"
MiaMail.Subject = "invio tramite CDONTS NewMail"
MiaMail.BodyFormat = 1
MiaMail.MailFormat = 0
MiaMail.Importance = 2
MiaMail.Body = "invia email tramite CDONTS NewMail" &_
"oggetto dismesso da Microsoft"
'MiaMail.Attachfile "d:\inetpub\webs\miodominio\file.gif", 1
MiaMail.Send
Set MiaMail = Nothing
%>

CDOSYS
<%
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "tuoindirizzo@aruba.it"
MiaMail.To = "4test@aaaa.it"
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aaa.it"
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aaa.it"
MiaMail.Subject = "Invio tramite cdosys"
MiaMail.TextBody = "Invia tramite CDOSYS " &_
"paragone con cdonts "
'MiaMail.AddAttachment "d:\inetpub\webs\tuodominiocom\file.zip"
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
%>

[lukeonweb]

Confermo!

http://www.lukeonweb.net/leggi.asp?id=257