I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2 3
cicciolo
cicciolo
il 6 luglio 2005 alle 16:22
170 messaggi dal 07 marzo 2004
Ciao a tutti, se uso questo codice per inviare delle mail con CDO:

Dim objMail
Dim objConfig
Dim Fdls  
  Set objMail = Server.createObject("CDO.Message") 
  Set iConf= Server.createObject("CDO.Configuration") 
  
  Set Flds = iConf.Fields
  Flds ("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
  
  ' Assegna le configurazioni 
  Set objMail.Configuration = iConf
  
  objMail.From = "prova@prova.com" 
  objMail.To = sUserMail
  objMail.Subject = "Conferma registrazione" 
  
  ' Valore di priorità 
  objMail.Fields("urn:schemas:httpmail:importance").Value = 2 
  objMail.Fields.update() 
  
  ' Corpo del messaggio 
  'objMail.TextBody = "Testo della mail" 
  objMail.HTMLBody = "Testo della mail" 
  
  objMail.Send() 
  Set objMail = Nothing


Mi esce questo errore:

CDO.Message.1 (0x80040220)
Il valore di configurazione "SendUsing" non è valido


Come posso sistemarlo?
Uso win 2000 pro e lavoro in locale.

Ciaoo
RispondiQuoting
ras78
ras78
il 13 luglio 2005 alle 10:35
3.091 messaggi dal 05 marzo 2001
www.agency.com
Guarda qua, magari ti può servire:
http://www.systemwebmail.com/faq/4.2.2.aspx
"This message was written using 100% recycled electrons"
RispondiQuoting
cicciolo
cicciolo
il 13 luglio 2005 alle 14:49
170 messaggi dal 07 marzo 2004


Grazie, do una occhiata !!
RispondiQuoting
albsteen
albsteen
il 13 luglio 2005 alle 15:18
141 messaggi dal 08 luglio 2004
Che io sappia con win 2000 bisogna usare CDONTS.
CDO è x il server 2003.
RispondiQuoting
cicciolo
cicciolo
il 13 luglio 2005 alle 15:31
170 messaggi dal 07 marzo 2004
Infatti con CDONTS mi funziona tutto bene ... solo che vorrei hostare il mio sito su un server WIN2003 e qui il CDONTS non funziona.

Su win 2000 funziona sia l'uno che l'altro.
RispondiQuoting
albsteen
albsteen
il 13 luglio 2005 alle 15:38
141 messaggi dal 08 luglio 2004
Io lo faccio così... prova

Set ObjMail = Server.CreateObject("CDO.Message")
Set iBp = ObjMail.BodyPart.AddBodyPart
Set Flds = iBp.Fields
Flds("urn:schemas:mailheader:content-type") = "text/plain; charset=""iso-8859-1"""
Flds("urn:schemas:mailheader:content-transfer-encoding") = "quoted-printable"
Flds.Update
Body = "Notifica registrazione" & vbCrLf
Body = Body & "altro testo" & vbCrLf
Body = Body & "altro testo ancora" & vbCrLf
ObjMail.From = "prova@prova.com"
ObjMail.To = sUserMail
ObjMail.Subject = "Conferma registrazione"
ObjMail.textbody = body
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
ObjMail.Send ' send message
Set ObjMail = nothing
body=""
RispondiQuoting
cicciolo
cicciolo
il 13 luglio 2005 alle 16:19
170 messaggi dal 07 marzo 2004
Ora funziona!!
Chissà come mai.

Mi spiegheresti un paio di cose del codice, ed in particolare queste righe cosa significano?

- Set iBp = ObjMail.BodyPart.AddBodyPart
- Flds("urn:schemas:mailheader:content-type") "text/plain; charset=""iso-8859-1"""

- Flds("urn:schemas:mailheader:content-transfer-encoding") "quoted-printable"

- strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
RispondiQuoting
albsteen
albsteen
il 13 luglio 2005 alle 16:29
141 messaggi dal 08 luglio 2004
Alloro in realtà proprio su queste righe non mi ci sono mai soffermato + di tanto ma penso che queste

- Set iBp = ObjMail.BodyPart.AddBodyPart
- Flds("urn:schemas:mailheader:content-type") "text/plain; charset=""iso-8859-1"""
- Flds("urn:schemas:mailheader:content-transfer-encoding") "quoted-printable"

servano al server per creare le varie parti della mail e che tipo di codifica utilizzare (se testo o html..credo)
Per l'altra riga
- strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
credo gestisca semplicemente gli errori...
Cmq ti invio lo script con tutti i parametri (utili ed inutili) che può assumere un mail creata con CDO (io quando la uso scrivo quello che ti ho dato e funzia comunque)...

Set Mail = Server.CreateObject("CDO.Message")
Set iBp = mail.BodyPart.AddBodyPart
Set Flds = iBp.Fields
Flds("urn:schemas:mailheader:content-type") = "text/plain; charset=""iso-8859-1"""
Flds("urn:schemas:mailheader:content-transfer-encoding") = "quoted-printable"
Flds.Update
Set Strm = iBp.GetDecodedContentStream
Strm.WriteText "This is some text"
Strm.Flush

body="asdfasfasaf"

Mail.From = mittente
Mail.To = "prova@prova.it"

' message subject
Mail.Subject = titolo
' message body
Mail.textbody = body

strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
Set Mail = nothing

body=""
RispondiQuoting
1 2 3

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.