invio mail

**iperuber** · 09-04-2005, 12:37

non riesco ad inviare mail con cdonts.

una pagina html con i vari tag ed una asp!

<BODY>
<%
Dim objEMail
Dim sMittente
'Dim sDestinatario
'Dim sDestinatarioConoscenza
'Dim sDestinatarioCNascosta
Dim sOggetto
Dim sTesto
Dim lPriorita

sMittente = Request.Form("MailFrom")
'sDestinatario = Request.Form("MailTo")
'sDestinatarioConoscenza = Request.Form("MailCc")
'sDestinatarioCNascosta = Request.Form("MailBcc")
lPriorita = Request.Form("MailPriorita")
sOggetto = Request.Form("MailOggetto")
sTesto = Request.Form("MailTesto")

Set objEMail = Server.CreateObject("CDONTS.NewMail")
objEMail.From = sMittente
objEMail.To = mio@indirizzo.it
'objEMail.Cc = sDestinatarioConoscenza
'objEMail.Bcc = sDestinatarioCNascosta
objEMail.Subject = sOggetto
objEMail.Body = sTesto
objEMail.importance = lPriorita
objEMail.BodyFormat = 1
objEMail.MailFormat = 1
objEMail.Send
Set objEMail = Nothing
%>

L'esempio è scaricato da internet, uffa

**Roby_72** · 09-04-2005, 13:37

Premesso che è importante capire se tida errore e quale, qui devi mettere un indirizzo configurato nel dominio:

codice:

objEMail.From = sMittente

Non puoi mettere quello di chi compila il form.

Roby

**iperuber** · 09-04-2005, 16:42

e come faccio per far comparire la mail del mittente che inserisce nel campo From del form html?
C'è una riga dove c'è scritto
sMittente = Request.Form("MailFrom")
e MailForm è il nome di un input nel form html.

Comunque, cosa che non sapevo, il destinatario della mail deve essere del dominio? Se ho il sito www.qqq.it posso mandare mail solo a mail@qqq.it? Il destinatario delle mail non può essere xxx@libero.it oppure xxx@hotmail.com o altro?

**Roby_72** · 09-04-2005, 16:53

Il mittente deve essere del dominio...
Se il tuo dominio si chiama www.miosito.it le mail che partono da quel dominio devono avere come mittente qualcosa tipo:

info@miosito.it

Roby

**iperuber** · 09-04-2005, 17:23

io invece voglio un form che faccia questo:
un utente si collega e mi contatta dal sito inserendo pertanto la sua mail, quindi il To della mail è il mio ed il From quello del navigatore per poter essere ricontattato.

**Roby_72** · 09-04-2005, 17:29

Il from e il to devono essere gli stessi ed entrambi tuoi.
La sua email la metti come contenuto del messaggio, nel body.

Roby

**iperuber** · 09-04-2005, 17:43

non riesco! I file originali che ho scaricato dalla rete son questi ... clicca qui

Anche se modifico solo from e to non vanno!
Osservazione: quando clicco su invio , sulla barra di stato esce il punto esclamativo giallo uguale a quello quando ci son errori sugli script ... poi si apre la pagina ... mail inviata correttamente!

VVoVe:

**Roby_72** · 09-04-2005, 18:53

ASP non determina mai errori js.
Evidentemente li hai da qualche altra parte.

Roby

**iperuber** · 09-04-2005, 19:22

Eliminato errore ma le mail non le manda comunque!
Chi è il buono di cuore che può aiutarmi ???

Pagina di input:

<form method="post" name="frmEnquiry" action="output.asp" >
<div align="center">

</div>
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0" >

<tr>
<td colspan="2" width="448"> <font size="2">*Indicates required fields
</font>
</tr>

<tr>
<td width="289">First Name*

<input maxlength="30" name="firstName">
</td>

<td width="157">Last Name*

<input maxlength="30" name="lastName">
</td>
</tr>

<tr>
<td width="291">Domain Name

<input maxlength="50" name="domain">
</td>
<td width="159">Account Number
<input maxlength="50" name="account_number">
</td>
</tr>

<tr>

</tr>

<tr>
<td width="289">Phone Number <font size="1">(INCLUDE AREA CODE)</font>

<input maxlength="30" name="tel">

</td>
<td width="157">E-mail Address*

<input maxlength="255" name="email">
</td>
</tr>

<td colspan="2" height="170" width="448">Enquiry*

<textarea name="enquiry" cols="50" rows="10"></textarea>
</td>

<tr align="center">
<td colspan="2" height="36" width="448">Alternatively you can ring tech
support on 555-555-955</td>
</tr>
<tr align="center">
<td colspan="2" height="36" width="448">
<input type="submit" name="Submit3" value="Submit Enquiry">
<input type="reset" name="Reset" value="Clear Form">
</td>
</tr>
</table>
</form>

pagina asp:

<%
Response.Buffer = True
Dim strBody
Dim objCDOMail
Dim strMyEmailAddress
Dim strCCEmailAddress
Dim strBCCEmailAddress
Dim strReturnEmailAddress

strMyEmailAddress = "mail@miosito.it"
strCCEmailAddress = "mail@miosito.it"
strBCCEmailAddress = ""

strReturnEmailAddress = Request.Form("email")
strBody = "<h2>E-mail sent from form on Web Site</h2>"
strBody = strBody & "
Name: " & Request.Form("firstName") & " " & Request.Form("lastName")

strBody = strBody & "

Telephone: " & Request.Form("tel")
strBody = strBody & "
E-mail: " & strReturnEmailAddress
strBody = strBody & "

Enquiry: -
" & Replace(Request.Form("enquiry"), vbCrLf, "
")

If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
strReturnEmailAddress = strMyEmailAddress
End If

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'objCDOMail.From = Request.Form("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">"
objCDOMail.From = strMyEmailAddress
objCDOMail.To = strReturnEmailAddress
objCDOMail.Cc = strCCEmailAddress
objCDOMail.Bcc = strBCCEmailAddress
objCDOMail.Subject = "Enquiry sent from enquiry form on website"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 2
objCDOMail.Send
Set objCDOMail = Nothing
%>

**Roby_72** · 09-04-2005, 19:27

Le stai provando sul server o in locale?
Prova a togliere queste due righr:

objCDOMail.Cc = strCCEmailAddress
objCDOMail.Bcc = strBCCEmailAddress

Roby

Discussione: invio mail

Strumenti discussione

Ricerca discussione

Visualizza

invio mail

Permessi di invio