Buongiorno a tutti, sto provando a realizzare una newsletter con la possibilità di allegare un file, ma non so dove inserire il collegamento al file e come far si che arrivi come allegato.

Questo è il codice che uso:

codice:




<%

		Set RecSet = Server.CreateObject("ADODB.Recordset")
		Visa = "SELECT Email FROM Indirizzi"
		RecSet.Open Visa, ConnectNewsletter, adOpenStatic, adLockOptimistic %>
		<%	Do Until RecSet.EOF %>

<%

DIM corpoMessaggio, oggetto, invioA, invioDa

		
invioA 					=  RecSet("Email")
		
invioDa 					=  "info@prova.it"

oggetto					=  request.form("Oggetto")

corpoMessaggio				=  request.form("Newsletter")

	
DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "mail.server.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = invioDa
   .Sender = invioDa
   .Subject = oggetto
   .TextBody = "Newsletter" & vbCrLf & vbCrLf & corpoMessaggio & ""
   .Send

End With
   
%>

<% 		RecSet.MoveNext
		Loop
		RecSet.Close
		ConnectNewsletter.Close
%>
:master: