-----------------------------------------------------------

New Message on BDOTNET

-----------------------------------------------------------
From: Chilakapati
Message 2 in Discussion

Hi Uday    here is the code, paste that in an asp page and provide the SMTP server 
address and uid and pwd which will take care.Make sure that To,From, Body are 
specified correctly to checkout the functionlaity 
________________________________________________   <%
Const cdoSendUsingMethod        = _
 "http://schemas.microsoft.com/cdo/configuration/sendusing";
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserver";
Const cdoSMTPServerPort         = _
 "http://schemas.microsoft.com/cdo/configuration/smtpserverport";
Const cdoSMTPConnectionTimeout  = _
 "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout";
Const cdoSMTPAuthenticate       = _
 "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";
Const cdoBasic                  = 1
Const cdoSendUserName           = _
 "http://schemas.microsoft.com/cdo/configuration/sendusername";
Const cdoSendPassword           = _
 "http://schemas.microsoft.com/cdo/configuration/sendpassword"; Dim objConfig  ' As 
CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields     ' As ADODB.Fields ' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields ' Set config fields we care about
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "smtp.companyname.com"
 .Item(cdoSMTPServerPort)        = 25
 .Item(cdoSMTPConnectionTimeout) = 10
 .Item(cdoSMTPAuthenticate)      = cdoBasic
 .Item(cdoSendUserName)          = "Userid"
 .Item(cdoSendPassword)          = "Password"  .Update
End With Set objMessage = Server.CreateObject("CDO.Message") Set 
objMessage.Configuration = objConfig With objMessage
 .To       = "[EMAIL PROTECTED]"
 .From     = "[EMAIL PROTECTED]"
 .Subject  = "SMTP Relay Test"
 .TextBody = "SMTP Relay Test Sent @ " & Now()
 .Send
 Response.write "Mail Sent"
End With Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>
 ________________________________________________   Cheers Chilaka  

-----------------------------------------------------------

To stop getting this e-mail, or change how often it arrives, go to your E-mail 
Settings.
http://groups.msn.com/BDOTNET/_emailsettings.msnw

Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help

For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact

If you do not want to receive future e-mail from this MSN group, or if you received 
this message by mistake, please click the "Remove" link below. On the pre-addressed 
e-mail message that opens, simply click "Send". Your e-mail address will be deleted 
from this group's mailing list.
mailto:[EMAIL PROTECTED]

Reply via email to