Set objEmail = CreateObject("CDO.Message") objEmail.From = "info@keralaexcellanttours.com" objEmail.To = "bijujames37@gmail.com" objEmail.Subject = "Contact from Kerala Excellant Tours- " & Name objEmail.HTMLBody = "<html><body>" & mailbody & "</body></html>" objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.keralaexcellanttours.com" objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1" objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@keralaexcellanttours.com" objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "glad12345" objEmail.Configuration.Fields.Update objEmail.Se