emailoperation.vb

管理毕业设计的管理系统 VB+SQL2000....

Imports System.Net.Mail
Imports System.Net

Public Class EmailOperation
    Public Shared Function SendEmail(ByVal fromAddr As String, ByVal toAddr As String, ByVal title As String, ByVal body As String, ByVal attach As String) As Boolean
        Try
            '电子邮件类
            Dim email As New MailMessage(fromAddr, toAddr, title, body)
            '添加附件
            If attach <> "" Then
                email.Attachments.Add(New Attachment(attach))
            End If

            Dim mailUser As String = "001010806"    '帐号
            Dim mailKey As String = "1552520"       '密码

            '发送邮件
            Dim smtp As New SmtpClient("smtp.163.com", 25)
            smtp.Credentials = New NetworkCredential(mailUser, mailKey)
            smtp.Send(email)

            Return True
        Catch
            Return False
        End Try
    End Function
End Class