<%
Dim ObjSendMail
Dim email
Set ObjSendMail = CreateObject("CDO.Message")
email = Request.Form("varFrom")
msg = " ' "&Request.Form("name")&"' '"&Request.Form("mobile")&"' '"&Request.Form("varMessage")&"'"
'name= Request.Form("name")
'mobile=Request.Form("mobile")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.mobilezone.com.pk"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "info@mobilezone.com.pk"
ObjSendMail.Bcc = "muzammil@mobilezone.com.pk, shariq.mahmood@mobilezone.com.pk"
ObjSendMail.Cc = "bilalrashid@mobilezone.com.pk"
ObjSendMail.Subject = "MZ Feedback / Complaint Form"
ObjSendMail.From = email
ObjSendMail.TextBody = msg
ObjSendMail.Send
Set ObjSendMail = Nothing
%>
<%
Dim ObjReply
Dim email2
Set ObjReply = CreateObject("CDO.Message")
email2 = Request.Form("varFrom")
msg = " ' "&Request.Form("name")&"' '"&Request.Form("mobile")&"' '"&Request.Form("varMessage")&"'"
'This section provides the configuration information for the remote SMTP server.
ObjReply.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjReply.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.mobilezone.com.pk"
ObjReply.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjReply.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjReply.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjReply.Configuration.Fields.Update
ObjReply.To = email2
ObjReply.Subject = "MZ Feedback / Complaint Form Auto Reply"
ObjReply.From = "MobileZone@mobilezone.com.pk"
ObjReply.TextBody ="Your feedback has been received. Our representative will contact you shortly for your assistance or you can also call 111 000 900 for your queries or feedback." & vbcrlf&_
"Thank you for your interest in Mobile Zone." & vbcrlf&_
" " &vbcrlf&_
" " &vbcrlf&_
"* This is an auto generated response"
ObjReply.Send
Set ObjReply = Nothing
%>
Retail Network