Ciao ragazzi.... ho un problema con il server di Aruba!
Sto facendo un sito web ad un amico, e ho problemi perchè Aruba per l'invio mail non supporta il comando CDONTS, ma solo CDOSYS. Solo che, non essendo estremamente addentro ai linguaggi di programmazione ASP, non so come "convertire" queste poche righe per l'invio della mail dal sito, da CDONTS a comando CDOSYS. Qualche anima buona può aiutarmi? Grazie mille e ciao!!!![]()
' Crea l'oggetto CDONTS
Set objMail = Server.CreateObject("CDONTS.NewMail")
with objMail
' Mittente
.From = strMittente
' Destinatario
.To = strDestinatario
' Oggetto
.Subject = strOggetto
' Corpo dell'email
.Body = "Ordine dal sito Wargames & Co."
' Impostazioni
.BodyFormat = 1 ' testo
.MailFormat = 1 ' testo
.Importance = 1 ' normale
' Allegato
.AttachFile strFilePath
' Invia l'email
.Send
end with
Set objMail = Nothing
' Elimina il file dal server se richiesto
if blnDelete then
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
' Controlla la presenza del file ed elimina
if objFso.fileExists(strFilePath) then
objFso.deleteFile(strFilePath)
end if
Set objFso = Nothing
end if
strMessage = "
L'email è stata inviata correttamente.
"
strMessage = strMessage & "Il contenuto della form è stato allegato all'email.</p>"
end if
%>

Rispondi quotando