这样定义有什么的错误?
Public Sub send(ByVal [to] As String, ByVal from As String, ByVal subject As String, ByVal body As String, ByVal username As String, ByVal password As String, ByVal smtphost As String) Dim from As New MailAddress(from)‘这样定义有什么的错误? Dim [to] As New MailAddress([to])’这样定义有什么的错误? Dim message As New MailMessage(from, [to]) message.Subject = subject '设置邮件主题 message.IsBodyHtml = True '设置邮件正文为html格式 message.Body = body '设置邮件内容 Dim client As New SmtpClient(smtphost) '设置发送邮件身份验证方式 '注意如果发件人地址是abc@def.com,则用户名是abc而不是abc@def.com client.Credentials = New NetworkCredential(username, password) client.Send(message) End Sub