invio email

**lanvoel** · 16-11-2018, 10:21

Dopo aver scritto un destinatario e un mittente esistenti, questo codice non invia la email. Desidererei un aiuto. Grazie

lanvoel

codice:

<!DOCTYPE html>
<html>
<body>
<%
Dim Destinatario, Mittente, Oggetto, Testo
Destinatario = destinatario@dominio.ext
Mittente = mittente@dominio.ext
Oggetto = "invio email"
Testo = "invio di email di prova"
 
Dim eMail
Set eMail = CreateObject("CDO.Message")
 
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto
 
eMail.TextBody = Testo
 
eMail.Fields("urn:schemas:httpmail:importance").Value = 2
eMail.Fields.Update()

eMail.Send()
 
Set eMail = Nothing
Response.Write "Email inviata con successo!"
%>
</body>
</html>

**optime** · 16-11-2018, 11:03

ricevi qualche errore?

**Roby140569** · 16-11-2018, 11:26

Metti le virgolette qui:

codice:

Destinatario = "destinatario@dominio.ext"
Mittente = "mittente@dominio.ext"

**cavicchiandrea** · 16-11-2018, 11:58

includi la libreria CDO ?

**Vincent.Zeno** · 16-11-2018, 12:07

si deve indicare anche il server smpt di spedizione e la porta del server. negli esempi di base queste istruzioni non sono sempre indicate in maniera esplicita, se l'invio avviene dalla stessa macchina del dominio non sempre queste specifiche sono richieste. ma è sempre meglio usare uno script completo.

**Roby140569** · 16-11-2018, 12:29

Su alcuni siti su Aruba mi funzionano gli script senza specificare le info sul server smtp, ecc.

In altri casi, ipotizzando l'invio dalla stessa macchina, uso questo script.

codice:

Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/SendUsing") = 2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverPort") = 25

Fields.Update

Dim mail    
Set mail = CreateObject("CDO.Message")
Set mail.Configuration = Config


Set myMail = CreateObject("CDO.Message")
mail.Subject = "Sending email with CDO"
mail.From = "mymail@mydomain.com"
mail.To = "someone@somedomain.com"
mail.HTMLBody = "<h1>This is a message.</h1>"
mail.Send
set mail = Nothing
set Fields = Nothing
set Config = Nothing

**lanvoel** · 16-11-2018, 20:10

Grazie per le risposte.
Ho provato il codice di Roby, ma dà ancora errore nel codice.
lanvoel

**Vincent.Zeno** · 16-11-2018, 20:13

Originariamente inviata da lanvoel

dà ancora errore nel codice.

quindi? ci fai sapere cosa hai scritto e quale errore ti genera o dobbiamo indovinare?

**optime** · 16-11-2018, 23:59

che brutta abitudine non indicare l'errore

**lanvoel** · 17-11-2018, 10:32

Dopo aver lanciato il programma con WebMatrix3 si ha:
IMPOSSIBILE VISUALIZZARE LA PAGINA:

Cause più probabili:

Il sito Web è in manutenzione.
Il sito Web contiene un errore di programmazione.

lanvoel

Discussione: invio email

Strumenti discussione

Ricerca discussione

Visualizza

invio email

Permessi di invio