CDONTS to CDO.Message

[xGioweb]

Buongiorno, dopo aver cambiato server tutti gli script del mio sito che inviavano email hanno smesso di funzionare... causa mancanza di CDONTS. Allora li ho traformati in CDO.

prima il codice era così:

Dim objNewMail,body
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

objNewMail.From = "NAME@NAME123.net"
objNewMail.To = "NAME@NAME123.net; [email]NAME@NAME456.net[/email]"

objNewMail.Value("Reply-To") = "NAME@NAME123.net"
objNewMail.Importance = 2

objNewMail.Subject = "MY SUBJECT"

body = "Text" & rs("Data")& " text" & vbCrLf
body = body & "text" & vbCrLf & vbCrLf
........
........
body = body & "text" & vbCrLf
body = body & "text" & vbCrLf
body = body & "text" & vbCrLf
body = body & "text" & vbCrLf

body = body & "text" & vbCrLf
body = body & "text: "& rs("UserName") & vbCrLf
body = body & "IP: "& rs("IPUtente") & vbCrLf
body = body & "il: "& rs("Data") & vbCrLf & vbCrLf
body = body & "Specifiche Utente: "& Request.ServerVariables("HTTP_USER_AGENT") & vbCrLf & vbCrLf
body = body & "text" & vbCrLf
objNewMail.body = body

objNewMail.Send
Set objNewMail = Nothing 

adesso ho trasformato così:

'Now lets put the variables and other information we need into the mailing script
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.myserver123.net"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email@myserver123.net"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD"
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section
ObjSendMail.To = "email@myserver123.net"
ObjSendMail.Subject = "TEXT Subject"
ObjSendMail.From = "email@myserver123.net"

' we are sending a html email.. simply switch the comments around to send a text email instead
'ObjSendMail.HTMLBody = "MyBody"
ObjSendMail.TextBody = "MyBody"

ObjSendMail.Send
Set ObjSendMail = Nothing 

Adesso funziona ma nell'body del messaggio arriva il testo MyBody
ma se inserisco le variabili che sono registrate nella pagina:

MyBody = ""
MyBody = MyBody & "Name: "& rs("name") & vbcrlf & vbcrlf
MyBody = Mybody & "Zip: "& rs("zip") & vbcrlf & vbcrlf 

non arriva più niente... come devoi formattare l'ultima parte dello script?
Mi potete aiutare?

[cavicchiandrea]

Togli le virgolette cosi:
ObjSendMail.TextBody = MyBody
oppure cosi:
ObjSendMail.TextBody = body

[xGioweb]

ho provato così ma non funge...

'ObjSendMail.HTMLBody = "MyBody"
ObjSendMail.TextBody = TextBody

TextBody = TextBody & "ID: "& rs("id") & vbcrlf & vbcrlf
TextBody = TextBody & "Name: "& rs("rag_sociale") & vbcrlf & vbcrlf
TextBody = TextBody & "CAP: "& rs("cap") & vbcrlf & vbcrlf

ObjSendMail.Send
Set ObjSendMail = Nothing 

[cavicchiandrea]

Se non ricordo male TextBody è una parola riservata HTMLBody, ma con MyBody non funzionava comunque? Se senza restituire errori o problemi di ricezione? :master:

[xGioweb]

ho appena provato così e non arriva niente.

ObjSendMail.TextBody = MyBody 

MyBody = MyBody & "ID: "& rs("id") & vbcrlf & vbcrlf
MyBody = MyBody & "Name: "& rs("rag_sociale") & vbcrlf & vbcrlf
MyBody = MyBody & "CAP: "& rs("cap") & vbcrlf & vbcrlf

ObjSendMail.Send
Set ObjSendMail = Nothing 

[cavicchiandrea]

Chiaramente la variabile MyBody va valorizzata prima della spedizione cosi:

'qui imposto la variabile
MyBody = MyBody & "ID: "& rs("id") & vbcrlf & vbcrlf
MyBody = MyBody & "Name: "& rs("rag_sociale") & vbcrlf & vbcrlf
MyBody = MyBody & "CAP: "& rs("cap") & vbcrlf & vbcrlf
'qui la associo all'oggetto
ObjSendMail.TextBody = MyBody
' qui la spedisco
ObjSendMail.Send
' qui distruggo l'oggetto
Set ObjSendMail = Nothing

Se prima imposti una variabile vuota nel oggetto ObjSendMail per forza non ricevi nulla