AddAttachment (cartella & "\" & fileAllegato)

[Roby_72]

Un conto è l'upload di campi testo e file ed un altro il problema dell'invio dell'email.
Risolvi i problemi separatamente.

Quello script ti mostra come recuperare campi testo e file: leggi per bene l'articolo e noterai che per recuperare le informazioni del tuo form non ti occorre request.form.
Appurato e risolto questo, potrai inserire le informazioni recuperate all'interno della tua email per inviarle.

Roby

[ManuBase]

Grazie ho risolto,
........in verità ho trovato un amico che mi ha aiutato..
Ciao

[biocco]

Non si puo sapere comesi è erisolto il problema???

[ManuBase]

Con gentile concessione di Davide
'-------------------
' invio mail by Y2k Hosting Solutions http://www.y2khosting.biz
'-------------------

Crei una cartella (nella root del tuo sito) col nome 'public'
Crei una sottocartella di 'public' abilitata alla scrittura col nome 'allegati'
A questo punto in public dovrai avere tre pagine essenziali:
Il tuo form per es. modulo.asp
La pag. per l'upload upload.asp
La pag. per l'email mail.asp con CDOSYS
Se vuoi creare in più una pag. di Grazie

************************
**** modulo.asp *****
************************

<form action="upload.asp" method="post" enctype="multipart/form-data">
      <input type="file" NAME="file1" size="20">
      <input type="submit" name="Submit" value="Allega!">
    </form>
<tr>
    <td>
    <p align="left">File allegati: </p>
    </td>
    <td><% response.Write(request.QueryString("file"))%> </td>
  </tr>
<form action="mail.asp" method="post" name="modulo">
<td width="50%">
      <p align="left">Nome :<font color="#FF0000"> 
      (*)</font>
      <input type="text" name="nome" size="23" maxlength="20" class="testob"></p>
      </td>
      <td width="50%">
      </td></tr><tr><td width="50%"><p align="left">E-mail:<font color="#FF0000">(*)</font>
      
      <input type="text" name="email" size="32" maxlength="50" class="testob"></p>
      </td>
      <p align="left">
  <input type="reset" value="Cancella tutto" >
  <input name="allegato" type="hidden" id="allegato" value="<% response.Write(request.QueryString("file")) %>">
  </p>
  

</p>
    <input type="submit" value="invia" ></p>
</form>

***********************
**** upload.asp *******
***********************

intCount = intCount + 1
End If
Next

' initialize the object
Set mySmartUpload=nothing

' error managment
If Err.Number=0 then

direction="modulo.asp?file=" & filename & ""

Else
direction="about:<h1>errore!</h1>"
End if 

response.Redirect(direction)

********************
**** mail.asp ******
********************

<%

response.Write(strBody)

strBody=""

strBody= strBody & "Nome: " & request.Form("nome") & "</br>"
strBody= strBody & "E-mail: " & request.Form("email") & "</br>"


		Dim iMsg
		Dim iConf
		Dim Flds

		set iMsg = CreateObject("CDO.Message")
		set iConf = CreateObject("CDO.Configuration")
		Set Flds = iConf.Fields

		With Flds
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		.Update
		End With


		' invia l'e-mail
		With iMsg
		Set .Configuration = iConf
		.To = "tua@email"
		.From = "tua@email"
		.Subject = "richiesta preventivo dal sito"
		.HTMLBody = strBody
		.AddAttachment server.MapPath(".") & "\allegati\" & request.Form("allegato")
		.Send
		End With


		Set iMsg = Nothing
		Set iConf = Nothing
		Set Flds = Nothing 

		'---------- cancella l'attachment --------
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(server.MapPath(".") & "\allegati\" & request.Form("allegato"))
Set objFSO = Nothing
		
		
		'--------se vuoi aggiungere grazie e arrivederci-----
		response.Redirect("tuapaginagrazie.asp")

			%>

[FEFE_FEFE]

Ciao a tutti,
sto cercando anch'io disperatamente di inviare una mail con allegato (che effettua l'upload l'utente) tramite form.
Riesco benissimo ad effettuare l'invio della mail singolarmente, l'upload di un file ma non riesco ad effettuare le due cose contemporaneamente!!!!
Ho provato il codice di Manubase, ma purtroppo mi dà errore mentre effettuo l'upload.
Mi da errore al codice "End if" della pagina upload.asp

intCount = intCount + 1
End If
Next

Secondo me manca una parte di codice, non è del tutto corretto.
Potresti darmi un a mano gentilmente???
Grazie mille.
Ciao ciao

[FEFE_FEFE]

UP