Da CDONTS a CDO

il 13 aprile 2006 alle 11:59

11 messaggi dal 17 giugno 2003

Ho un ulteriore problema.
Il server dove è pubblicato il sito supporta solo il metodo CDO per l'invio della posta.

Il mio codice è scritto invece per CDONTS

<%

'invio ordine per email con CDONTS

dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "assss2002@libero" 'Indirizzo mittente ordini
MailServer = "mail.tin.it" 'Indirizzo Mail Server ad esempio

'strMailServer = MailServer
strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder 'QUI INSERISCE L INDIRIZZO DEL CLIENTE E IL TUO CHE DEVI METTERE NELLE VARIABILI
strSender = MailOrder 'QUI INSERISCE IL TUO COME MITTENTE
strSubject = "Ordine n." & IDOrdine
strMessage = "TUO NOME "
strMessage = strMessage & "" & Session("SchedaClienteLibreria") & " "
strMessage = strMessage & "Ordine n." & IDOrdine & "."
strMessage = strMessage & Session("SchedaClienteAgente") & " "

for i = 1 to QuantiArticoliInScontrino
strMessage = strMessage & "Articolo numero: " & i & " "
strMessage = strMessage & "Codice : " & ScontrinoCodiceArticolo(i) & " "
strMessage = strMessage & "Descrizione : " & ScontrinoDenominazioneArticolo(i) & " "
strMessage = strMessage & "Prezzo Unitario: " & FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1) & " "
strMessage = strMessage & "Quantità : " & ScontrinoQuantitativoArticolo(i) & " "
strMessage = strMessage & "Totale Articolo: " & FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1) & " "
next

strMessage = strMessage & " "
strMessage = strMessage & "SubTotale : " & Importo & " "
strMessage = strMessage & "Spese di Spedizione: " & SpeseDiSpedizione & " "
strMessage = strMessage & "Totale Ordine : " & (SpeseDiSpedizione+Importo) & " "
strMessage = strMessage & "Pagamento : " & SchedaClienteMetodoPagamento & ""

Set objMail = Server.CreateObject("CDONTS.newmail")
'objMail.ServerAddress = strMailServer
objMail.From = strSender
objMail.To = strRecipients
objMail.Subject = strSubject
objMail.Bodyformat=0
objMail.Mailformat=0
objMail.Body = strMessage
objMail.Importance = 1

on error resume next '## Ignore Errors

objMail.send
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>La tua richiesta non è stata inviata a seguito di questo errore: " & Err.Description & "</li>"
End if

%>

Come posso convertirlo ? Grazie. Antonella

Rispondi Quoting

guidocaser

il 13 aprile 2006 alle 12:08

91 messaggi dal 04 gennaio 2002

Ciao

 Invio email da una pagina con componente CDO
 
Con Windows XP e Windows 2003 Microsoft ha smesso di utilizzare il componente CDONTS per l'invio delle email da una pagina asp. Tale componente e' stato sostituito dal nuovo componente CDO.
Ecco alcuni esempi di utilizzo.

1)Mail di testo:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send

2)Mail in formato HTML

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = """testo formattato in html"""
myMail.Send

3)Messaggio HTML che spedisce una pagina web da un sito:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.miosito.com/mailbody.asp"
myMail.Send

4) Mail con un allegato

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.AddAttachment server.mappath("mio_attachment.zip")
myMail.Send

5) Spedire una mail usando un server remoto

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send

Quindi non devi fare altro che cambiare la parte relativa alla crazione dell'oggetto

Set objMail = Server.CreateObject("CDONTS.newmail")
'objMail.ServerAddress = strMailServer
objMail.From = strSender
objMail.To = strRecipients
objMail.Subject = strSubject
objMail.Bodyformat=0
objMail.Mailformat=0
objMail.Body = strMessage
objMail.Importance = 1

con

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = """testo formattato in html"""

Rispondi Quoting

elbahari

il 13 aprile 2006 alle 12:14

11 messaggi dal 17 giugno 2003

Troppo gentile, ti ringrazio tantissimo.

Antonella

Rispondi Quoting

guidocaser

il 13 aprile 2006 alle 12:17

91 messaggi dal 04 gennaio 2002

Dimenticavo per inviare il messaggio con priorità alta:

<!-- METADATA NAME="Microsoft CDO for Windows 2000 Library" TYPE="TypeLib" UUID="{CD000000-8B95-11D1-82DB-00C04FB1625D}" --><%

Set objMail = Server.CreateObject("CDO.Message")

' invio dell'e-mail
objMail.To = "daniele@aspitalia.com.ext"

objMail.Fields.Item(cdoImportance).Value = cdoHigh
objMail.Fields.Update

objMail.From = "daniele@aspitalia.com.ext"
objMail.Subject = "Prova messaggio"
objMail.TextBody = "Priorità alta"
objMail.Send()

set objMail = Nothing

%>

Rispondi Quoting

elbahari

il 13 aprile 2006 alle 12:54

11 messaggi dal 17 giugno 2003

Ora la procedura si conclude ma non spedisce la posta :

<%

'invio ordine per email

dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "assss2002@libero.it" 'Indirizzo mittente ordini
MailServer = "mail.tin.it" 'Indirizzo Mail Server

strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder
strSender = MailOrder
strSubject = "Ordine n." & IDOrdine
strMessage = "TUO NOME "
strMessage = strMessage & "" & Session("SchedaClienteLibreria") & " "
strMessage = strMessage & "Ordine n." & IDOrdine & "."
strMessage = strMessage & Session("SchedaClienteAgente") & " "

for i = 1 to QuantiArticoliInScontrino
strMessage = strMessage & "Articolo numero: " & i & " "
strMessage = strMessage & "Codice : " & ScontrinoCodiceArticolo(i) & " "
strMessage = strMessage & "Descrizione : " & ScontrinoDenominazioneArticolo(i) & " "
strMessage = strMessage & "Prezzo Unitario: " & FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1) & " "
strMessage = strMessage & "Quantità : " & ScontrinoQuantitativoArticolo(i) & " "
strMessage = strMessage & "Totale Articolo: " & FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1) & " "
next

strMessage = strMessage & " "
strMessage = strMessage & "SubTotale : " & Importo & " "
strMessage = strMessage & "Spese di Spedizione: " & SpeseDiSpedizione & " "
strMessage = strMessage & "Totale Ordine : " & (SpeseDiSpedizione+Importo) & " "
strMessage = strMessage & "Pagamento : " & SchedaClienteMetodoPagamento & ""

Set myMail = CreateObject("CDO.Message")
myMail.Subject = strsubject
myMail.From = strSender
myMail.To = strRecipents
myMail.HTMLBody = strMessage

on error resume next '## Ignore Errors

myMail.send

If Err <> 0 Then
Err_Msg = Err_Msg & "<li>La tua richiesta non è stata inviata a seguito di questo errore: " & Err.Description & "</li>"
End if

%>

Rispondi Quoting

guidocaser

il 13 aprile 2006 alle 12:59

91 messaggi dal 04 gennaio 2002

Ciao.
Il server mail che utilizzi non è istallato sulla tua macchina!!!!!!!
Mi pare di vedere mail.tin.it.... allora devi usare:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.tin.it"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send

[

Rispondi Quoting

elbahari

il 13 aprile 2006 alle 13:19

11 messaggi dal 17 giugno 2003

ADODB.Fields error '800a0ea5'

Impossibile aggiornare i campi. Per ulteriori informazioni, esaminare la proprietà Status dei singoli campi.

/carrello_asp/ordine.asp, line 556

la linea 556 corrisponde a : myCDOConf.Fields.Update

<%

'invio ordine per email

dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "assss2002@libero.it" 'Indirizzo mittente ordini
MailServer = "mail.tin.it" 'Indirizzo Mail Server

strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder
strSender = MailOrder
strSubject = "Ordine n." & IDOrdine
strMessage = "TUO NOME "
strMessage = strMessage & "" & Session("SchedaClienteLibreria") & " "
strMessage = strMessage & "Ordine n." & IDOrdine & "."
strMessage = strMessage & Session("SchedaClienteAgente") & " "

for i = 1 to QuantiArticoliInScontrino
strMessage = strMessage & "Articolo numero: " & i & " "
strMessage = strMessage & "Codice : " & ScontrinoCodiceArticolo(i) & " "
strMessage = strMessage & "Descrizione : " & ScontrinoDenominazioneArticolo(i) & " "
strMessage = strMessage & "Prezzo Unitario: " & FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1) & " "
strMessage = strMessage & "Quantità : " & ScontrinoQuantitativoArticolo(i) & " "
strMessage = strMessage & "Totale Articolo: " & FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1) & " "
next

strMessage = strMessage & " "
strMessage = strMessage & "SubTotale : " & Importo & " "
strMessage = strMessage & "Spese di Spedizione: " & SpeseDiSpedizione & " "
strMessage = strMessage & "Totale Ordine : " & (SpeseDiSpedizione+Importo) & " "
strMessage = strMessage & "Pagamento : " & SchedaClienteMetodoPagamento & ""

'Create the e-mail server object
Set myCDOMail = CreateObject("CDO.Message")
Set myCDOConf = CreateObject("CDO.Configuration")

Set Fields = myCDOConf.Fields

with Fields
myCDOConf.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 8001
myCDOConf.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tin.it"
myCDOConf.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 3600
myCDOConf.Fields.Update
end with

myCDOMail.Subject = strsubject
myCDOMail.From = strSender
myCDOMail.To = strRecipents
myCDOMail.HTMLBody = strMessage

on error resume next '## Ignore Errors

myCDOMail.send

'Close the server object
Set myCDOMail = Nothing
Set myCDOConf = Nothing

Set Fields = Nothing

If Err <> 0 Then
Err_Msg = Err_Msg & "<li>La tua richiesta non è stata inviata a seguito di questo errore: " & Err.Description & "</li>"
End if

%>

Rispondi Quoting

elbahari

il 13 aprile 2006 alle 13:41

11 messaggi dal 17 giugno 2003

Ora sembra ok, ma un ultimo problema c'è:

CDO.Message.1 error '8004020c'

È necessario specificare almeno un destinatario, ma non ne è stato trovato alcuno.

/carrello_asp/ordine.asp, line 564

la linea 564 e : myCDOMail.send

'invio ordine per email

dim strMailServer, strRecipients, strSender, strSubject, strMessage
MailOrder = "assss2002@libero.it" 'Indirizzo mittente ordini
MailServer = "mail.tin.it" 'Indirizzo Mail Server

strRecipients = Session("SchedaClienteEmail") & ";" & MailOrder
strSender = MailOrder
strSubject = "Ordine n." & IDOrdine
strMessage = "TUO NOME "
strMessage = strMessage & "" & Session("SchedaClienteLibreria") & " "
strMessage = strMessage & "Ordine n." & IDOrdine & "."
strMessage = strMessage & Session("SchedaClienteAgente") & " "

for i = 1 to QuantiArticoliInScontrino
strMessage = strMessage & "Articolo numero: " & i & " "
strMessage = strMessage & "Codice : " & ScontrinoCodiceArticolo(i) & " "
strMessage = strMessage & "Descrizione : " & ScontrinoDenominazioneArticolo(i) & " "
strMessage = strMessage & "Prezzo Unitario: " & FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1) & " "
strMessage = strMessage & "Quantità : " & ScontrinoQuantitativoArticolo(i) & " "
strMessage = strMessage & "Totale Articolo: " & FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1) & " "
next

strMessage = strMessage & " "
strMessage = strMessage & "SubTotale : " & Importo & " "
strMessage = strMessage & "Spese di Spedizione: " & SpeseDiSpedizione & " "
strMessage = strMessage & "Totale Ordine : " & (SpeseDiSpedizione+Importo) & " "
strMessage = strMessage & "Pagamento : " & SchedaClienteMetodoPagamento & ""

' per CDONTS
'Set objMail = Server.CreateObject("CDONTS.newmail")
'objMail.ServerAddress = strMailServer
'objMail.From = strSender
'objMail.To = strRecipients
'objMail.Subject = strSubject
'objMail.Bodyformat=0
'objMail.Mailformat=0
'objMail.Body = strMessage
'objMail.Importance = 1

' per CDO

'Create the e-mail server object
Set myCDOMail = CreateObject("CDO.Message")
Set myCDOConf = CreateObject("CDO.Configuration")

Set Fields = myCDOConf.Fields

with Fields
myCDOConf.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myCDOConf.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tin.it"
myCDOConf.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 25
myCDOConf.Fields.Update
end with

with myCDOMail
myCDOMail.Subject = strsubject
myCDOMail.From = strSender
myCDOMail.To = strRecipents
myCDOMail.HTMLBody = strMessage
myCDOMail.send
end with

on error resume next '## Ignore Errors

'Close the server object
Set myCDOMail = Nothing
Set myCDOConf = Nothing

Set Fields = Nothing

If Err <> 0 Then
Err_Msg = Err_Msg & "<li>La tua richiesta non è stata inviata a seguito di questo errore: " & Err.Description & "</li>"
End if

%>

Rispondi Quoting

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.

Community

Corsi e consulenza

In primo piano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7

Le novità di Entity Framework (Core) 7

I più letti di oggi

In evidenza

Misc

Utilizziamo i cookie per analisi, contenuti personalizzati e pubblicità.

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7

Le novità di Entity Framework (Core) 7