per essere più preciso quetso è il codice della pagina ASP:
codice:
<%Response.charset="utf-8"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="it" lang="it">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%
emailProva1="tizio@xxx.it"
emailProva2="caio@yyy.com"
'invia l'email al cliente che notifica l'apertura della contestazione
invioA = emailProva1&","&emailProva2
email = "Simone<xx@zzzzzz.it>"
'* creo gli oggetti cdosys sul server e li gestisco
Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = Server.CreateObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject ("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Simone"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxx"
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
' Assegna all'oggetto le proprietà necessarie
objMail.From = email ' Mittente
objMail.To = invioA ' Destinatario
objMail.Subject = "ID Contestazione: " & idCont ' Oggetto
objMail.HTMLBody = "Gentile Cliente,
la sua richiesta è stata presa in carico da un nostro responsabile.
Di seguito sono riportati i dati della contestazione:
Id Contestazione: " & idCont & "
Oggetto: " & oggetto & "
Articolo: " & codArt &"-"& desArt & "
Difetto: " & catDif & " - " & codDif & "
L'articolo in questione sarà esaminato e, a breve tempo, le verrà comunicato l'esito.
Cordiali Saluti
Kerasan Srl"
' Invia l'email
objMail.Send()
Set objMail = Nothing
%>
Rispondi quotando
