一段用jmail发邮件的代码失误，请各位帮忙
日期：2014-05-18 浏览次数：20398 次
一段用jmail发邮件的代码出错，请各位帮忙。
出错信息：
安全性异常
说明: 应用程序试图执行安全策略不允许的操作。要授予此应用程序所需的权限，请与系统管理员联系，或在配置文件中更改该应用程序的信任级别。
异常详细信息: System.Security.SecurityException: System.Security.Permissions.SecurityPermission
源错误:
行 42: oJmailMessage = Nothing
行 43:
行 44: End sub
行 45: </script>
行 46: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN " >
源文件: d:\inetpub\wwwroot\JmailSend.aspx 行: 44
代码如下：
<script language= "VB " runat= "server ">
Sub bts(sender as object,e as system.eventargs)
Dim oJmailMessage As New jmail.MessageClass()
oJmailMessage.Charset = "GB2312 "
oJmailMessage.Encoding = "BASE64 "
oJmailMessage.ContentType = "text/html "
oJmailMessage.ISOEncodeHeaders = False
oJmailMessage.Priority = Convert.ToByte(1)
oJmailMessage.From = TxtEmail.Text.Trim()
oJmailMessage.FromName = TxtName.Text.Trim()
oJmailMessage.Subject = txtSubject.Text.Trim()
oJmailMessage.MailServerUserName = TxtSmtpUser.Text.Trim()
oJmailMessage.MailServerPassWord = TxtSmtpPwd.Text.Trim()
oJmailMessage.AddRecipient(txtReciver.Text.Trim(), " ", " ")
If " " <> upFile.PostedFile.FileName Then
Dim attpath As String = upFile.PostedFile.FileName
oJmailMessage.AddAttachment(attpath, True, attpath.Substring(attpath.LastIndexOf( ". ") + 1, 3))
End If
oJmailMessage.Body = txtContent.Text.Trim()
If oJmailMessage.Send(TxtSmtServer.Text.Trim(), False) Then
Response.Write( "发送成功！ ")
Else
Response.Write( "发送失败，请检查邮件服务器的设置！ ")
End If
oJmailMessage = Nothing
End sub
</script>
------解决方案--------------------
I can not find any error from your code, if you can, please catch the exception and show it to us.
出错信息：
安全性异常
说明: 应用程序试图执行安全策略不允许的操作。要授予此应用程序所需的权限，请与系统管理员联系，或在配置文件中更改该应用程序的信任级别。
异常详细信息: System.Security.SecurityException: System.Security.Permissions.SecurityPermission
源错误:
行 42: oJmailMessage = Nothing
行 43:
行 44: End sub
行 45: </script>
行 46: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN " >
源文件: d:\inetpub\wwwroot\JmailSend.aspx 行: 44
代码如下：
<script language= "VB " runat= "server ">
Sub bts(sender as object,e as system.eventargs)
Dim oJmailMessage As New jmail.MessageClass()
oJmailMessage.Charset = "GB2312 "
oJmailMessage.Encoding = "BASE64 "
oJmailMessage.ContentType = "text/html "
oJmailMessage.ISOEncodeHeaders = False
oJmailMessage.Priority = Convert.ToByte(1)
oJmailMessage.From = TxtEmail.Text.Trim()
oJmailMessage.FromName = TxtName.Text.Trim()
oJmailMessage.Subject = txtSubject.Text.Trim()
oJmailMessage.MailServerUserName = TxtSmtpUser.Text.Trim()
oJmailMessage.MailServerPassWord = TxtSmtpPwd.Text.Trim()
oJmailMessage.AddRecipient(txtReciver.Text.Trim(), " ", " ")
If " " <> upFile.PostedFile.FileName Then
Dim attpath As String = upFile.PostedFile.FileName
oJmailMessage.AddAttachment(attpath, True, attpath.Substring(attpath.LastIndexOf( ". ") + 1, 3))
End If
oJmailMessage.Body = txtContent.Text.Trim()
If oJmailMessage.Send(TxtSmtServer.Text.Trim(), False) Then
Response.Write( "发送成功！ ")
Else
Response.Write( "发送失败，请检查邮件服务器的设置！ ")
End If
oJmailMessage = Nothing
End sub
</script>
------解决方案--------------------
I can not find any error from your code, if you can, please catch the exception and show it to us.
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
