VBA Outlook.Mail / Exchange Setting

Hallo,
ich habe ein Problem.
Wir haben MS Exchange 2016. Bisher konnte ich mit dem folgenden VBA Code, auch E-Mails beantworten die in einem Shared Postfach waren.
Heute wurde gearbeitet und ich kann nur noch aus meinem persönlichen Postfach E-Mails senden.
Da ich unserem Admin letztens schonmal mit einem Setting in Exchange auf die sprünge helfen musste, kennt jemand zuffälig den Exchange Befehl wie man die Kommunikation mittels VBA im Shared Postfach wieder ermöglichen kann?

Danke Euch

LineReplyMail:
    
    ''_______________Send REPLY MAIL WITH SIGNATURE______________

    Dim OutlookApp As Object
    Dim OutlookMail As Object
    
'''    On Error GoTo LineKeineMail
    On Error Resume Next
    Set OutlookApp = CreateObject("Outlook.Application")
    On Error Resume Next
    Set OutlookMail = OutlookApp.ActiveExplorer.Selection.Item(1)
    OutlookMail.Categories = sUserSetFlag   'setzt Kategorie auf sUserSetFlag User, User muss in den Kategorien vorhanden sein
    OutlookMail.FlagStatus = 1              'Hakt die Mail als erledigt ab
    OutlookMail.UnRead = False              'markiert die Mail als gelesen
    OutlookMail.Save                        'Better Safe often
    
    On Error GoTo LineKeineMail
    '~~> Get MailItem.GetConversation method (Outlook)
' https://learn.microsoft.com/en-us/office/vba/api/outlook.mailitem.getconversation

    Dim OutlookConversation As Object
    Set OutlookConversation = OutlookMail.GetConversation

    On Error GoTo LineKeineMail
    '~~> Conversation.GetTable method (Outlook)
' https://learn.microsoft.com/en-us/office/vba/api/outlook.conversation.gettable

    Dim OutlookTable As Object
    Set OutlookTable = OutlookConversation.GetTable
    
    On Error GoTo LineKeineMail
    '~~> Obtains a 2D array from the Table.
' https://learn.microsoft.com/en-us/office/vba/api/outlook.table.getarray

    Dim OutlookAr As Variant
    OutlookAr = OutlookTable.GetArray(OutlookTable.GetRowCount)
    
    On Error GoTo LineKeineMail
    Dim OutlookReplyToThisMail As Object
    Set OutlookReplyToThisMail = OutlookMail.Session.GetItemFromID(OutlookAr(UBound(OutlookAr), 0))

    On Error GoTo LineKeineMail
    With OutlookReplyToThisMail.Reply
        .SentOnBehalfOfName = "Mail@Test.de"
        .ReplyRecipients
        .CC = sKMail
        .Subject = sTitle
        .BodyFormat = 2
        .HTMLBody = sText & .HTMLBody
        .Display
        If sBox = "ini_PVHAKTausch" Then
        .Attachments.Add sAttachment
        End If
        If sBox = "ini_PVHAKUNVOLLST" Then
        .Attachments.Add sAttachment
        End If
        If sSendwithDelay = "JA" Then
        .DeferredDeliveryTime = sSetDateDelayed & sSetTimeDelayed
        End If
    End With
    
    GoTo LineCreateTimestamp


    ''^^^^^^^^^_______________Send REPLY MAIL WITH SIGNATURE______________^^^^^^^^^