invio email

[tigre2209]

Ho provato questo script per inviare email in automatico:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="mail di testo"
myMail.From="indirizzo@libero.it"
myMail.To="indi@libero.it"
myMail.TextBody="Questo è il testo del messaggio."
myMail.Send
%>

ma non mi da errore
ma se controllo la email non è arrivato nulla.
CI sono script buoni dove le email arrivano???

 

[Vale2]

Ho provato questo script per inviare email in automatico:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="mail di testo"
myMail.From="indirizzo@libero.it"
myMail.To="indi@libero.it"
myMail.TextBody="Questo è il testo del messaggio."
myMail.Send
%>

ma non mi da errore
ma se controllo la email non è arrivato nulla.
CI sono script buoni dove le email arrivano???

Mancano i parametri di configurazione.

 <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
 <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
 
 <%
 Dim mycdosys, f, config
 Set mycdosys = CreateObject("CDO.Message")
 Set config = CreateObject("CDO.Configuration")
 Set f = config.Fields
 f(cdoSendUsingMethod) = cdoSendUsingPort
 f(cdoSMTPServer) = "smtp.tuo_host.it" [B]'indirizzo smtp del server[/B]
 f(cdoSMTPServerPort) = 25 [B]' porta[/B] 
 f(cdoSMTPAuthenticate) = cdoAnonymous [B]'0 = nessun controllo di autenticazione[/B]
 f.Update
 Set mycdosys.Configuration = config
 mycdosys.From = "mittente@mail.it" [B]'indirizzo mittente[/B]
 mycdosys.To = "destinatario@mail.it" [B]'indirizzo destinatario[/B]
 mycdosys.Sender = "pippo@iol.it" [B]'indirizzo per mancata ricezione[/B]
 mycdosys.Subject = "Soggetto" [B]'soggetto[/B]
 mycdosys.TextBody = "Corpo del messaggio" [B]'messaggio in formato testo[/B]
 mycdosys.Send
 %>

Valeria.

 

[tigre2209]

Mancano i parametri di configurazione.

 <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
 <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
 
 <%
 Dim mycdosys, f, config
 Set mycdosys = CreateObject("CDO.Message")
 Set config = CreateObject("CDO.Configuration")
 Set f = config.Fields
 f(cdoSendUsingMethod) = cdoSendUsingPort
 f(cdoSMTPServer) = "smtp.tuo_host.it" [B]'indirizzo smtp del server[/B]
 f(cdoSMTPServerPort) = 25 [B]' porta[/B] 
 f(cdoSMTPAuthenticate) = cdoAnonymous [B]'0 = nessun controllo di autenticazione[/B]
 f.Update
 Set mycdosys.Configuration = config
 mycdosys.From = "mittente@mail.it" [B]'indirizzo mittente[/B]
 mycdosys.To = "destinatario@mail.it" [B]'indirizzo destinatario[/B]
 mycdosys.Sender = "pippo@iol.it" [B]'indirizzo per mancata ricezione[/B]
 mycdosys.Subject = "Soggetto" [B]'soggetto[/B]
 mycdosys.TextBody = "Corpo del messaggio" [B]'messaggio in formato testo[/B]
 mycdosys.Send
 %>

Valeria.

QUINDI se scrivo questo codic dovrebbe funzionare?''
domani provo e ti fao sapere.
Ho letto anche qualcosa su javamail ma non ci ho capito.

 

[tigre2209]

Mancano i parametri di configurazione.

 <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
 <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
 
 <%
 Dim mycdosys, f, config
 Set mycdosys = CreateObject("CDO.Message")
 Set config = CreateObject("CDO.Configuration")
 Set f = config.Fields
 f(cdoSendUsingMethod) = cdoSendUsingPort
 f(cdoSMTPServer) = "smtp.tuo_host.it" [B]'indirizzo smtp del server[/B]
 f(cdoSMTPServerPort) = 25 [B]' porta[/B] 
 f(cdoSMTPAuthenticate) = cdoAnonymous [B]'0 = nessun controllo di autenticazione[/B]
 f.Update
 Set mycdosys.Configuration = config
 mycdosys.From = "mittente@mail.it" [B]'indirizzo mittente[/B]
 mycdosys.To = "destinatario@mail.it" [B]'indirizzo destinatario[/B]
 mycdosys.Sender = "pippo@iol.it" [B]'indirizzo per mancata ricezione[/B]
 mycdosys.Subject = "Soggetto" [B]'soggetto[/B]
 mycdosys.TextBody = "Corpo del messaggio" [B]'messaggio in formato testo[/B]
 mycdosys.Send
 %>

Valeria.

ho provato come hai detto ma mi da questo errore;
CDO.Message.1 error '80040213'

Il trasporto non è riuscito a connettersi al server.

/email/invio_ok.asp, line 21
riga21 = mycdosys.Send

 

[Vale2]

ho provato come hai detto ma mi da questo errore;
CDO.Message.1 error '80040213'

Il trasporto non è riuscito a connettersi al server.

/email/invio_ok.asp, line 21
riga21 = mycdosys.Send

Ciao,

controlla questa riga f(cdoSMTPServer) = "smtp.tuo_host.it" 'indirizzo smtp del server

devi inserire l'indirizzo smtp del server che ti ospita, es: se Aruba smtp.aruba.it

Valeria.