ceuley
asked on
.asp return email?
how do i creat a request for Request for Return Authorization in .asp coding????
please help!
please help!
ASKER
here is my current code:
its actually a email going to the customer with the values they given. it's an confirmation.
thanks,
-------------------------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ------
<%
custno= request.Form("CUSTNO")
faxno= request.Form("FAXNO")
name= request.Form("NAME")
thedate= request.Form("THEDATE")
email= request.Form("EMAIL")
choice= request.Form("choice")
I1= request.Form("I1")
Q1= request.Form("Q1")
M1= request.Form("M1")
D1= request.Form("D1")
I2= request.Form("I2")
Q2= request.Form("Q2")
M2= request.Form("M2")
D2= request.Form("D2")
I3= request.Form("I3")
Q3= request.Form("Q3")
M3= request.Form("M3")
D3= request.Form("D3")
I4= request.Form("I4")
Q4= request.Form("Q4")
M4= request.Form("M4")
D4= request.Form("D4")
I5= request.Form("I5")
Q5= request.Form("Q5")
M5= request.Form("M5")
D5= request.Form("D5")
bodyCopy = "Request for Return Authorization" & vbCrLf
bodyCopy = bodyCopy & vbCrLf
bodyCopy = bodyCopy & "This is a Request for Return on " & request("THEDATE") & " for the following items:" & vbCrLf & vbCrLf
bodyCopy = bodyCopy & "Invoice number: " & request("I1") & vbCrLf
bodyCopy = bodyCopy & "Number to return: " & request("Q1") & vbCrLf
bodyCopy = bodyCopy & "Model number: " & request("M1") &
bodyCopy = bodyCopy & "Description: " & request("D1") & vbCrLf & vbCrLf & vbCrLf
if I2 <> "" then
bodyCopy = bodyCopy & "Invoice number: " & request("I2") & vbCrLf
bodyCopy = bodyCopy & "Number to return: " & request("Q2") & vbCrLf
bodyCopy = bodyCopy & "Model number: " & request("M2") &
bodyCopy = bodyCopy & "Description: " & request("D2") & vbCrLf & vbCrLf & vbCrLf
end if
if I3 <> "" then
bodyCopy = bodyCopy & "Invoice number: " & request("I3") & vbCrLf
bodyCopy = bodyCopy & "Number to return: " & request("Q3") & vbCrLf
bodyCopy = bodyCopy & "Model number: " & request("M3") &
bodyCopy = bodyCopy & "Description: " & request("D3") & vbCrLf & vbCrLf & vbCrLf
end if
if I4 <> "" then
bodyCopy = bodyCopy & "Invoice number: " & request("I4") & vbCrLf
bodyCopy = bodyCopy & "Number to return: " & request("Q4") & vbCrLf
bodyCopy = bodyCopy & "Model number: " & request("M4") & vbCrLf
bodyCopy = bodyCopy & "Description: " & request("D4") & vbCrLf & vbCrLf & vbCrLf
end if
if I5 <> "" then
bodyCopy = bodyCopy & "Invoice number: " & request("I5") & vbCrLf
bodyCopy = bodyCopy & "Number to return: " & request("Q5") & vbCrLf
bodyCopy = bodyCopy & "Model number: " & request("M5") &
bodyCopy = bodyCopy & "Description: " & request("D5") & vbCrLf & vbCrLf & vbCrLf
end if
bodyCopy = bodyCopy & "Name: " & request("NAME") & vbCrLf & vbCrLf
bodyCopy = bodyCopy & "Customer Number: "& request("CUSTNO") & vbCrLf & vbCrLf
bodyCopy = bodyCopy & "Email: " & request("EMAIL") & vbCrLf
Dim objMail
Set objMail = Server.CreateObject("CDONT S.NewMail" )
objMail.From = "charles_euley@yahoo.com"
objMail.Subject = "Request for Return Authorization"
objMail.To = EMAIL
objMail.cc = "charles_euley@yahoo.com"
objMail.Body = bodyCopy
objMail.Send
set objMail = nothing
%>
its actually a email going to the customer with the values they given. it's an confirmation.
thanks,
--------------------------
<%
custno= request.Form("CUSTNO")
faxno= request.Form("FAXNO")
name= request.Form("NAME")
thedate= request.Form("THEDATE")
email= request.Form("EMAIL")
choice= request.Form("choice")
I1= request.Form("I1")
Q1= request.Form("Q1")
M1= request.Form("M1")
D1= request.Form("D1")
I2= request.Form("I2")
Q2= request.Form("Q2")
M2= request.Form("M2")
D2= request.Form("D2")
I3= request.Form("I3")
Q3= request.Form("Q3")
M3= request.Form("M3")
D3= request.Form("D3")
I4= request.Form("I4")
Q4= request.Form("Q4")
M4= request.Form("M4")
D4= request.Form("D4")
I5= request.Form("I5")
Q5= request.Form("Q5")
M5= request.Form("M5")
D5= request.Form("D5")
bodyCopy = "Request for Return Authorization" & vbCrLf
bodyCopy = bodyCopy & vbCrLf
bodyCopy = bodyCopy & "This is a Request for Return on " & request("THEDATE") & " for the following items:" & vbCrLf & vbCrLf
bodyCopy = bodyCopy & "Invoice number: " & request("I1") & vbCrLf
bodyCopy = bodyCopy & "Number to return: " & request("Q1") & vbCrLf
bodyCopy = bodyCopy & "Model number: " & request("M1") &
bodyCopy = bodyCopy & "Description: " & request("D1") & vbCrLf & vbCrLf & vbCrLf
if I2 <> "" then
bodyCopy = bodyCopy & "Invoice number: " & request("I2") & vbCrLf
bodyCopy = bodyCopy & "Number to return: " & request("Q2") & vbCrLf
bodyCopy = bodyCopy & "Model number: " & request("M2") &
bodyCopy = bodyCopy & "Description: " & request("D2") & vbCrLf & vbCrLf & vbCrLf
end if
if I3 <> "" then
bodyCopy = bodyCopy & "Invoice number: " & request("I3") & vbCrLf
bodyCopy = bodyCopy & "Number to return: " & request("Q3") & vbCrLf
bodyCopy = bodyCopy & "Model number: " & request("M3") &
bodyCopy = bodyCopy & "Description: " & request("D3") & vbCrLf & vbCrLf & vbCrLf
end if
if I4 <> "" then
bodyCopy = bodyCopy & "Invoice number: " & request("I4") & vbCrLf
bodyCopy = bodyCopy & "Number to return: " & request("Q4") & vbCrLf
bodyCopy = bodyCopy & "Model number: " & request("M4") & vbCrLf
bodyCopy = bodyCopy & "Description: " & request("D4") & vbCrLf & vbCrLf & vbCrLf
end if
if I5 <> "" then
bodyCopy = bodyCopy & "Invoice number: " & request("I5") & vbCrLf
bodyCopy = bodyCopy & "Number to return: " & request("Q5") & vbCrLf
bodyCopy = bodyCopy & "Model number: " & request("M5") &
bodyCopy = bodyCopy & "Description: " & request("D5") & vbCrLf & vbCrLf & vbCrLf
end if
bodyCopy = bodyCopy & "Name: " & request("NAME") & vbCrLf & vbCrLf
bodyCopy = bodyCopy & "Customer Number: "& request("CUSTNO") & vbCrLf & vbCrLf
bodyCopy = bodyCopy & "Email: " & request("EMAIL") & vbCrLf
Dim objMail
Set objMail = Server.CreateObject("CDONT
objMail.From = "charles_euley@yahoo.com"
objMail.Subject = "Request for Return Authorization"
objMail.To = EMAIL
objMail.cc = "charles_euley@yahoo.com"
objMail.Body = bodyCopy
objMail.Send
set objMail = nothing
%>
Here's what I use
dim objEMail
set objEMail = Server.CreateObject("CDONT S.NewMail" )
objEMail.To = EMAIL
objEMail.From = "charles_euley@yahoo.com"
objEMail.subject = "Request for Return Authorization"
objEMail.body = bodyCopy
objEmail.BodyFormat = 0
objEmail.MailFormat = 0
objEMail.send
set objEMail = nothing
Hope this helps
--------
D_M_D
--------
D_M_D
dim objEMail
set objEMail = Server.CreateObject("CDONT
objEMail.To = EMAIL
objEMail.From = "charles_euley@yahoo.com"
objEMail.subject = "Request for Return Authorization"
objEMail.body = bodyCopy
objEmail.BodyFormat = 0
objEmail.MailFormat = 0
objEMail.send
set objEMail = nothing
Hope this helps
--------
D_M_D
--------
D_M_D
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
if so here 's a good example of one...
http://www.coat.com/contact/epiphany2b.shtml
--------
D_M_D