mailing list in asp

[max1975_na]

Salve a tutti
ho scaricato questo script dal sito di HTML.it per l'invio di una mailing list vi posto il link http://asp.html.it/articoli/leggi/76...ailing-list/5/ (sembra ok)

la mia domanda e questa:
nell'ultima pagina, quella dove effettua l'invio ci sono questi dati **

    '* creo gli oggetti cdosys sul server e li gestisco
    
DIM iMsg, Flds, iConf
'on error resume next
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'****** 
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.larianaweb.com" '**e necessario? devo inserire quello del cliente? 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSendUserName) = "postmaster@larianaweb.com" '**e necessario? devo inserire quello del cliente? 
Flds(cdoSendPassword) = "yywqos1d" '**e necessario? devo inserire quella del cliente? 
Flds.Update 
With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = invioDa
   .Sender = invioDa
   .Subject =  strsubject
   .textBody = "Testo del messaggio: "  & vbCrLf & strbody & ""
   .Send
End With



Set iMsg = nothing
Set iConf = nothing

    'conferma invio
          Response.Write "Messaggio inviato a " & objRec("EMail") & "!
" 
        
        'prossimo record
          objRec.MoveNext
        WEND

objRec.close
set objRec = nothing

objConn.close
set objConn = nothing

      Response.Write("<center><h3>Messaggi inviati!</h3><center>") 

in entrambi i casi, sostituendoli con i dati del cliente da l'errore al send

[Roby_72]

Probabile che la configurazione non serva.
Da qui

Set iConf

a

Flds.Update

prova a togliere tutto.

Roby

[max1975_na]

da errore alla 44
44= Set .Configuration = iConf

[Roby_72]

Si anche quella riga devi togliere.
Roby

[max1975_na]

nulla, ora l'errore si sposta alla 50, dove c'è il send e dice:
CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
/admin/source/admin/broadcast.asp, line 50

posto un po di codice in più, magari ci aiuta

<%
'Invio messaggi con CDOSYS


        strFrom = Request.Form("From")
          strSubject = Request.Form("subject")
          strBody = Request.Form("body")


        Set objRec = Server.CreateObject ("ADODB.Recordset")

    'apertura database
      objRec.Open "mailing_List", objConn, adOpenKeyset, _
          adLockReadOnly, adCmdTable
    
    
      Response.Write("<center><h3>Invio messaggi in corso</h3></center>")
      
      
    
    'scorro gli indirizzi
      While Not objRec.EOF
      
          invioA =  objRec("email")
        invioDa =  "info@mcmmultimedia.it"

      

    '* creo gli oggetti cdosys sul server e li gestisco
    
DIM iMsg, Flds, iConf
'on error resume next
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
'    Flds(cdoSMTPServer) = "smtp.larianaweb.com" '    
Flds(cdoSMTPServer) = "localhost" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoBasic
'    Flds(cdoSendUserName) = "postmaster@larianaweb.com"
'    Flds(cdoSendPassword) = "yywqos1d"
Flds.Update 

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = invioDa
   .Sender = invioDa
   .Subject =  strsubject
   .textBody = "Testo del messaggio: "  & vbCrLf & strbody & ""
   .Send
End With



Set iMsg = nothing
Set iConf = nothing

    'conferma invio
          Response.Write "Messaggio inviato a " & objRec("EMail") & "!
" 
        
        'prossimo record
          objRec.MoveNext
        WEND

objRec.close
set objRec = nothing

objConn.close
set objConn = nothing

      Response.Write("<center><h3>Messaggi inviati!</h3><center>")
%> 

[max1975_na]

Ho risolto, ho adattato lo script che uso per le email singole e va!

Se a qualcuno può essere utile vi posto il codice:

Dim Mail

sch = "http://schemas.microsoft.com/cdo/configuration/"

    
set Mail = server.CreateObject("CDO.Message") 
Set iConf = CreateObject("CDO.Configuration")

With iConf.Fields 
     .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
     .Item(sch & "smtpserver") = "localhost"
     .update 
End With 

With Mail
 Set.Configuration = iConf 
 .To = invioA
 .From = invioDa
 .Sender = invioDa
 .Subject =  strsubject
 .TEXTBody = "Testo del messaggio: "  & vbCrLf & strbody & ""
 .Fields("urn:schemas:httpmail:importance").Value = 2
 .Send 
end With 

set Mail=nothing 
set iConf=nothing 

By

Grazie cmq Roby