<%
'################################
Public function CAL_SENDMAIL
dim mailGroups
dim sH : sH = ""
sH = sH & "" &VbCrLf
sH = sH & "" & VbCrLf
CAL_SENDMAIL = funcs.BOXCreator(application(session("Lang") & "_wcal92e"), sH, strDEFTHEME, "", "100%")
End function
'################################
Public function CAL_SENDMAILEXE
dim Mailers, strMessage, recep, MailTO, strSubject, strAlert
MailTO = ""
if NOT isempty(request.form("emailto")) then
for each recep in request.form("emailto")
if NOT recep="blank" then
if recep="subscr" then
set Mailers = my_conn.execute("SELECT Email FROM wcal_subscribers")
else
set Mailers = my_conn.execute("SELECT wcal_Users.Email, useringroup.IDGroup FROM wcal_Users LEFT JOIN useringroup ON wcal_Users.IDUSer=useringroup.IDUser WHERE useringroup.IDGroup=" & recep)
end if
do until Mailers.EOF
if NOT instr(1, mailTO, Mailers("Email"))>0 then
mailTO = mailTO & Mailers("Email") & ", "
end if
Mailers.MoveNext
loop
end if
next
end if
mailTO = left(mailTO,len(mailTO)-2)
strMessage = request.form("message")
strSubject = request.form("subject")
set Mailers = nothing
if IsObject(MAILOBJ) then
MAILOBJ.Recepient = mailTO
MAILOBJ.Subject = strSubject
MAILOBJ.Message = strMessage
MAILOBJ.Send()
end if
CAL_SENDMAILEXE = funcs.showMessage(application(session("LANG") & "_wcal117") & ";;To: " & mailTO & ";;Subject: " & strSubject & ";;Message: " & strMessage)
CAL_SENDMAILEXE = CAL_SENDMAILEXE & ""
End function
%>