: Hi,
:
: i am new here and i face a probelm about my code in email link. Iuse
: CDOSYS to send my email and at the same time i create a link in this
: coding so that the receiver of the email can click the link and
: directly send back to user or the sender and bellow are my code for
: the app.asp file which send the email:
:
: <%
: Dim cdoMessage
: Dim cdoConfig
: Dim strFrom
: Dim strTo
: Dim strHTML
:
: strFrom = Request.Form("txtMail")
: strTo = "nkc8355@hotmail.com"
: sch = "http://schemas.microsoft.com/cdo/configuration/"
: Set cdoConfig = CreateObject("CDO.Configuration")
:
: With cdoConfig.Fields
: .Item(sch & "sendusing") = 2 ' cdoSendUsingPort
: .Item(sch & "smtpserver") = "127.0.0.1"
: .update
: End With
:
: Set cdoMessage = CreateObject("CDO.Message")
:
:
: ' build HTML for message body
: strHTML = "<HTML>"
: strHTML = strHTML & "<HEAD>"
: strHTML = strHTML & "<BODY>"
: strHTML = strHTML & "<a href
: =""http://www.nscomp.com/Approve.asp""><input name=""Approve""
: type=""submit"" value=""Approve""> "
: strHTML = strHTML & "<input name=""Disapprove"" type=""submit""
: value=""Disapprove"">"
: strHTML = strHTML & "<a href
: =""http://www.cnscomp.com/Approve.asp?strFrom=nkc8355@yahoo.com||
: strTo=nkc8355@hotmail.com""> " & "Approve" & "</a><br>"
: strHTML = strHTML & "<a href
: =""http://www.cnscomp.com/Disapprove.asp ""> "& "Disapprove" &
: "</a><br>"
:
: strHTML = strHTML & "</BODY>"
: strHTML = strHTML & "</HTML>"
:
:
: With cdoMessage
: Set .Configuration = cdoConfig
: .From = strFrom
: .To = strTo
: .Subject = "Online Leave Application"
: .HTMLBody = strHTML
: .Send
: End With
:
: Set cdoMessage = Nothing
: Set cdoConfig = Nothing
: %>
:
: and as for the link which is the Approve.asp the coding is bellow:
:
: <%
: Dim cdoMessage
: Dim cdoConfig
: Dim strFrom
: Dim strTo
: Dim strHTML
:
:
:
: sch = "http://schemas.microsoft.com/cdo/configuration/"
: Set cdoConfig = CreateObject("CDO.Configuration")
:
: With cdoConfig.Fields
: .Item(sch & "sendusing") = 2 ' cdoSendUsingPort
: .Item(sch & "smtpserver") = "127.0.0.1"
: .update
: End With
:
: Set cdoMessage = CreateObject("CDO.Message")
:
:
: ' build HTML for message body
: strHTML = "<HTML>"
: strHTML = strHTML & "<HEAD>"
: strHTML = strHTML & "<BODY>"
: strHTML = strHTML & "From" & Request.Form("txtMail") & "<br>"
: strHTML = strHTML &
: "--------------------------------------------------------------------
: -----" & "<br>"
: strHTML = strHTML & "<b> This is the test HTML message
: body</b></br>"
: strHTML = strHTML & "<b> Your leave has been approve</b></br>"
: strHTML = strHTML &
: "--------------------------------------------------------------------
: -----" & "<br>"
: strHTML = strHTML & "Mail Sent on " & Now() & " <br>"
: strHTML = strHTML & "</BODY>"
: strHTML = strHTML & "</HTML>"
:
:
: With cdoMessage
: Set .Configuration = cdoConfig
: .From = strFrom
: .To = strTo
: .Subject = "Online Leave Application"
: .HTMLBody = strHTML
: .Send
: End With
:
: Set cdoMessage = Nothing
: Set cdoConfig = Nothing
: %>
:
:
: I don't know how to grab the sender and the receiver to the
: Approve.asp in dynamic which the email address from the sender will
: not be fix to one email address only. Your help will be appreciated.
:
: Thank you,
:
: You all can call me Tom.
:
hi tom, r u doing the online leave application?
can u reply me when u get this msg?
thanx.
