Email Bcc Cc

halli hallo ich suche jemandem der mir helfen kann
und zwar wie kriege ich die ausgewählte email adresse in neu Email als Bcc
ich habe folgende code

Private Sub NewMail_Click() :question: 😡

On Error Resume Next
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = CreateObject(\“Word.Application\“)
Set wdDoc = wdApp.Documents.Add(DocumentType:=wdNewEmailMessage)

wdApp.Visible = True
wdApp.ActiveWindow.EnvelopeVisible = True
End Sub 🙁

Private Sub OVCtl1_BeforeViewSwitch(ByVal newView As String, Cancel As Boolean)

End Sub

Private Sub UserForm_Initialize()

Dim objFolderInbox As MAPIFolder
Dim objFolder As MAPIFolder
Dim strFilter As String
Set objFolderInbox = _
Application.GetNamespace(\“MAPI\“).GetDefaultFolder(olFolderInbox)
OVCtl1.Folder = objFolderInbox.FolderPath
Me.Caption = objFolderInbox.FolderPath
cmbView.List = GetFolderViews(objFolderInbox)
cmbView.Value = OVCtl1.View

End Sub

\’______________________________________________________________
\’______________________________________________________________

Function GetFolderViews(objFolder As MAPIFolder) As Variant
On Error Resume Next
Dim avarArray
Dim i As Integer
ReDim avarArray(objFolder.Views.Count – 1)
For i = 1 To objFolder.Views.Count
avarArray(i – 1) = objFolder.Views(i).Name
Next
GetFolderViews = avarArray
End Function

die daten werden im aktivem fenster ausgegeben (so änliches wie im outloock)
da kann ich auch kontakten markieren
und ich will dass beim klick auf email button eine neue email aufgeht wo in Bcc schon email adressen von markierten kontakten stehen…

wenn jemand die code für \“Email an kontakt senden\“ kennt ich werde es auch gern wissen wie es funktioniert (besonders weil es fast dass was ich haben will ist)
mfg