Bevölkerung von ComboBoxes VBA

Question

Ich habe diesen VBA-Code:

Sub sendByCustomForm()
Dim olItem As Outlook.MailItem
Dim sText As String

If Application.ActiveExplorer.Selection.Count = 0 Then
    MsgBox "Keine Elemente ausgewählt!", vbCritical, "Fehler"
    Exit Sub
End If

For Each olItem In Application.ActiveExplorer.Selection
    sText = olItem.Body

    Set msg = Application.CreateItemFromTemplate("C:\myCustomForm.oft")
    MsgBox sText, vbInformation, "Benachrichtigung"

    With msg
        'Set body format to HTML
        .BodyFormat = Outlook.OlBodyFormat.olFormatHTML
        .HTMLBody = "" + sText + ""
        .Display
    End With
Next olItem    
End Sub

Diese Vorlage hat 2 Comboboxen, die ich befüllen möchte, aber wie kann ich das machen?

Wenn ich das versuche:

msg.ComboBox1.AddItem "Element"

funktioniert es nicht...

Answer 1

Versuch es mal:

'Für Zugriff
msg.ComboBox1.RowSource = msg.ComboBox1.Rowsource & ";'Artikel'"

Aktualisierung:

Mit ComboBox        
.AddItem "Option 1"        
.AddItem "Option 2"        
.AddItem "Option 3"
End With

Answer 2

Sub emailfromexcel()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
    .To = "person@email.com"
    .BCC = thebcc
    .Subject = "Dieses Betreff"
    .Body = "Dieser Inhalt"
    .Display
    .Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub