Makro, das Vorlage festlegen, weitere Empfänger hinzufügen und Betreffzeile bearbeiten kann

Question

Ich bin neu bei VBA und möchte ein Outlook-Makro erstellen, das basierend auf dem Feld „An“ entscheiden kann, welche Vorlage verwendet werden soll, einen bestimmten Empfänger zu den Feldern „CC“ und „BCC“ hinzufügen und dem vorhandenen Betreff eine Zeichenfolge hinzufügen kann (z. B. „Beispielbetreff“ --> „Bestätigung\Beispielbetreff“).

Meine Bemühungen haben Folgendes ergeben:

Sub PO_confirmation()

    Dim myItem As Outlook.mailItem

    Dim recipients As Outlook.recipients
    Dim recipientTo As Outlook.recipient
    Dim recipientCC As Outlook.recipient
    Dim recipientBCC As Outlook.recipient

    Set myItem = ActiveInspector.CurrentItem


    Set recipientTo = myItem.recipients.Add("[email protected]")
    recipientTo.Type = Outlook.OlMailRecipientType.olTo

    Set recipientCC = myItem.recipients.Add("[email protected]")
    recipientCC.Type = Outlook.OlMailRecipientType.olCC

    Set recipientBCC = myItem.recipients.Add("[email protected]")
    recipientBCC.Type = Outlook.OlMailRecipientType.olBCC

    initialSubj = myItem.Subject
    myItem.Subject = "RE:ABC-" & initialSubj

    myItem.Display

End Sub

Jetzt besteht das Problem darin, dass der BCC-Empfänger immer im Feld „An“ angezeigt wird. Ich kann nicht sagen, was schiefgelaufen ist.