outlook - Populating ComboBoxes VBA -

I have this VBA code:

  Send all BYCustomForm () Dim olItem In the form of the string as Outlook.MailItem DMTtext in the application. ActiveX Explorer.Search.Count = 0 Then MSBBX "No Items Selected!", VbCritical, "Error" Exit the sub-end if for each olItem in the application. ActiveExplorer.Selection sText = olItem.Body Set msg = application Set ITEM FrameTemplate ("C: \ myCustomForm.oft") MsgBox sText, vbInformation, "Warning" msg 'to set body format in HTML. Bodyformat = outlook OlibodiFormat.LOFformatHTMLHTMLboody = "& lt; html> gt; bilia & gt;" + SText + "& lt; / body & gt; & lt; / html & gt;"   
 That template has 2 comboboxes that I want to populate, but how can I do this?  
 When I try this:  
  msg.ComboBox1.AddItem "item"   
 This does not work .. .   
 
 
 Try it out:  
  msg.ComboBox1 for access .RowSource = msg.ComboBox1.Rowsource & amp; With combo box. Additum "Option 1" .Additum "Option 2" .AddItem with "Option 3" End