Dim mail As New System.Net.Mail.MailMessage() ' Dim client As New System.Net.Mail.SmtpClient()
Dim Result As DialogResult
Dim dz As String = drs(kii)("域名")
Dim dk As String = drs(kii)("端口")
Dim zh As String = drs(kii)("账号")
Dim mm As String= drs(kii)("密码")
Dim smtp As New System.Net.Mail.SmtpClient(dz,dk)
smtp.Credentials = New System.Net.NetworkCredential(zh,mm)
mail.Subject = zt
mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.From = New System.Net.Mail.MailAddress(fj,"EAPQP系统自动发送:" & tb1.value)
mail.Priority = System.Net.Mail.MailPriority.Normal
mail.IsBodyHtml = True
mail.Body = nr
这是之前在哪抄的邮件发送的代码
现在想中附件，请问下老师加附件的代码怎么写
加好友 
发短信
Post By：2023/8/24 15:47:00 [只看该作者]
