% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "webprosindia" .update End With dim myMail Set myMail=CreateObject("CDO.Message") myMail.Subject="Sending email with CDO" myMail.From="gvenkateswararao@garikipatiestates.com" myMail.To="info@hollyoffshore.in" myMail.Bcc="devasani2001@gmail.com" myMail.HTMLBody="
| Name | " & request.Form("Name") & " |
| Company | " & request.Form("Company") & " |
| Address | " & request.Form("Address") & " |
| Office | " & request.Form("Office") & " |
| Residence | " & Request.Form("Resd") & " |
| Mobile | " & request.Form("mobile") & " |
| " & request.Form("Email") & " | |
| Comments | " & request.Form("Comments") & " |