Ciao a tutti,
piccolo problemino con l'invio dell'allegato tramite CDONTS...
Ho creato il form per l'invio di una mailing list, la pagina richiama se stessa e visualizza il form se non pè stato inserito ancora nulla, al contrario, salva l'allegato sul server, e poi con l'istruzione AttachFile dovrebbe spedirla insieme alla mail.
Il fatto è ke in virgilio, quando visualizzo la mail, non c'è l'icona della graffetta ed il file viene inserito nel body della mail, visualizzato in cofice ascii.. cosa c'è di sbagliato???? Penso sia un problema di apici, dato ke passo tutto tramite variabili..
Dim TitMail, TxtMail, ObjRs, ObjConn, SpMail, SpNome
TitMail = Titolo
TxtMail = Testo
TxtMail = TxtMail & VBcrlf & VBcrlf & VBcrlf & VBcrlf & "Per non ricevere più le News da ..."
TxtMail = TxtMail & VBcrlf & "inviate una mail all'indirizzo: con indicato REMOVE nell'oggetto della mail."
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("/database/db.mdb"))
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * From UTN")
'Do while NOT objRs.EOF
'SpMail = objRs("Mail")
'SpNome = UCASE(objRs("Nome"))
Set AllMail = CreateObject("CDONTS.NewMail")
AllMail.From = "MAIL-MAILINGLIST.it"
AllMail.To = Spmail
AllMail.Subject = TitMail
AllMail.BodyFormat = 1
AllMail.MailFormat = 1
AllMail.Importance = 1
AllMail.Body = "Caro/a " & SpNome & VBcrlf & VBcrlf & TxtMail
AllMail.AttachFile Server.MapPath("/Mailing/"&Img&" ")
AllMail.Send
Set AllMail = Nothing
'objRs.Movenext
'Loop
'objRs.Close
'Set objRs = Nothing
'objConn.Close
'Set objConn = Nothing
Response.write "inviata"
'Response.Redirect "InsMailingOk.asp"
%>
<% else %>
'visualizza form vuoto
Rispondi quotando
