Protected Overrides Sub OnStart(ByVal args() As String)
        MyBase.OnStart(args)
        timer.Start()
    End Sub
 
    Protected Overrides Sub OnStop()
        MyBase.OnStop()
        timer.Stop()
    End Sub
 
    Private Sub InitializeComponent()
        Me.EventLog1 = New System.Diagnostics.EventLog()
        CType(Me.EventLog1, System.ComponentModel.ISupportInitialize).BeginInit( _
          )
 
        timer = New System.Timers.Timer(1000)
        AddHandler timer.Elapsed, AddressOf OnTimedEvent
 
        '
        'Service
        '
        Me.ServiceName = "PPS Mailing Service"
        CType(Me.EventLog1, System.ComponentModel.ISupportInitialize).EndInit()
 
    End Sub
 
 
 
    Private Sub OnTimedEvent(sender As Object, e As EventArgs)
        Dim mail As New clsMail
        Dim con As ADODB.Connection
        Dim rsMail As ADODB.Recordset
        Dim liPEZaehler As Long
        Dim sText As String
        con = DBOpenCon("Server", "Datenbank")
        liPEZaehler = PPSGetPEZaehlerByUser(Environment.UserName)
        rsMail = DBOpenRs(con, "E-Mail'")
        rsMail.MoveFirst()
        If rsMail.EOF Then
            Call ErrEvent(ErrType.ErrFatal, "Mail kann nicht gesendet werden")
        Else
            mail.SetMailServer = "Exchange"
            Call mail.InitMsg("mail@mail.de", "Testmail")
            Call mail.AppendTo("teammail@mail.de")
            sText = "AutoMail - Dienst" + vbNewLine
            Call mail.SetText(sText)
            Call mail.Send()
        End If
        rsMail.Close()
    End Sub

EALA FREYA FRESENA

Beitrag wurde zuletzt am 30.09.16 um 20:01:44 editiert.

EALA FREYA FRESENA