如何在VB.Net中获取EWS邮件的OAuth2令牌？

错误原因分析 #

你编写的VB.Net代码报错，核心原因是VB.Net与C#的链式调用语法规则不同：

• C#允许换行后直接用.继续调用方法，但VB.Net不支持这种写法，必须使用行连接符_拆分多行，或借助With语句实现。
• 另外你代码中的HttpClientFactory未实例化，若无需自定义HttpClient工厂可直接移除该方法调用。

完整VB.Net实现代码 #

先确保项目已安装以下NuGet包：

• Microsoft.Identity.Client（建议和C#项目使用相同版本，如4.22.0）
• Microsoft.Exchange.WebServices

以下是可直接运行的完整代码：

Imports Microsoft.Identity.Client
Imports Microsoft.Exchange.WebServices.Data
Imports System.Configuration

' VB.Net异步方法需标记Async关键字
Async Function GetEwsOAuthTokenAndAccessMailbox() As Task
    ' 从配置文件读取参数，生产环境避免硬编码敏感信息
    Dim appId As String = ConfigurationManager.AppSettings("appId")
    Dim clientSecret As String = ConfigurationManager.AppSettings("clientSecret")
    Dim tenantId As String = ConfigurationManager.AppSettings("tenantId")
    Dim targetMailbox As String = "meganb@contoso.onmicrosoft.com"

    ' 正确构建ConfidentialClientApplication实例
    Dim cca As IConfidentialClientApplication = ConfidentialClientApplicationBuilder.Create(appId) _
        .WithClientSecret(clientSecret) _
        .WithTenantId(tenantId) _
        .Build()

    ' EWS所需的权限范围
    Dim ewsScopes As String() = {"https://outlook.office365.com/.default"}

    Try
        ' 获取应用权限令牌
        Dim authResult As AuthenticationResult = Await cca.AcquireTokenForClient(ewsScopes).ExecuteAsync()

        ' 配置ExchangeService
        Dim ewsClient As New ExchangeService()
        ewsClient.Url = New Uri("https://outlook.office365.com/EWS/Exchange.asmx")
        ewsClient.Credentials = New OAuthCredentials(authResult.AccessToken)
        ' 设置要模拟的目标邮箱
        ewsClient.ImpersonatedUserId = New ImpersonatedUserId(ConnectingIdType.SmtpAddress, targetMailbox)
        ' 添加X-AnchorMailbox头优化EWS请求性能
        ewsClient.HttpHeaders.Add("X-AnchorMailbox", targetMailbox)

        ' 测试EWS调用：获取邮件根目录下前10个文件夹
        Dim folders As FolderCollection = ewsClient.FindFolders(WellKnownFolderName.MsgFolderRoot, New FolderView(10))
        For Each folder In folders
            Console.WriteLine($"Folder: {folder.DisplayName}")
        Next
    Catch ex As MsalException
        Console.WriteLine($"获取访问令牌出错: {ex.Message}")
    Catch ex As Exception
        Console.WriteLine($"EWS请求出错: {ex.Message}")
    End Try
End Function

关键语法与注意事项 #

1. 链式调用换行：VB.Net中使用_作为行连接符，将链式调用拆分为多行，避免语法错误。
2. 异步处理规则：VB.Net异步方法必须标记Async，返回类型为Task或Task(Of T)，调用异步方法时需用Await关键字。
3. 敏感信息管理：生产环境请勿硬编码appId、clientSecret等敏感数据，优先使用配置文件或密钥管理服务。
4. 自定义HttpClient工厂：若需自定义HttpClient，可实现IHttpClientFactory接口后，添加.WithHttpClientFactory(New YourCustomHttpClientFactory())调用。

内容的提问来源于stack exchange，提问作者user1