Wednesday, April 6, 2011

Sending Mail using CDOSYS

dim returnCode
if returnCode = True then
'Put your code when mail send successfull
'Put your code when mail could not send end if
sub SendMail()
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Send test Mail using CDOSYS"
myMail.To=""    'You can also use comma separated Mail

How r you.

Test mail sending Program

" myMail.Configuration.Fields.Item _("")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item _("")="localhost" 'Server port myMail.Configuration.Fields.Item _("")=25 myMail.Configuration.Fields.UpdateOn Error Resume Next myMail.Send If Err.Number = 0 then returnCode=True Else returnCode=False End If set myMail=nothing end sub %>

1 comment :

AJAX, asp,, and sql server security, IntemIndex, C#, Css, DataBinder.Eval, DataKeyNames, Datalist, Datapager, DataSet, DataTable, DropDownList, FindControl, gridview, JavaScript, jquery, Listview, Paging, Regex, RegularExpression, Repeater, Server side validation, Sql Server, timer, timercallback, Validation, XML, xmlnode, XPath