發送至外部電子郵件失敗

Question

這裏是代碼：

Dim SmtpServer As New SmtpClient() 
    Dim mail As New MailMessage() 
    Dim attachment As System.Net.Mail.Attachment 

    SmtpServer.Credentials = New _ 
    Net.NetworkCredential("administrator@company.com", "1234")  
    SmtpServer.Port = 25 
    SmtpServer.Host = "SmtpServer" 

    mail = New MailMessage() 
    mail.From = New MailAddress("user@company.com.my") 

    mail.To.Add("recipient@external.com") 

    mail.CC.Add("user1@company.com") 
    mail.CC.Add("user2@company.com") 

    mail.Headers.Add("Disposition-Notification-To", "user1@company.com") 'Read receipt 

    mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure 'Fail delivery notification 

    mail.Subject = "Sending Documents" 

    mail.Body = "To Whom May Concern," & vbCrLf _ 
    & vbCrLf & "Please refer to the attachment for the documents." & vbCrLf & _ 
    "NOTE : This is an automatically generated email and will be sent daily." 

    For Each path As String In attch 
     attachment = New System.Net.Mail.Attachment(path) 
     mail.Attachments.Add(attachment) 
    Next 

    Try 
     SmtpServer.Send(mail) 
     SmtpServer = Nothing 

    Catch ex As Exception 
     Response.Write(ex.ToString) 
     Exit Sub 

    End Try 

問題是僅內部電子郵件接收，而不是外部電子郵件。 代碼執行過程中沒有顯示任何錯誤。 關於如何解決這個問題的任何想法？ 或者我需要在Microsoft Exchange Server上配置一些東西嗎？ 也是使用MailMarshal進行過濾的服務器。 高級謝謝您的貢獻反饋。

Answer 1

確保「mail.From」值位於SMTP服務器允許的列表中。可能是中繼不允許。