salve a tutti sono nuovo sul web, ho trovato uno script ma non riesco a farlo funzionare.
mi potete aiutare a compilarlo immodo che funzioni grazie.
ecco il problema:
Ho un dominio registrato su aruba che non supporta l'oggettoCDONTS, la cartella con i permessi e la public ci sarebbe qualcuno gentilmente che me lo compilasse.grazie
in pratica vorrei fare immodo che quando mi inviano un commento tramite form mi arrivi sulla posta tramite file txt.
ecco l'esempio:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim strMessage
Dim strNome
Dim strCognome
Dim strCommento
Dim strFile, strFilePath
Dim objFso
Dim objFile
Dim objMail
' Dettagli per l'invio dell'email
Const strDestinatario = "email@indirizzo.it"
Const strMittente = "mittente@email.it"
Const strOggetto = "Email inviata tramite form"
' Imposta a true per rimuovere il file dopo l'invio
Const blnDelete = false
' Controlla l'invio della form
if Request.Querystring("send") = 1 AND Len(Request.Form("submit")) > 0 then
' Richiama i dati dalla form
strNome = Request.Form("nome")
strCognome = Request.Form("cognome")
strCommento = Request.Form("commento")
' Crea il nome
strFile = "emailatt-" &_
Year(Now()) & Month(Now()) & Day(Now()) & "-" & Clng(Timer()) & ".txt"
' Ricava il percorso del file sul server
strFilePath = Server.MapPath(strFile)
' Crea il file sul server
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.CreateTextFile(strFilePath, true)
objFile.WriteLine("Email inviata il " & Date() & " alle " & Time())
objFile.WriteLine("IP: " & Request.ServerVariables("REMOTE_ADDR"))
objFile.WriteLine("Client: " & Request.ServerVariables("HTTP_USER_AGENT"))
objFile.WriteLine("Nominativo: " & strNome & " " & strCognome)
objFile.WriteBlankLines(1)
objFile.Writeline(strCommento)
objFile.Close
Set objFile = Nothing
Set objFso = Nothing
' Crea l'oggetto CDONTS
Set objMail = Server.CreateObject("CDONTS.NewMail")
with objMail
' Mittente
.From = strMittente
' Destinatario
.To = strDestinatario
' Oggetto
.Subject = strOggetto
' Corpo dell'email
.Body = "Allegato contenuto email."
' Impostazioni
.BodyFormat = 1 ' testo
.MailFormat = 1 ' testo
.Importance = 1 ' normale
' Allegato
.AttachFile strFilePath
' Invia l'email
.Send
end with
Set objMail = Nothing
' Elimina il file dal server se richiesto
if blnDelete then
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
' Controlla la presenza del file ed elimina
if objFso.fileExists(strFilePath) then
objFso.deleteFile(strFilePath)
end if
Set objFso = Nothing
end if
strMessage = "
L'email è stata inviata correttamente.
"
strMessage = strMessage & "Il contenuto della form è stato allegato all'email.</p>"
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>freeasp.html.it - Inviare via email in allegato il contenuto di una form</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<%
if Len(strMessage) > 0 then
Response.Write(strMessage)
else
%>
<form name="frmEmail" method="post" action="?send=1">
Nome
<input type="text" name="nome" value="" />
Cognome
<input type="text" name="cognome" value="" />
Commento
<textarea name="commento"></textarea>
<input type="submit" name="submit" value="invia" />
</form>
<%
end if
%>
</body>
</html>
grazie ancora del vostro aiuto.
Marco
Rispondi quotando
