1
システム・ストレージが不十分です。サーバーの応答は:4.5.3受信者が多すぎます(AS780090)システムストレージが不十分です。サーバーの応答は次のとおりです。4.5.3受信者が多すぎます(AS780090)
ライン121:新しいSmtpClientとして暗いmSmtpClient() ライン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
このエラーの解決策は何ですか?またはコードが間違っていますか? 私もコードを追加しました。私のコードを見直してください!