title: Populating ComboBoxes VBA
body: <p>I have this VBA code:</p>
  
  <pre><code>Sub sendByCustomForm()
  Dim olItem As Outlook.MailItem
  Dim sText As String
  
  If Application.ActiveExplorer.Selection.Count = 0 Then
      MsgBox "No Items selected!", vbCritical, "Error"
      Exit Sub
  End If
  
  For Each olItem In Application.ActiveExplorer.Selection
      sText = olItem.Body
  
      Set msg = Application.CreateItemFromTemplate("C:\myCustomForm.oft")
      MsgBox sText, vbInformation, "alert"
  
      With msg
          'Set body format to HTML
          .BodyFormat = Outlook.OlBodyFormat.olFormatHTML
          .HTMLBody = "&lt;HTML&gt;&lt;BODY&gt;" + sText + "&lt;/BODY&gt;&lt;/HTML&gt;"
          .Display
      End With
  Next olItem    
  End Sub
  </code></pre>
  
  <p>That template has 2 ComboBoxes that I want to populate, but how can I do this?</p>
  
  <p>When I try this: </p>
  
  <pre><code>msg.ComboBox1.AddItem "item"
  </code></pre>
  
  <p>it doesn't work...</p>