系统存储不足。服务器响应为:4.5.3收件人太多(AS780090)
第121行:Dim mSmtpClient为新的SmtpClient() 第122行: 第123行:mSmtpClient.Send(mMailMessage)
Public Function SendMail(ByVal emailto As String, ByVal strtitle As String, ByVal strmsg As String) As String
' Try
Dim mMailMessage As New MailMessage()
Dim from1 As String = "*******@*****.com"
' Set the sender address of the mail message
mMailMessage.From = New MailAddress(from1, strtitle)
' Set the recepient address of the mail message
mMailMessage.To.Add(New MailAddress(emailto, strtitle))
mMailMessage.Subject = strtitle
mMailMessage.Subject = strtitle
'mMailMessage.To.Add(New MailAddress(email).ToString)
mMailMessage.To.Add(New MailAddress(emailto).ToString)
' Set the format of the mail message body as HTML
mMailMessage.IsBodyHtml = True
'mMailMessage.Body = strmsg
mMailMessage.Body = strmsg
' Set the priority of the mail message to normal
mMailMessage.Priority = MailPriority.High
mMailMessage.BodyEncoding = System.Text.Encoding.GetEncoding("windows-1256")
mMailMessage.SubjectEncoding = System.Text.Encoding.GetEncoding("windows-1256")
' Instantiate a new instance of SmtpClient
Dim mSmtpClient As New SmtpClient()
mSmtpClient.Send(mMailMessage)
End Function
这个错误的解决方案是什么?或者我的代码在哪里错了? 我也添加了代码,请查看我的代码!
答案 0 :(得分:0)
在一封电子邮件中可以添加的收件人数有一些限制。收件人包括:
在gmail中,对于不同的邮件提供商,它的设置为100,其差值为。
如果您在单个电子邮件中发送的ID超过该号码,则会出现此错误