自定义脚本通过SMTP邮箱发送邮件

'Create a new MailMessage object and specify the"From" and "To" addresses
        Dim Email As New System.Net.Mail.MailMessage( _
           "xxx@xxx.com", "yyy@yyy.com,zzz@zzz.com")
        Email.Subject = "test subject"
        Email.Body = "this is a test"
        Dim oAttch As Net.Mail.Attachment = New Net.Mail.Attachment("E:\xxx.txt")
        Email.Attachments.Add(oAttch)
        Dim mailClient As New System.Net.Mail.SmtpClient()
        'This object stores the authentication values
        Dim basicAuthenticationInfo As _
           New System.Net.NetworkCredential("username or email", "password")
        'Put your own, or your ISPs, mail server name onthis next line
        mailClient.Host = "xxx.outlook.com"
        mailClient.Port = 587
        mailClient.EnableSsl = True
        mailClient.UseDefaultCredentials = False
        mailClient.Credentials = basicAuthenticationInfo
        mailClient.Send(Email)