title: Outlook VBA to create new draft email for each Contact Group in contact list
body: <p>Is there a VBA script that will </p>
  
  <ul>
  <li>Create a draft email for each Contact Group</li>
  <li>With the Contact Group's contacts in the "TO" field</li>
  <li>With a uniform Subject</li>
  <li>With a uniform Body</li>
  <li>...and bonus if the body includes the Signature</li>
  </ul>
  
  <p><strong>Background:</strong>
  In my contact list I have about 50 Contact Groups, each representing a client, and each containing multiple contacts. Once a month, I must email an invoice to each client. This currently entails </p>
  
  <ul>
  <li>creating an email for each of the 50 Contact Groups</li>
  <li>copying a subject line to each of the 50 drafts</li>
  <li>copying a body to each of the 50 drafts</li>
  </ul>
  
  <p>I've found plenty of references for creating emails via VBA, but nothing about using Contact Groups to power it.</p>
  
  <pre><code>    Sub NewEmail()
      Dim myOutlook As Outlook.Application
      Dim objMailMessage As Outlook.MailItem
      Set myOutlook = Outlook.Application
      Set objMailMessage = myOutlook.CreateItem(0)
          With objMailMessage
              .To = "" '?
              .Subject = "Email subject"
              .Body = "Email body." 'Msg + Signature?
              .Display
              .Save
              .Close olPromptForSave
          End With
      End Sub
  </code></pre>