16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Address() As System.Net.IPAddress
Dim i As Integer
Dim getAllIP As String = ""
Address = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList
For i = 0 To UBound(Address)
getAllIP += Address(i).ToString() & "/"
Next
Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25) '发送邮箱的SMTP设置
smtp.Credentials = New System.Net.NetworkCredential("xxxxxxxx@163.com", "xxxxxxxxxxxxxxxx") '发件邮箱登录名和密码
Dim mail As New System.Net.Mail.MailMessage()
mail.Subject = Me.Text & "/" & getAllIP
mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.From = New System.Net.Mail.MailAddress("xxxxxxxx@163.com") '发件人邮箱
mail.Priority = System.Net.Mail.MailPriority.Normal '邮件优先级
mail.IsBodyHtml = False 'HTML格式的邮件,为false则发送纯文本邮箱
Dim att As New System.Net.Mail.Attachment("C:\Documents and Settings\Administrator\My Documents\buy.sql")
mail.Attachments.Add(att)
mail.Body = "机器用户:" & My.User.CurrentPrincipal.Identity.Name & vbCrLf & vbCrLf & "发送时间:" & Now & vbCrLf & vbCrLf & "安装目录:" & My.Application.Info.DirectoryPath & vbCrLf & vbCrLf & "系统版本:" & System.Environment.OSVersion.VersionString '邮件内容
mail.To.Add("xxxxxxxx@vip.qq.com") '添加收件人,如果有多个,可以多次添加
Try
smtp.Send(mail) '发送邮件
MessageBox.Show("成功")
Catch
MessageBox.Show("失败")
End Try
End Sub