Dim ms As New jmail.Message
ms.Subject = "kkkkk"
ms.Body = "fffff"
ms.From = "zzq9624@163.com"
ms.AddRecipient("zzq9624@163.com")
ms.MailServerUserName = "zzq9624"
ms.MailServerPassWord = "wwwwww"
ms.ContentTransferEncoding = "base64"
ms.Encoding = "gb2312"
ms.ISOEncodeHeaders = True
ms.MimeVersion = "1.0"
ms.Charset = "iso-8859-1"
'If Not txtPath.Text.Trim.Length = 0 Then
' ms.AddAttachment(txtPath.Text.Trim, True, mytype)
' End If
Try
ms.Send("smtp.163.com")
Response.Write("ok")
Catch ex As Exception
Response.Write(ex.Message)
End Try