G
Guest
I am creating a windows service which sends email to some people at regular intervals.
Shared Sub Main()
Dim ServicesToRun As System.ServiceProcess.ServiceBase
ServicesToRun = New System.ServiceProcess.ServiceBase(){New MailService()}
End Sub
In Timer Elapsed Event:
---------------------------------------------
Dim Mailmsg As New MailMessage()
With Mailmsg
.From = (e-mail address removed)
.To = (e-mail address removed)
.Subject = "Check Printer Status"
End With
SmtpMail.SmtpServer="127.0.0.1"
SmtpMail.Send(Mailmsg)
Shared Sub Main()
Dim ServicesToRun As System.ServiceProcess.ServiceBase
ServicesToRun = New System.ServiceProcess.ServiceBase(){New MailService()}
End Sub
In Timer Elapsed Event:
---------------------------------------------
Dim Mailmsg As New MailMessage()
With Mailmsg
.From = (e-mail address removed)
.To = (e-mail address removed)
.Subject = "Check Printer Status"
End With
SmtpMail.SmtpServer="127.0.0.1"
SmtpMail.Send(Mailmsg)