خوش آموز درخت تو گر بار دانش بگیرد، به زیر آوری چرخ نیلوفری را
ارسال ایمیل با vb.net
در برنامه هایی نظیر اتوماسیون های اداری و CRM، در برخی فرم های برنامه نیاز است که کاربران بتوانند بدون خارج شدن از برنامه و استفاده از برنامه هایی مثل Outlook و یا سرویس وب ارسال ایمیل برای میل سرور، اقدام به ارسال ایمیل کنند. کاری که باید برنامه نویسان انجام دهند و این Feature را در برنامه و در جاهایی که مورد نیاز است بگنجانند. نه فقط در این برنامه ها بلکه در برنامه های بسیاری از قابلیت ارسال ایمیل در برنامه استفاده می شود. شما می توانید با استفاده از کد زیر اقدام به ارسال ایمیل در VB.net کنید.
Public Class FrmEmail
#Region "variable"
Public MyMailMessage As New MailMessage
#End Region
Private Sub BtnSendMail_Click(sender As Object, e As EventArgs) Handles BtnSendMail.Click
MyMailMessage.From = New MailAddress(txtmailsender.Text)
MyMailMessage.To.Add(txtrecievermail.Text)
MyMailMessage.Subject = txtmatter.Text
MyMailMessage.Body = RTB_mail.Text
Dim SMTPServer As New SmtpClient(txtsmtp.Text)
SMTPServer.Port = txtport.Text
SMTPServer.Credentials = New System.Net.NetworkCredential(txtmailsender.Text, txtpassword.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
'Dim attach As Net.Mail.Attachment = New Net.Mail.Attachment(txtattachmentsFiles.Text)
'MyMailMessage.Attachments.Add(attach)
MessageBox.Show("ایمیل با موفقیت ارسال شد.")
End Sub
End Class
هر جایی که از TXT استفاده کردیم به ازای آن در فرم برنامه یک Textbox برای آن در نظر گرفته ایم. شما می توانید تمامی این مقادیر را در کارهایی که انجام میی دهید در دیتابیس ذخیره کنید و هر بار که کاربری ایمیلی ارسال می کند هر ایمیل پس از ارسال شدن با نام همان کاربر در دیتابیس هم ذخیره شود. یک جعبه متن با نام نام دریافت کننده هم در برنامه قرار داده ایم که در حالت عادی نیاز نیست آن را پر کنید اما برای زمانی که قصد دارید هر ایمیل ارسالی از جانب کاربران برای سایرین را در دیتابیس ذخیره کنید این فیلد می توانید در گزارش گیری ها به شما کمک کند. و در نهایت حتما از شماره پورت و SMTP Server ای که قرار است با آن ایمیل ارسال کنید، اطمینان حاصل کنید که آن را به درستی وارد کرده باشید. برای چک کردن صحت آن می توانید از OUTLOOK استفاده کنید و با یک اکانت ایمیل از همان میل سرور، اقدام به ایجاد اکانت در outlook کرده و ببینید که اولا می توانید ارتباط درستی با آن میل سرور برقرار کنید و ثانیا یک ایمیلبرای تست هم ارسال کنید اگر همه چیز به خوبی پیش رفت حالا از همان Smtp server و port numbrt استفاده کنید.
شما می توانید همین برنامه ساده را همراه با سورس از اینجا دانلود کنید.
برای آموزش برنامه نویسی در VB.net می توانید به لینک های زیر مراجعه کنید.
آموزش برنامه نویسی به زبان ساده از مبتدی تا پیشرفته بصورت کاملا کاربردی
مرجع کامل زبان برنامه نویسی ویژوال بیسیک دات نت
Imports System.Net.Mail
Public Class FrmEmail
#Region "variable"
Public MyMailMessage As New MailMessage
#End Region
Private Sub BtnSendMail_Click(sender As Object, e As EventArgs) Handles BtnSendMail.Click
MyMailMessage.From = New MailAddress(txtmailsender.Text)
MyMailMessage.To.Add(txtrecievermail.Text)
MyMailMessage.Subject = txtmatter.Text
MyMailMessage.Body = RTB_mail.Text
Dim SMTPServer As New SmtpClient(txtsmtp.Text)
SMTPServer.Port = txtport.Text
SMTPServer.Credentials = New System.Net.NetworkCredential(txtmailsender.Text, txtpassword.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
'Dim attach As Net.Mail.Attachment = New Net.Mail.Attachment(txtattachmentsFiles.Text)
'MyMailMessage.Attachments.Add(attach)
MessageBox.Show("ایمیل با موفقیت ارسال شد.")
End Sub
End Class
هر جایی که از TXT استفاده کردیم به ازای آن در فرم برنامه یک Textbox برای آن در نظر گرفته ایم. شما می توانید تمامی این مقادیر را در کارهایی که انجام میی دهید در دیتابیس ذخیره کنید و هر بار که کاربری ایمیلی ارسال می کند هر ایمیل پس از ارسال شدن با نام همان کاربر در دیتابیس هم ذخیره شود. یک جعبه متن با نام نام دریافت کننده هم در برنامه قرار داده ایم که در حالت عادی نیاز نیست آن را پر کنید اما برای زمانی که قصد دارید هر ایمیل ارسالی از جانب کاربران برای سایرین را در دیتابیس ذخیره کنید این فیلد می توانید در گزارش گیری ها به شما کمک کند. و در نهایت حتما از شماره پورت و SMTP Server ای که قرار است با آن ایمیل ارسال کنید، اطمینان حاصل کنید که آن را به درستی وارد کرده باشید. برای چک کردن صحت آن می توانید از OUTLOOK استفاده کنید و با یک اکانت ایمیل از همان میل سرور، اقدام به ایجاد اکانت در outlook کرده و ببینید که اولا می توانید ارتباط درستی با آن میل سرور برقرار کنید و ثانیا یک ایمیلبرای تست هم ارسال کنید اگر همه چیز به خوبی پیش رفت حالا از همان Smtp server و port numbrt استفاده کنید.
شما می توانید همین برنامه ساده را همراه با سورس از اینجا دانلود کنید.
برای آموزش برنامه نویسی در VB.net می توانید به لینک های زیر مراجعه کنید.
آموزش برنامه نویسی به زبان ساده از مبتدی تا پیشرفته بصورت کاملا کاربردی
مرجع کامل زبان برنامه نویسی ویژوال بیسیک دات نت
دسته بندی مطالب خوش آموز
نمایش دیدگاه ها (0 دیدگاه)
دیدگاه خود را ثبت کنید: