<%@ Language=VBScript %> <% response.write "test send mail" ok = fsendMail4 ("sales", "sales@clubelec.com", "lala","lala.joomla@gmail.com", "Andrana avec CDO.message", "manahoana ianareo", "", "", true) response.write "
send status=" & ok response.end 'function fSendMail4(p_FromName, p_FromAddress, p_toName, p_toAddress, p_subject, p_body, p_BCC,p_CC,p_in_HTML) 'response.write "fSendMail4" 'fSendMail4 = 10 'end function function fSendMail4(p_FromName, p_FromAddress, p_toName, p_toAddress, p_subject, p_body, p_BCC,p_CC,p_in_HTML) 'Idem que SendMail4 mais un CR d'erreur response.write "p_toName=" & p_toName & " subject=" & p_subject & " bcc=(" & p_BCC &") cc=(" & p_cc & ")" 'response.write "p_FromName=" & p_FromName & " p_FromAddress=" & p_FromAddress & " p_toName=(" & p_toName & ")" & " body=" & p_body '******* g_MailHost = "smtp.office365.com" g_MailPort = 587 g_MailUsername = "sales@clubelec.com" g_MailPassword = "Ales210318-10@23" '"35SA92LES//la" g_MailDevInt = "lala@clubelec.com" 'mail de développeur g_MailDev = "lala.clubelec@gmail.com" 'mail de développeur '******* 'response.end l_toNameMail4= p_toName dim l_Mail set l_Mail = Server.CreateObject("Persits.MailSender") with l_Mail .Host = g_MailHost ' Required 'response.write "port:" & g_MailPort .Port = g_MailPort ' Optional. Port is 25 by default .TLS = True if p_info = "" then p_info = false end if .Username = g_MailUsername 'rlm 05 avril 2013 .Password = g_MailPassword response.write "
userName=" & g_MailUsername & " pwd=" & g_MailPassword 'response.end .From = p_FromAddress ' Required .FromName = p_FromName ' Optional .AddReplyTo p_FromAddress 'rlm 16 mars 2004 if cint(g_flagDev) = 1 then l_xtraSubject ="** dev ** " else l_xtraSubject = "" end if .Subject = .EncodeHeader(l_xtraSubject & g_subjectBegin & p_subject, "UTF-8") '.Subject = l_xtraSubject & g_subjectBegin & p_subject .CharSet = "UTF-8" .ContentTransferEncoding = "Quoted-Printable" 'Si c'est dev mettre toAddress à MailDev 'et mettre l'adresse dans body l_body = p_body l_toAddressMail4 = p_toAddress if cint(g_flagDev) = 1 then l_xtraAdr = "" l_xtraAdr = "***** Vrai adresse est : " & p_toAddress & " *****" l_toAddressMail4 = g_MailDevInt '.AddBCC "lfougeray@clubelec.com" 'response.write "xtraAdr=" & l_xtraAdr & " body=" & p_body l_body = l_xtraAdr & vbnewline & p_body else .AddBCC p_FromAddress end if .IsHTML = p_in_HTML 'response.write "from=" & l_mail.from '-- On Error Resume Next .Send If Err <> 0 Then Response.Write "
An error occurred: " & Err.Description & "
toName=" & l_toNameMail4 & " [" & l_toAddressMail4 & "]" 'response.end End If end with set l_Mail = nothing fSendMail4 = Err end function %>