1 messaggio dal 05 agosto 2015
Ciao a tutti,sono a chiedervi se a qualcuno è capitato lo stesso tipo di errore e se sapete la soluzione Mi spiego meglio.Il seguente codice per invio di mail

var iMsg = Server.CreateObject("CDO.Message")
var iBodyPart = iMsg.BodyPart;
iBodyPart.ContentTransferEncoding = "8bit";

var iConf = Server.CreateObject("CDO.Configuration")
iConf.Fields("cdoSMTPServerName") = "smtp.aruba.it"
iMsg.Configuration = iConf

var msg = corpo ;
iMsg.To = "miamail";
iMsg.From = "suamail";
iMsg.Subject = "SEGNALAZIONE PROBLEMA DI NAVIGAZIONE";
iMsg.TextBody = msg;
iMsg.send()

funzionava correttamente da anni,fino alla migrazione da windows server 2003 a windows server 2012.

Ho provato anche a inserire i metadati

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

ma non si è risolto.specifico che il codice è in asp jscript.
3 messaggi dal 14 luglio 2004
ciao ho il tuo stesso problema risolto per email uniche ma mi resta per la newsletter

cmq tu prova con queste impostazioni ovviamente inserendo le librerie di aruba su alla pag


DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort

Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA

.From = invioDa
.Sender = invioDa
.Subject = "Cancellazione cliente dalle newsletter (applicazione/programma) " & nomeDominio
.HTMLBody = "Questa la e-mail inserita nel modulo dall'utente con indirizzo IP " & indirizzoIp & " . " & vbCrLf & corpoMessaggio & ""
.Send
End With


le libr.

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

dovrebbe andare

il problema però resta nel caso di newsletter...cavolo...



se qualcuno riesce a risolvere x le newsletter
usando lo stesso schema integrato in un ciclo mi da errore....
cioè

DIM iMsg, Flds, iConf

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

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

Flds(cdoSendUsingMethod) = 2'cdoSendUsingPort

Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

Do While Not RS.eof
'controllo che sia una email
email = RS("Email")
if ConvalidaCampo(email) then
With iMsg
Set .Configuration = iConf

.From = RSBODY("From_Email")
.Sender = RSBODY("From_Email")

.To = RS("Email")
.Subject = Request("Subject")
.HTMLBody = cambiap(Request("Body"))
.Send
End With
end if 'fine controllo mail

RS.movenext
Loop

come può essere...
Modificato da crescy il 06 agosto 2015 11.41 -
Modificato da crescy il 06 agosto 2015 11.41 -

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.