vb.net - 邮件未送达

Question

我正在使用SmtpClient. 在尝试发送任何邮件时，我得到了成功响应。但是邮件没有送达。

Dim mMailMessage As New Net.Mail.MailMessage

Dim client As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient("domain", 587)
client.EnableSsl = True
client.Timeout = 100000
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
client.UseDefaultCredentials = False
client.Credentials = New NetworkCredential("username***", "password")

Dim msg As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage()
mMailMessage.[To].Add(pstrToMailid)
mMailMessage.From = New System.Net.Mail.MailAddress("frommailid")
mMailMessage.Subject = pstrSubject
mMailMessage.IsBodyHtml = True
mMailMessage.Body = text

If Not pstrfilenames Is Nothing Then
    Dim lint As Integer
    Dim larrattachment() As String
    larrattachment = Split(pstrfilenames, ",")
    For lint = 0 To larrattachment.Length - 2
        attachment = New Net.Mail.Attachment(larrattachment(lint))
        mMailMessage.Attachments.Add(attachment)
    Next
End If
client.Send(mMailMessage)

标签： vb.netemail