<%
Dim objCDOConf,objCDOSYS
Set objCDOSYS = Server.CreateObject("CDO.Message")
Set objCDOConf = Server.CreateObject ("CDO.Configuration")
With objCDOConf
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aaa.co.uk"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "
[email protected]"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "info"
.Fields.Update
End With
Set objCDOSYS.Configuration = objCDOConf
With objCDOSYS
.From = "
[email protected]"
.To = "
[email protected]"
.Subject = "Booking Confirmation - "&pnrno&""
.HTMLBody = "<html><h2>Booking Confirmation from "&agent_name&"</h2><p>This email has been generated automatically.</p><br><p>The status of PNR number: <b>"&pnrno&"</b> has changed to Confirmed</p><br><p>Lead Passenger: "&pass_forename_in&" "&pass_surname&"</p></html>"
.Send
End with
Set objCDOSYS = Nothing
'response.write "Email Sent....."
%>
www.crmpicco.co.uk
www.milklemonadechocolate.uk.tt
cdonts
