ارسال ایمیل از طریق vb.net

[sheida-peyravi]

من یک پروژه ارسال email از طریق VB.Net 2005 را دارمو که کد مر بوطه را نیز از اینترنت دریافت کرده ام.لطفا به من کمک کنید که چه کارهایی باید انجام بدهم؟


' If Me.DataGrid1.CurrentRowIndex = -1 Then

'MsgBox("! .هیچ گزینه ای انتخاب نشده است ", MsgBoxStyle.Information, "فرم نمایش اطلاعات")

'Exit Sub

'else


'create a mailman to send email.

!!!در این خط خطا می گیرد!!! Dim mailman As New chilkat.MailMan()

'mailman.unlockcomponent("unlockcode")

'Set your smtp server hostname

'mailman.smtphost = "smtp.earthlink.net"

'you may need this depending on your smtp server

'mailman.smtpusername="username"

'mailman.smtppassword="password"

'create the mailman

'Dim email As New chilkat.email()

'email.subject = "Resault"

'email.body = "" 'Dim conn As SqlConnection = New SqlConnection("workstation id=W2018;packet size=4096;user id=koodakan;data source=EIEDSYSTEMS;persist security info=True;initial catalog=DB_KoodakanKarKhiaban;password=kkk")

'Dim cmd As New SqlCommand

'cmd.Connection = conn

'cmd.CommandType = CommandType.StoredProcedure

'cmd.CommandText = "usp_TB_Article_Delete"

' cmd.Parameters.Add("@RecordID", System.Data.SqlDbType.Int)

' cmd.Parameters("@RecordID").Value = row

'Try

'conn.Open()

'cmd.ExecuteNonQuery()

'conn.Close()

'Catch ex As Exception

'MsgBox(ex.Message)

'End Try

'email.addto("آموزشکده آمار وانفورماتیک تهران", "Sheida_peyravi2000@yahoo.com")

'email.addcc(" ", " ")

'email.fromaddress = "sheida_peyravi2000@yahoo.com"

'email.fromname = "آموزشکده آماروانفورماتیک تهران"

'send email

'If (Not mailman.sendemail(email)) Then

'MsgBox("ایمیل ارسال شد.")

' End If

'End If

[__H2__]

سلام
اگر سرچ کنید پیدا مینی
خود دات نت کلاسس ارسال ایمیل دارد و نیازی به کلاسس خارجی مثل chilkat.MailMan نیست.
این کلاسس باید همراه DLL اش که Add Refrence شده استفاده شود و همین طوری بدون شک خطا میدهد و اصلاً نیازی هم نیست.

نام کلاسس داخلی دت نت System.Net.Mail.SmtpClient است
سرچی در تالارهای V.Net و C#.Net انجام دهید نمونه کد را خواهید یافت.