Allegato al form ???

**wolflash** · 10-11-2006, 22:25

Ciao ragazzi, ho cercato sul form, ma nessuna discussione che mi risolvesse il problema...
quindi vi racconto, ho un form e vorrei dare la possiblità di inviare un allegato, ma non ci riesco.. vi posto il file di risposta all'invio:

<%
Dim rs, mail, subject, message, allegato, data_source, sql_select, no

no = 0
subject = Request.Form("subject")
message = Request.Form("message")
allegato = Request.Form("allegato")

message = message & vbcrlf & "La tua e-mail è: "
sql_select = "select email from users"
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("mail.mdb")
If Len(message) Then

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql_select, data_source

While Not rs.EOF
Set mail = Server.CreateObject("cdo.message")

'Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxxxxxx.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") = 240

.Fields.update
End With

' Assegna le configurazioni
Set mail.Configuration = objConfig

mail.HTMLBody = message & rs("email")
mail.From = "Xxxxxxxxx.com <info@xxxxx.com>"
mail.To = rs("email")
mail.Subject = subject
mail.TextBody = message & rs("email")
mail.Send

if allegato<>"" then ' controllo se ci sono allegati
mail.AddAttachment allegato ' creo l'allegato
set allegati = mail.Attachments ' lo allego alla e-amil
end if
mail.HTMLBody = corpo ' specifico il corpo della email
If Not mail.Send then ' invio l'e-mail
Response.write ("Errore/i generati durante l'invio:
" & mail.log) 'visualizzo eventuali errori
Else
Set mail = Nothing

Set mail = Nothing
Response.Write "Email sent to : " & rs("email") & "
"
no = no + 1
rs.MoveNext
Wend
Response.Write "Emails sent to " & no & " users."
rs.Close
Set rs = Nothing

Else
Response.Redirect "admin.htm"
End If
%>

<head>
</head>

I form funziona i dati vengono spediti, ma non VI E' TRACCIA DI ALLEGATO, perchè????

Ciao

**Roby_72** · 10-11-2006, 23:00

http://www.creamweb.it/script/mostra.../?id_script=12

Roby

**wolflash** · 11-11-2006, 16:35

ok , grazie, ma io non devo uploadare, devo poter inviare una mail dal web con allegato e lo faccio con quello script che purtroppo funziona, non ricevo nessuna errore, ma anche nessun allegato, quindi un problema ci sarà....

tu che dici ???

Ciao

**Roby_72** · 11-11-2006, 16:50

Non puoi allegare un file dal web se il file da allegare non è sul web PRIMA di processare l'email.
Quindi devi fare prima l'upload del file e poi l'invio della email.

Roby

**wolflash** · 22-11-2006, 14:44

in base al tuo suggerimento ho usato il file Esempio_form.asp, qui sotto:

<%
If Request("Upload")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.SetPath "Files\"
oUpload.UploadAndSave
Set oUpload=Nothing
end if
%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
File : <INPUT TYPE="file" NAME="Campo1">

<INPUT TYPE="submit" NAME="Enter">
</FORM>

sulla stessa dir ho creato la cartella Files, ma non succede niente, nessun errore e nessun upload.
Il file incluso è upload.asp (non posto il codice perchè enorme, ma dovresti conoscerlo)

Che succede perchè non funziona sbaglio qualcosa ???

**gensole** · 23-11-2006, 01:21

controlla bene che la cartella in questione dove devi memorizzare i file abbia i giusti permessi di scrittura.....

**wolflash** · 27-11-2006, 14:46

ok adesso funziona, avviene l'upload, ma adesso attraverso un altro form devo inviarlo a più destinatari... come faccio ??? il mio form è sopra nel primo messaggio...

Come si fa ???

Ciao e grazie per i suggerimenti

**gensole** · 27-11-2006, 14:54

guarda un pò qui.....naturalmente lo devi adattare alle tue esigenze

http://asp.html.it/script/vedi/1025/...il-con-cdosys/

**wolflash** · 30-11-2006, 08:28

in realtà volevo sfruttare il form che ho già creato la cui pagina di risposta è sotto. Il form funziona perfettamente, ma come devo fare per l'allegato ancora non mi è chiaro... Ho visto il codice che tu mi hai consigliato, ma io non ho capito. A Me serve un form con Oggetto, Messaggio, Allegato (possibilità di sfogliare un file e allegarlo alla mail che invio) e infine tasto invia.

<%
Dim rs, mail, subject, message, allegato, data_source, sql_select, no

no = 0
subject = Request.Form("subject")
message = Request.Form("message")
allegato = Request.Form("allegato")

message = message & vbcrlf & "La tua e-mail è: "
sql_select = "select email from users"
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("mail.mdb")
If Len(message) Then

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql_select, data_source

While Not rs.EOF
Set mail = Server.CreateObject("cdo.message")

'Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxxxxxx.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") = 240

.Fields.update
End With

' Assegna le configurazioni
Set mail.Configuration = objConfig

mail.HTMLBody = message & rs("email")
mail.From = "xxxxxxxxxxx.com <info@xxxxxxxxx.com>"
mail.To = rs("email")
mail.Subject = subject
mail.TextBody = message & rs("email")
mail.Send

if allegato<>"" then ' controllo se ci sono allegati
mail.AddAttachment allegato ' creo l'allegato
set allegati = mail.Attachments ' lo allego alla e-amil
end if
mail.HTMLBody = corpo ' specifico il corpo della email
If Not mail.Send then ' invio l'e-mail
Response.write ("Errore/i generati durante l'invio:
" & mail.log) 'visualizzo eventuali errori
Else
Set mail = Nothing

Set mail = Nothing
Response.Write "Email sent to : " & rs("email") & "
"
no = no + 1
rs.MoveNext
Wend
Response.Write "Emails sent to " & no & " users."
rs.Close
Set rs = Nothing

Else
Response.Redirect "admin.htm"
End If
%>

<head>
</head>

**gensole** · 30-11-2006, 14:55

è uguale....vedi solo come l'esempio gestisce gli allegati....che è quello che ti serve

Discussione: Allegato al form ???

Strumenti discussione

Ricerca discussione

Visualizza

Allegato al form ???

io non devo uploadare

Non funziona...

ok adesso funziona, ma...

il form è già creato

Permessi di invio