cdosys

**nicolal** · 05-12-2005, 15:00

Ho cercato nel forum e ho trovato un modo da codice per capire quale componente è attivo sul server.

Dice:
CDOSYS [ Available ]
CDONTS [ Available ]
2 of 2 supported components are available.

è possibile?

seconda domanda:

sto provando ad utilizzare questo script per spedire una mail e fare un test appunto:

Dim Mittente, Oggetto
mittente = ("pippo@mail.it")
'Creiamo l'oggetto mail con CDOSYS
Dim reMail
Set reMail = CreateObject("CDO.Message")

'Definiamo i diversi attributi della nostra mail
reMail.From = mail
reMail.To = mittente
reMail.Subject = "quello che vuoi come oggetto "

'Se il testo è in Html useremo HTMLBody al posto di TextBody
reMail.HTMLBody = restrbody

'Stabiliamo il livello di importanza (1 o 2)
reMail.Fields("urn:schemas:httpmail:importance").V alue = 2
reMail.Fields.Update()

'Inviamo la mail!
reMail.Send()

'Eliminiamo l'oggetto...
Set reMail = Nothing
%>

ma non arriva nulla

c'è qualcosa di sbagliato?

**Roby_72** · 05-12-2005, 15:02

1) Si
2) Lo script CDOSYS che hai usato non è completo, manca la configurazione. Ad ogni modo la mail mittente deve essere una email presente nel server di posta che spedisce, non può essere una a caso.

Roby

**nicolal** · 05-12-2005, 15:05

ha

e c'è modo di sapere come si chiama questa email?
...è per caso una cosa tipo info@nomedominio.it ?

e cosa manca Roby? :master:

**nicolal** · 05-12-2005, 15:08

Ora mi da questo errore :
At least one of the From or Sender fields is required, and neither was found.

**Roby_72** · 05-12-2005, 15:09

Cerca nel forum... ce ne sono mille di esempi.

Roby

**nicolal** · 05-12-2005, 16:02

Posso usare anche il CDONTS ...ci sono le stesse regole per il CDONTS? ...ovvero quelle di avere l'obbligo di una mail "vera" ?

per l'invio di CDONTS uso :
<%
Dim MyCDONTSMail2, HTML
Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
HTML = HTML & "pippo"

MyCDONTSMail2.From= "info@dominio.it"
MyCDONTSMail2.To= maildest
MyCDONTSMail2.Subject= "registrazione"
MyCDONTSMail2.BodyFormat=0
MyCDONTSMail2.MailFormat=0
MyCDONTSMail2.Body=HTML
MyCDONTSMail2.Send
set MyCDONTSMail2=nothing
%>

dove maildest lo pesco da form

ma non parte ...manca qualcosa?

**nicolal** · 05-12-2005, 16:23

azz e ora quest oerrore cosa è?

Tipo di errore:
(0x8004020F)
La classe di eventi per questa sottoscrizione si trova in una partizione non valida

a questa riga....

' Invia l'email
objMail.Send()

**Mems** · 05-12-2005, 16:32

Succede anche a me. Se riuscissi ad ottenere l'errore in lingua inglese allora farei una ricerca su google, ma con il testo dell'errore in italiano, su google, trovo solo una discussione vecchia di questo forum senza soluzione.

**nicolal** · 05-12-2005, 17:19

Mems sai qualcosa i questo errore?

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

ora il codice che uso è:

<%
Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = CreateObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "www.nomedominio.com"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' Assegna all'oggetto le proprietà necessarie
objMail.From = "nome@nomedominio.com" ' Mittente
objMail.To = Request.Form("maildest") ' Destinatario
objMail.Subject = ("prova") ' Oggetto
objMail.HTMLBody = ("messaggio") ' Messaggio

' Invia l'email
objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(Request.Form("maildest"))
%>

**Mems** · 05-12-2005, 17:20

I valori nelle request sono vuoti.

Discussione: cdosys

Strumenti discussione

Ricerca discussione

Visualizza

cdosys

Permessi di invio