CDOSYS e sua configurazione

[Luis33]

Hola a todos!

Ho scaricato dal vademecum di aruba.it il codice CDOSYS per l'invio di email via server windows 2003; il codice funziona perfettamente se la pagina è sviluppata in ASP ma se devo adattare lo stesso codice ad una pagina creata in JS cominciano i guai... ho modificato così e non ha funzionato nemmeno per un minuto...

var percorso = server.mappath("zip.zip");

var invioA =  "seg@com.com";
var invioDa = "seg@com.com";

var iMsg = CreateObject("CDO.Message");
var iConf = CreateObject("CDO.Configuration");
var Flds = iConf.Fields;

Flds(cdoSendUsingMethod) = cdoSendUsingPort;
Flds(cdoSMTPServer) = "smtp.aruba.it";
Flds(cdoSMTPServerPort) = 25;
Flds(cdoSMTPAuthenticate) = cdoAnonymous;
Flds.Update;

var messaggio = messaggio & VBcrlf & "Ciao:

";

var iMsg.Configuration = iConf
var iMsg.To = "email"
var iMsg.From = invioA
var iMsg.Bcc = "seg@com.com"
var iMsg.Sender = invioDa
var iMsg.Subject = " prova "
var iMsg.HtmlBody = messaggio 
var iMsg.AddAttachment percorso
var iMsg.Send

dove sbaglio? Ciao.

[Roby_72]

Prendi spunto da qui per la sintassi JS anche se l'esempio si riferisce a CDONTS...

http://www.lukeonweb.net/takescript.asp?id=11

Roby

[Luis33]

Originariamente inviato da Roby_72
Prendi spunto da qui per la sintassi JS anche se l'esempio si riferisce a CDONTS...

http://www.lukeonweb.net/takescript.asp?id=11

Roby

Grazie Roby, ho provato ma sulla prima riga restituisce

Microsoft JScript runtime error '800a138f'
Object expected
/email.asp, line 76

var OggettoCDOSYS = CreateObject("CDO.Message");
var iConf = CreateObject("CDO.Configuration");
var Flds = iConf.Fields;

Flds(cdoSendUsingMethod) = cdoSendUsingPort;
Flds(cdoSMTPServer) = "smtp.aruba.it";
Flds(cdoSMTPServerPort) = 25;
Flds(cdoSMTPAuthenticate) = cdoAnonymous;
Flds.Update;

       OggettoCDOSYS.From = email;
       OggettoCDOSYS.To = destinatario;
       OggettoCDOSYS.Subject = oggetto;
       OggettoCDOSYS.BodyFormat = 1;
       OggettoCDOSYS.MailFormat = 1;
       OggettoCDOSYS.Body = "" + email + "";
       OggettoCDOSYS.Send();

:master:

[Roby_72]

In js devi fare new ADOX.... Controlla il file che ti ho postato..
Devi solo copiare.

roby

[Luis33]

Originariamente inviato da Roby_72
In js devi fare new ADOX.... Controlla il file che ti ho postato..
Devi solo copiare.

roby

Grazie Roby e scusa la distrazione, adeso vabene, posto il codice corretto per arricchire la ricerca:

var invioA =  "seg@com.com";
var invioDa =  "seg@com.com";
var messaggio = "Codice della Comunicazione:

";

var OggettoCDOSYS = new ActiveXObject("CDO.Message");
var iConf = new ActiveXObject("CDO.Configuration");

       OggettoCDOSYS.From = invioA;
       OggettoCDOSYS.To = email;
       OggettoCDOSYS.Cc = email;
       OggettoCDOSYS.Bcc = email;
       OggettoCDOSYS.Subject = messaggio;
       OggettoCDOSYS.HtmlBody = messaggio;
       OggettoCDOSYS.Send();

[Luis33]

ops...

ho un problema con l'allegato da spedire:

var path = server.mappath("zip.zip")
OggettoCDOSYS.AddAttachment path;

errore: Expected ';'

[Roby_72]

Ma scusa te lo dice...

var path = server.mappath("zip.zip");

Roby

[Luis33]

Originariamente inviato da Roby_72
Ma scusa te lo dice...

var path = server.mappath("zip.zip");

Roby

Grazie ma è lo stesso:

var path = server.mappath("zip.zip");
OggettoCDOSYS.AddAttachment path;

[Roby_72]

Ma è lo stesso errore? Dove?

Roby

[Luis33]

Originariamente inviato da Roby_72
Ma è lo stesso errore? Dove?

Roby

la riga rossa, Expected ';'

var invioA =  "seg@com.com";
var invioDa =  "seg@com.com";
var messaggio = "Codice della Comunicazione:

";
var path = server.mappath("zip.zip");
var OggettoCDOSYS = new ActiveXObject("CDO.Message");
var iConf = new ActiveXObject("CDO.Configuration");

       OggettoCDOSYS.From = invioA;
       OggettoCDOSYS.To = email;
       OggettoCDOSYS.Cc = email;
       OggettoCDOSYS.Bcc = email;
       OggettoCDOSYS.Subject = messaggio;
       OggettoCDOSYS.HtmlBody = messaggio;
       OggettoCDOSYS.AddAttachment path; 
       OggettoCDOSYS.Send();

:master: