无法使用Excel VBA中的共享邮箱发送电子邮件

Sub SendEmailFromSharedMailbox()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    With OutlookMail
        .SentOnBehalfOfName = "sharedmailbox@example.com" ' 共享邮箱的地址
        .To = "recipient@example.com" ' 收件人的地址
        .Subject = "邮件主题"
        .Body = "邮件内容"
        .Send
    End With
    
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

Sub SendEmailUsingCDO()
    Dim CDOConfig As Object
    Dim CDOMessage As Object
    
    Set CDOConfig = CreateObject("CDO.Configuration")
    Set CDOMessage = CreateObject("CDO.Message")
    
    With CDOConfig.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' 使用SMTP发送
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.example.com" ' SMTP服务器地址
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' SMTP服务器端口
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' 需要身份验证
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username" ' 发件人用户名
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" ' 发件人密码
        .Update
    End With
    
    With CDOMessage
        Set .Configuration = CDOConfig
        .From = "sharedmailbox@example.com" ' 共享邮箱的地址
        .To = "recipient@example.com" ' 收件人的地址
        .Subject = "邮件主题"
        .TextBody = "邮件内容"
        .Send
    End With
    
    Set CDOMessage = Nothing
    Set CDOConfig = Nothing
End Sub