170 messaggi dal 07 marzo 2004
Ho un problema, non ricevo la mail nella mia casella di posta !?

Prima quando utilizzavo il codice con CDONTS mi finivano le mail nella Mailroot, ora dove finiscono?
141 messaggi dal 08 luglio 2004
Allora dovrebbero essere nella cartella Queue..
Secondo: non so xchè ma a me è capitato, se metti in
ObjMail.From = "Nome (spazio) DITTA"
a lui lo spazio non piace molto e non ti invia la mail... deve essere un indirizzo mail o x lo - una stringa senza spazi
170 messaggi dal 07 marzo 2004
La funzione completa dell'invio mail è:
SUB sendNewUserMail(sUserName, sUserPassword, sUserMail)
  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 
  Set ObjMail = nothing 
  body=""
END SUB

Mentre richiamo la sub con:
sendNewUserMail username, password, email

dove ovviamente email è il campo formato mail che viene passato in un form di registrazione mentre gli altri sono la user e la pass.

Ciao
141 messaggi dal 08 luglio 2004
Prova a mettere
UtenteMail=Request.Form("email")
e poi
ObjMail.To = UtenteMail
170 messaggi dal 07 marzo 2004
come prima.

Forse devo impostare qualcosa nel server smtp o mettere qualche settaggio per dire a win 2000 che uso il CDOSYS e non il CDONTS?

Ciao
141 messaggi dal 08 luglio 2004
Non credo... lui si dovrebbe prendere l'oggetto che richiedi!
Ma ti va in errore o solamente non invia la mail all'indirizzo che inserisci nel form?
141 messaggi dal 08 luglio 2004
E poi io lo leverei il SUB ed END SUB e metterei + semplicemente
username=Request.Form("username")
password=Request.Form("password")
email=Request.Form("email")
e poi

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 = email
ObjMail.Subject = "Conferma registrazione"
ObjMail.textbody = body
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
ObjMail.Send
Set ObjMail = nothing
body=""

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.