Code equivalent for this.......Help

[jayakumar]

HI,

Below is the code in vb to send mail using CDO object. I
want to do the same in VB.Net , i need to know how to sent
the authentication in vb.net "
..Item(cdoSMTPA uthenticate) = cdoBasic"


VB
-------------------------------------------------------

Dim iMsg as New CDO.Message
Dim iConf as New CDO.Configurati on

Dim Flds as ADODB.Fields
Set Flds = iConf.Fields

With Flds
.Item(cdoSendUs ingMethod) = cdoSendUsingPor t
.Item(cdoSMTPSe rverName)
= "so******@micro soft.com"
.Item(cdoSMTPCo nnectionTimeout ) = 10 ' quick timeout
.Item(cdoSMTPAu thenticate) = cdoBasic
.Item(cdoSendUs erName) = "username"
.Item(cdoSendPa ssword) = "password"
.Item(cdoURLPro xyServer) = "server:80"
.Item(cdoURLPro xyBypass) = "<local>"
.Item(cdoURLGet LatestVersion) = True
.Update
End With

With iMsg
Set .Configuration = iConf
.To = """User A"" <us***@microsof t.com>"
.From = """User B"" <us***@microsof t.com>"
.Subject = "Hows it going? I've attached my web
page"
.CreateMHTMLBod y "http://mypage"
.AddAttachment "C:\files\myboo k.doc"
.Send
End With
-------------------------------------------------------

thanks

[Sreejumon[MVP]]

Hi Jyakumar,

Please refer the System.Web.Mail namespace. This is the CDO implementation
in .net world. Please refer the following link.
http://www.codeproject.com/useritems/epsendmail.asp

--
Let me know if you need further help

Regards
Sreejumon[MVP]
www.mstechzone.com

"jayakumar" <ja********@hot mail.com> wrote in message
news:08******** *************** *****@phx.gbl.. .

HI,

Below is the code in vb to send mail using CDO object. I
want to do the same in VB.Net , i need to know how to sent
the authentication in vb.net "
.Item(cdoSMTPAu thenticate) = cdoBasic"


VB
-------------------------------------------------------

Dim iMsg as New CDO.Message
Dim iConf as New CDO.Configurati on

Dim Flds as ADODB.Fields
Set Flds = iConf.Fields

With Flds
.Item(cdoSendUs ingMethod) = cdoSendUsingPor t
.Item(cdoSMTPSe rverName)
= "so******@micro soft.com"
.Item(cdoSMTPCo nnectionTimeout ) = 10 ' quick timeout
.Item(cdoSMTPAu thenticate) = cdoBasic
.Item(cdoSendUs erName) = "username"
.Item(cdoSendPa ssword) = "password"
.Item(cdoURLPro xyServer) = "server:80"
.Item(cdoURLPro xyBypass) = "<local>"
.Item(cdoURLGet LatestVersion) = True
.Update
End With

With iMsg
Set .Configuration = iConf
.To = """User A"" <us***@microsof t.com>"
.From = """User B"" <us***@microsof t.com>"
.Subject = "Hows it going? I've attached my web
page"
.CreateMHTMLBod y "http://mypage"
.AddAttachment "C:\files\myboo k.doc"
.Send
End With
-------------------------------------------------------

thanks

[Kevin Spencer]

Whatever account ASP.Net is running under, that is the account that is
sending the mail. Just add that account to the SMTP Server's authenticated
operators.

--
HTH,

Kevin Spencer
Microsoft MVP
..Net Developer
http://www.takempis.com
Neither a follower nor a lender be.

"jayakumar" <ja********@hot mail.com> wrote in message
news:08******** *************** *****@phx.gbl.. .

HI,

Thanks, but my smtp server is authenticated. How do u
specify the Username and password for the server.

-----Original Message-----
Hi Jyakumar,

Please refer the System.Web.Mail namespace. This is the

CDO implementation

in .net world. Please refer the following link.
http://www.codeproject.com/useritems/epsendmail.asp

--
Let me know if you need further help

Regards
Sreejumon[MVP]
www.mstechzone.com

"jayakumar" <ja********@hot mail.com> wrote in message
news:08******* *************** ******@phx.gbl. ..

HI,

Below is the code in vb to send mail using CDO object. I want to do the same in VB.Net , i need to know how to sent the authentication in vb.net "
.Item(cdoSMTPAu thenticate) = cdoBasic"


VB
-------------------------------------------------------

Dim iMsg as New CDO.Message
Dim iConf as New CDO.Configurati on

Dim Flds as ADODB.Fields
Set Flds = iConf.Fields

With Flds
.Item(cdoSendUs ingMethod) = cdoSendUsingPor t
.Item(cdoSMTPSe rverName)
= "so******@micro soft.com"
.Item(cdoSMTPCo nnectionTimeout ) = 10 ' quick timeout
.Item(cdoSMTPAu thenticate) = cdoBasic
.Item(cdoSendUs erName) = "username"
.Item(cdoSendPa ssword) = "password"
.Item(cdoURLPro xyServer) = "server:80"
.Item(cdoURLPro xyBypass) = "<local>"
.Item(cdoURLGet LatestVersion) = True
.Update
End With

With iMsg
Set .Configuration = iConf
.To = """User A"" <us***@microsof t.com>"
.From = """User B"" <us***@microsof t.com>"
.Subject = "Hows it going? I've attached my web
page"
.CreateMHTMLBod y "http://mypage"
.AddAttachment "C:\files\myboo k.doc"
.Send
End With
-------------------------------------------------------

thanks

.