Public Shared Function SendEmail(ByVal newsLetter As Courses.DataTransferObjects.NewsLetter, ByVal receipients() As Courses.DataTransferObjects.Recipient) As Boolean
Dim returnValue As Boolean = True
Dim mailMessage As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage
Dim receipient As Courses.DataTransferObjects.Recipient= Nothing
Dim sentMessage As Courses.DataTransferObjects.SentMessage = Nothing
Dim pauseAfter As Integer = CInt(System.Configuration.ConfigurationManager.AppSettings.Item("MailMessage.Pause.After"))
Dim pauseDuration As Integer = CInt(System.Configuration.ConfigurationManager.AppSettings.Item("MailMessage.Pause.Duration"))
Dim count As Integer = 0
mailMessage.From = New System.Net.Mail.MailAddress(newsLetter.Emailaddress, newsLetter.Name)
mailMessage.Subject = newsLetter.Subject
mailMessage.Body = newsLetter.Message
mailMessage.IsBodyHtml = True
For Each receipient In receipients
Try
returnValue = Courses.Logic.Email.GetLogic().Send(mailMessage, New System.Net.Mail.MailAddress(receipient.Emailaddress, receipient.FirstName & " " & receipient.LastName))
Catch ex As System.Exception
returnValue = False
End Try
If returnValue = True Then
sentMessage = New Courses.DataTransferObjects.SentMessage
sentMessage.NewsLetterId = newsLetter.Id
sentMessage.ReceipientId= receipient.Id
Courses.Plugins.PluginHandler.SentMessage.Create(sentMessage)
End If
count += 1
If count = pauseAfter Then
System.Threading.Thread.Sleep(pauseDuration)
count = 0
End If
Next
Return returnValue
End Function