Solved

how can i Run-once code from asp.net web service without calling the function from on_start?

Posted on 2009-06-26
1
447 Views
Last Modified: 2012-05-07
Here i am calling the SendMails() event from onstart event. while i am adding this one to web service taking more time to start the webservice.

now i want to call the sendmail event only once after the web service started.

or is any other method to send the mails other than using webservice.
Imports System.ServiceProcess
Imports System.Data.SqlClient
Imports System.Web.Mail
 
Public Class service1
    Inherits System.ServiceProcess.ServiceBase
	
	Dim sql As String
 
    Dim MyCon As SqlConnection
    Dim MyCmd As SqlCommand
    Dim MyRd As SqlDataReader
 
    Public conStr As String = "connection string"
 
    Protected Overrides Sub OnStart(ByVal args() As String)
        SendMails()
    End Sub
 
    Protected Overrides Sub OnStop()
 
    End Sub
 
    Public Function SendMails()
        Dim sno As Int64
        Dim strMailBdy As String
        Dim msgMail As MailMessage
        Dim strAryEmail(5000) As String
        Try
            sql = "select Email from TUser where Sno between 1 and 50000"
            MyCon = New SqlConnection(conStr)
            MyCon.Open()
            MyCmd = New SqlCommand(sql, MyCon)
            MyRd = MyCmd.ExecuteReader
            sno = 0
            While MyRd.Read
                strAryEmail(sno) = MyRd("Email")
                sno = sno + 1
                If sno > 4999 Then
                    ReDim Preserve strAryEmail(sno + 1)
                End If
            End While
            MyRd.Close()
            MyCmd = Nothing
            MyCon.Close()
 
            Dim intCustLen As Int64
            intCustLen = sno - 1
 
            For sno = 0 To intCustLen Step 1
                If strAryEmail(sno).ToString <> "" Then
            
                    msgMail = New MailMessage
                    msgMail.To = strAryEmail(sno).ToString.Trim
                    msgMail.From = "From EmailID"
                    msgMail.Subject = "Subject"
                    msgMail.Body = "Email Body"
                    msgMail.BodyFormat = MailFormat.Html
                    msgMail.Priority = MailPriority.Normal
					
                    Try
                        SmtpMail.Send(msgMail)
                    Catch ex As Exception
 
                    End Try
                    System.Threading.Thread.Sleep(2000)
                End If
            Next
        Catch ex As Exception
            If MyCon.State = ConnectionState.Open Then MyCon.Close()
        End Try
    End Function
 
End Class

Open in new window

0
Comment
Question by:Ranjith_MCAD
1 Comment
 
LVL 11

Accepted Solution

by:
Salim Fayad earned 500 total points
ID: 24727251
You can send emails from your web application directly without passing thrugh a webservice. But if you do want to do it from your webservice, you can write a function in your webserice that you call it from your web application.
0

Featured Post

Are your AD admin tools letting you down?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Just a quick little trick I learned recently.  Now that I'm using jQuery with abandon in my asp.net applications, I have grown tired of the following syntax:      (CODE) I suppose it just offends my sense of decency to put inline VBScript on a…
This article discusses the ASP.NET AJAX ModalPopupExtender control. In this article we will show how to use the ModalPopupExtender control, how to display/show/call the ASP.NET AJAX ModalPopupExtender control from javascript, how to show/display/cal…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question