定时发送一定的内容给某个电子邮箱，怎么做？给个思路，各位

Dim _SMTP As SmtpMail
Dim _MailMessage As New MailMessage()_MailMessage.Cc = "[email protected]"
_MailMessage.To = "[email protected]"
_SMTP.SmtpServer = "smtp.some.org"_MailMessage.BodyFormat = MailFormat.Html
_MailMessage.From = "[email protected]"
_MailMessage.Subject = "Stock Quotes for you!"_HtmlBody = "<html>" & vbCrLf
_HtmlBody &= "<head>" & vbCrLf
_HtmlBody &= "</head>" & vbCrLf
_HtmlBody &= "<body><h1>HTML Content</h1>" & vbCrLf
_HtmlBody &= "</html>" & vbCrLf_MailMessage.Body = _HtmlBody_SMTP.Send(_MailMessage)