vb .net 发送mail(JMAIL)

Private Function SendMail()
        Try
            'MailMessage を定義する
            Dim MailMessage As jmail.MessageClass = New jmail.MessageClass
            '受取人のリストをクリアする
            MailMessage.ClearRecipients()
            'Unicode
            MailMessage.Charset = Charset
            'from address
            MailMessage.From = FromAddr
            'from name
            MailMessage.FromName = FromName
            For i As Integer = 0 To ToAddr.Count - 1
                'to address
                MailMessage.AddRecipient(ToAddr(i))
            Next

            For i As Integer = 0 To CcAddr.Count - 1
                'cc address
                MailMessage.AddRecipientCC(CcAddr(i))
            Next

            For i As Integer = 0 To BccAddr.Count - 1
                'bcc address
                MailMessage.AddRecipientCC(BccAddr(i))
            Next
            'mail subject
            MailMessage.Subject = Subject
            'mail context
            MailMessage.Body = CreateBody(Body, New String() {"test1", "test2"})
            'server username
            MailMessage.MailServerUserName = UserName
            'server password
            MailMessage.MailServerPassWord = PassWord
            'server ip
            MailMessage.Send(SearverIp, False)

        Catch ex As Exception
            '異常をほうる
            Throw New Exception(ex.Message)
        End Try
    End Function
#End Region

 发送MAIL还可以用WEB.MAIL

以这个方式发送你可以更改端口和增加一些验证