salve a tutti
premetto che ho fatto un pò di ricerca e continuo a farne
il problema come da titolo
devo inviare una mail con allegato
dove l'allegato risiede già sul server
x adesso ho provato a fare una cosa del genere ma nn vuole sapere di fungere
i dati me le invia ma l'allegato neanche l'ombra
Codice PHP:
<%
on error resume next
if err.number>0 then
response.write "out=Si è verificato un errore nell'invio dei dati tramite posta
elettronica.&"
else
response.write "out=Richiesta inoltrata correttamente.&"
end if
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo,fileAllegato,cartella, browserSistemaOperativo
invioA = "info@mail.it"
'* voce da modificare con un indirizzo email che funga da mittente:
invioDa = "info@mail.it"
fileAllegato = "prova.pdf"
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"
<font face=verdana size=2>[b]Nome :[/b] " & Request.Form("nome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "[b]Cognome :[/b] " & Request.Form("cognome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "[b]Telefono :[/b] " & Request.Form("tel") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"[b]E-mail : [/b]" & Request.Form("email") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"[b]Città : [/b]" & Request.Form("citta") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"
[b]Richiesta :[/b] " & Request.Form("testo") & "</font>
"
corpoMessaggio = corpoMessaggio & vbCrLf &"
[b]Allegato :[/b] " & Request.Form("CV") & "</font>
"
n =Request.Form("nome")
r =Request.Form("cognome")
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Richiesta Informazioni dal sito " & nomeDominio
.HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " &
indirizzoIp & " . " & vbCrLf & corpoMessaggio & ""
.AddAttachment (cartella & "\" & fileAllegato)
.Send
End With
%>
dove il file prova pdf sta nella stessa cartella della pag asp
dove sbaglio stavolta?
grazie x la Vs attenzione
Rispondi quotando
