Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
jsmtp = New jmail.SMTPMail
Dim mailsub, ms, mc As String
mailsub = LTrim(tsub.Text)
ms = Trim(tsm.Text)
mc = Trim(tcm.Text)
jsmtp.Message.Body = ftb.Text
jsmtp.Message.FromName = "liufeng005"
jsmtp.Message.From = "[email protected]"
jsmtp.Message.Subject = mailsub
jsmtp.Message.AddRecipient(ms)
jsmtp.Message.AddRecipientCC(mc)
jsmtp.ContentTransferEncoding = "base64"
jsmtp.Message.Encoding = "GB2312"
Try jsmtp.Message.Send("mail3")
Response.Write("<script>alert('邮件发送成功!')</script>")
Catch
Response.Write("<script>alert('邮件发送失败!')</script>")
End Try tsub.Text = ""
tsm.Text = ""
tcm.Text = ""
ftb.Text = "" End Sub发送出去的都是乱码,怎么解决
jsmtp.ContentTransferEncoding = "base64"
jsmtp.Message.Encoding = "GB2312"这两句去掉也还是乱码!
jsmtp = New jmail.SMTPMail
Dim mailsub, ms, mc As String
mailsub = LTrim(tsub.Text)
ms = Trim(tsm.Text)
mc = Trim(tcm.Text)
jsmtp.Message.Body = ftb.Text
jsmtp.Message.FromName = "liufeng005"
jsmtp.Message.From = "[email protected]"
jsmtp.Message.Subject = mailsub
jsmtp.Message.AddRecipient(ms)
jsmtp.Message.AddRecipientCC(mc)
jsmtp.ContentTransferEncoding = "base64"
jsmtp.Message.Encoding = "GB2312"
Try jsmtp.Message.Send("mail3")
Response.Write("<script>alert('邮件发送成功!')</script>")
Catch
Response.Write("<script>alert('邮件发送失败!')</script>")
End Try tsub.Text = ""
tsm.Text = ""
tcm.Text = ""
ftb.Text = "" End Sub发送出去的都是乱码,怎么解决
jsmtp.ContentTransferEncoding = "base64"
jsmtp.Message.Encoding = "GB2312"这两句去掉也还是乱码!
把这句去了。
如果还不行把mail.Charset = "GB2312";也去了。
这句我没有
mail.Charset = "GB2312";
这句去了,也不行