Modificare il file: \iwgallery\includes\inc_mail_CdoSys.asp

<% ' indicare qui il nome del mail server Dim myServer myServer = "mail.ospacralaslromag.it" %> <% Function MailPassword(strTo, strName, strPassword) Dim PasswordMail Set PasswordMail = createobject("cdo.message") Set objConfig = createobject("cdo.configuration") Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = myServer Flds.update Set PasswordMail.Configuration = objConfig PasswordMail.From = strPageTitle & "<" & strAdminEmail & ">" PasswordMail.To = strTo PasswordMail.Subject = "La tua Password" PasswordMail.TextBody = "Grazie per aver usato " & strPageTitle & ". Ecco i dati relativi al tuo Account: " & vbnewline & vbnewline & "Login: " & strName & vbnewline & "Password: " & strPassword & vbnewline & vbnewline & "Saluti, " & vbnewline & strPageTitle & vbnewline & strURL PasswordMail.fields.update PasswordMail.Send Set PasswordMail = Nothing Set objConfig = nothing End Function %> <% Function MailRegister(strTo, strName, strPassword) Dim RegisterMail Set RegisterMail = createobject("cdo.message") Set objConfig = createobject("cdo.configuration") Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = myServer Flds.update Set RegisterMail.Configuration = objConfig RegisterMail.From = strPageTitle & "<" & strAdminEmail & ">" RegisterMail.To = strTo RegisterMail.Subject = "Il tuo nuovo Account su " & strPageTitle RegisterMail.TextBody = "Grazie per aver usato " & strPageTitle & ". Ecco i dati relativi al tuo Account: " & vbnewline & vbnewline & "Login: " & strName & vbnewline & "Password: " & strPassword & vbnewline & vbnewline & "Conserva questi dati: se il tuo account verrà approvato dall'Amministratore, riceverai una E-mail di conferma e potrai effettuare il Login " & vbnewline & vbnewline & "Saluti, " & vbnewline & strPageTitle & vbnewline & strURL RegisterMail.fields.update RegisterMail.Send Set RegisterMail = Nothing Set objConfig = nothing End Function %> <% Function MailRegistered(strTo, strName, strPassword) Dim RegisterMail Set RegisterMail = createobject("cdo.message") Set objConfig = createobject("cdo.configuration") Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = myServer Flds.update Set RegisterMail.Configuration = objConfig RegisterMail.From = strPageTitle & "<" & strAdminEmail & ">" RegisterMail.To = strTo RegisterMail.Subject = "Il tuo nuovo Account su " & strPageTitle RegisterMail.TextBody = "Grazie per aver usato " & strPageTitle & ". Ecco i dati relativi al tuo Account: " & vbnewline & vbnewline & "Login: " & strName & vbnewline & "Password: " & strPassword & vbnewline & vbnewline & "Saluti, " & vbnewline & strPageTitle & vbnewline & strURL RegisterMail.fields.update RegisterMail.Send Set RegisterMail = Nothing Set objConfig = nothing End Function %> <% Function MailApprove() Dim ApproveMail Set ApproveMail = createobject("cdo.message") Set objConfig = createobject("cdo.configuration") Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = myServer Flds.update Set ApproveMail.Configuration = objConfig ApproveMail.From = strPageTitle & "<" & strAdminEmail & ">" ApproveMail.To = strAdminEmail ApproveMail.Subject = "Richiesta di approvazione" ApproveMail.TextBody = "Un nuovo Utente si è registrato su " & strPageTitle & " e richiede l'approvazione." & vbnewline & vbnewline & "Saluti," & vbnewline & strPageTitle & vbnewline & strURL & "" ApproveMail.fields.update ApproveMail.Send Set ApproveMail = Nothing Set objConfig = nothing End Function %> <% Function MailApproved(strTo, strName, strPassword) Dim ApprovedMail Set ApprovedMail = createobject("cdo.message") Set objConfig = createobject("cdo.configuration") Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = myServer Flds.update Set ApprovedMail.Configuration = objConfig ApprovedMail.From = strPageTitle & "<" & strAdminEmail & ">" ApprovedMail.To = strTo ApprovedMail.Subject = "Il tuo Account su " & strPageTitle & " è stato approvato!" ApprovedMail.TextBody = "L'Amministratore di " & strPageTitle & " ha confermato la tua registrazione: adesso puoi effettuare il Login!" & vbnewline & vbnewline & "Ecco i dati relativi al tuo Account: " & vbnewline & vbnewline & "Login: " & strName & vbnewline & "Password: " & strPassword & vbnewline & vbnewline & "Saluti, " & vbnewline & strPageTitle & vbnewline & strURL ApprovedMail.fields.update ApprovedMail.Send Set ApprovedMail = Nothing Set objConfig = nothing End Function %> <% Function MailPicture(strSender, strFile) Dim PictureMail Set PictureMail = createobject("cdo.message") Set objConfig = createobject("cdo.configuration") Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = myServer Flds.update Set PictureMail.Configuration = objConfig PictureMail.From = strPageTitle & "<" & strAdminEmail & ">" PictureMail.To = strAdminEmail PictureMail.Subject = "Nuova immagine su " & strPageTitle PictureMail.TextBody = "L'Utente " & strSender & " ha uploadato l'immagine " & strFile & " per l'approvazione" & vbnewline & vbnewline & "Saluti," & vbnewline & strPageTitle & vbnewline & strURL PictureMail.fields.update PictureMail.Send Set PictureMail = Nothing Set objConfig = nothing End Function %> <% Function MailPictured(strTo, strName, strFile, strCat) Dim PicturedMail Set PicturedMail = createobject("cdo.message") Set objConfig = createobject("cdo.configuration") Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = myServer Flds.update Set PicturedMail.Configuration = objConfig PicturedMail.From = strPageTitle & "<" & strAdminEmail & ">" PicturedMail.To = strTo PicturedMail.Subject = "Il tuo File su " & strPageTitle & " è stato approvato!" PicturedMail.TextBody = "L'Amministratore di " & strPageTitle & " ha approvato il file " & strFile & " nella categoria " & strCat & vbnewline & vbnewline & "Saluti, " & vbnewline & strPageTitle & vbnewline & strURL PicturedMail.fields.update PicturedMail.Send Set PictureMail = Nothing Set objConfig = nothing End Function %>

[Íàçàä]