Please remember to mark the replies as answers if they help and unmark them if they provide no help, this will help others who are looking for solutions to the same or similar problem.In this article, I will walk you through a quick and interesting way to send SMS using a simple C# application. NOTE the project is for you to get ideas from and not a solution without getting your hands a tad dirty :-) Sub SendMail() Dim Mail As New MailMessage() Mail.From = New MailAddress(txtFromAddress.Text, txtFromDisplayName.Text) Mail.To.Add(New MailAddress(txtSendAddress.Text, txtSendToDisplayName.Text)) Mail.Subject = txtSubject.Text Dim plainView As AlternateView = AlternateView.CreateAlternateViewFromString( My.Resources.PlainTextFormatted, Nothing, "text/plain") Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString( My.Resources.HtmlFormatted, Nothing, "text/html") (plainView) (htmlView) Mail.IsBodyHtml = chkUseHtmlBody.Checked Dim MailClient As New SmtpClient(txtHostServer.Text) MailClient.EnableSsl = chkEnableSsl.Checked If PortNumericUpDown.Value > 0 Then MailClient.Port = CInt(PortNumericUpDown.Value) End If txtResults.AppendText(String.Format("Connection Name: ']", sender.Message) & Environment.NewLine) sender = sender.InnerException Loop Return Data End Function In this project only one message is sent yet this is the pattern I use for sending 600+ emails with attachments in one session and keep the app responsive.īelow is taken from the project which are key to having a responsive app. You most likely need to use a delegate for sending your messages as shown in this Through to get to the bottom of the issue. You'll likely have to speak to the owner/operator/administrator of the SMTP server you're trying to send mail it can process it immediately, it can introduce delay to ensure you're not a spammer, or it can ignore it all together. It is requesting that your email (probably SMTP) server send your email. Do not think of the code as actually sending an email, it is really sending a request. Keep in mind though you will have to use a delegate and callback (or manual flag system) to know when the thread is finished processingĪs far as how fast the emails go, that is not something you control. This will send all the emails in whatever list or collection you have and won't lock the UI. Private Sub SendEmails() Dim EmailList As New List(Of String) For i As Integer = 0 To EmailList.Count - 1 'Send email here Next End Sub You need to put your processing in a thread, like so:ĭim MyEmailThread As New (AddressOf SendEmails) While the program is trying to send an email, it hangs, and while the thread is sleeping it hangs. Your program is unresponsive because it does all the processing in the UI thread.
0 kommentar(er)
