<% Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Set objMessage = Server.CreateObject("CDO.Message") objMessage.Subject = "Response from sbipensionerspune.org" objMessage.From = Request.Form("email")& "" objMessage.To = "sbipenmumbai@gmail.com" objMessage.Bcc="design@mwcspune.com" 'objMessage.Cc="design@mwcspune.com" objMessage.TextBody = mailSubject & ""_ & VBCrLf & VBCrLf & "Name: " & Request.Form("name")& ""_ & VBCrLf & "Address : " & Request.Form("add1")& ""_ & VBCrLf & "City : " & Request.Form("city")& ""_ & VBCrLf & "State : " & Request.Form("state")& ""_ & VBCrLf & "Country : " & Request.Form("country")& ""_ & VBCrLf & "Pincode : " & Request.Form("pin")& ""_ & VBCrLf & "Phone No: " & Request.Form("phone")& ""_ & VBCrLf & "Mobile No: " & Request.Form("mobile")& ""_ & VBCrLf & "Services Required : " & Request.Form("comments")& ""_ & VBCrLf & VBCrLf & "Email: " & Request.Form("email")& "" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" 'Type of authentication, NONE, Basic (Base64 encoded), NTLM objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 'Your UserID on the SMTP server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sbipensionerspu" 'Your password on the SMTP server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SU*$#HY@e1!" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (False or True) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update objMessage.Send %> sbi homepage new page-new oct 2012

 

 

We have received your message. 
We will get back to you shortly.

Thank You !

State Bank Pensioners' Association
(Mumbai Circle) Pune