问题描述
大家好，
我有一个使用经典ASP开发的程序，但我是新手.这是我需要的.我们有请求者或用户他们想预订课程表以使用我们的培训室.在他们感觉到表格或他们的请求后，电子邮件将发送给我们给管理员，他接收了他们的请求，然后在那个日期检查房间是否可用，如果房间可用，他可以批准.但是问题是在他批准批准或规范电子邮件的状态后，应该回发给请求者但是这部分在我的程序中不起作用.我的意思是在他批准发送给请求者的批准电子邮件之后.如果您可以添加代码，这是我的功能，我对此功能感到满意，但是它会向管理员发送有关新请求即将到来的电子邮件.
功能mailtoadmins(requestor_name，requestor_email，req_start_date，req_end_date，class_name)
设置ASPMailer = CreateObject("CDO.Message")
如果为isempty(conf)，则
set conf = CreateObject("cdo.configuration")
与conf.fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.va.gov"
.更新
以
结尾如果
结束 ASPMailer.From = requestor_email
ASPMailer.To ="[email protected]"
ASPMailer.Bcc ="[email protected]"
ASPMailer.configuration = conf
ASPMailer.Subject ="[培训室预订请求]:"& class_name
ASPMailer.TextBody = vbCRLF& requestor_name& 已经提交了预订培训室的请求." & _
vbCRLF& vbCR& _
vbCRLF& vbCR& 建议的日期:"和req_start_date&到& req_end_date& _
vbCRLF& 建议的时间:"和req_times& _
vbCRLF& 建议的课程:"& class_name& _
bCR& 通过http://gjgjjsgskdgkdsjgdj/training/room/admin.asp批准"
ASPMailer.Send
设置ASPMailer = NOTHING
结束功能
％><％'''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''' ％>
Hello guys,
I have a program develop in classic ASP and I am new for it.here is what i need.we have requester or user they want to do book schedule to use our training room.after they feel the form or their request the email will send to the admins and he recive their request and he check in that date the room is available or not if the room is available he can approve it.but the problem is after he aprove the status of the approval or norification email should back to send requester but this part not working in my programm.I mean after he approve the approval email send to requestor. Here is my function if you can add your code I apreciate it this function working curently but it send email to admin about new request coming.
FUNCTION mailtoadmins (requestor_name, requestor_email, req_start_date, req_end_date, class_name)
Set ASPMailer=CreateObject("CDO.Message")
if isempty(conf) then
set conf = CreateObject("cdo.configuration")
with conf.fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.va.gov"
.Update
end with
end if
ASPMailer.From = requestor_email
ASPMailer.To = "[email protected]"
ASPMailer.Bcc = "[email protected]"
ASPMailer.configuration = conf
ASPMailer.Subject = "[Training Room Booking Request]: " & class_name
ASPMailer.TextBody = vbCRLF & requestor_name & " has submitted a request for training room booking." & _
vbCRLF & vbCR & _
vbCRLF & vbCR & "Proposed Dates: " & req_start_date & " to " & req_end_date & _
vbCRLF & "Proposed Times: " & req_times & _
vbCRLF & "Proposed Class: " & class_name & _
bCR& "Approvevia http://gjgjjsgskdgkdsjgdj/training/room/admin.asp"
ASPMailer.Send
SET ASPMailer = NOTHING
END FUNCTION
%><%''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%>
推荐答案
这篇关于发送通知电子邮件给请求者的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！