EWS API的问题（服务器违反协议）

Question

我正在尝试建立一个通过EWS API发送电子邮件的系统。不幸的是，每次我尝试发送电子邮件时，我都会收到此错误消息： 请求失败。服务器犯有协议违规。部分=响应式详细信息= CR必须遵循LF。

在这里，我提供代码：

        Dim mailFrom As String = "[email protected]"
        Dim mailPass As String = "userPass"

        Try
            Dim service As ExchangeService = New ExchangeService()
            Dim mail As New EmailMessage(service)

            service.TraceEnabled = True
            service.Credentials = New WebCredentials(mailFrom, mailPass)
            service.Url = New Uri("https://email.domain.com/autodiscover/autodiscover.xml")

            mail.From = mailFrom
            mail.ToRecipients.Add(Email.txtEmailRecipient.Text)
            mail.Subject = Email.txtEmailSubject.Text
            mail.Body = Email.txtEmailBody.Text
            mail.SendAndSaveCopy()

            MsgBox("Email sent.")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

预先感谢您的帮助。