Ok, found the proper way to do this.
VB Code:
  1. Dim oDoc As Word.Document

  2.     Set oDoc = ActiveDocument

  3.     With oDoc.MailMerge.DataSource

  4.         .FirstRecord = 1

  5.         .LastRecord = .RecordCount

  6.     End With

  7.     With oDoc.MailMerge

  8.         'If OptPrinter.Value = True Then

  9.             '.Destination = wdSendToNewDocument 'wdSendToNewDocument;wdSendToPrinter; wdSendToFax; wdSendToEmail

  10.         'ElseIf optFax.Value = True Then

  11.             '.Destination = wdSendToFax

  12.         'ElseIf optEmail.Value = True Then

  13.             .Destination = wdSendToEmail

  14.             .MailSubject = "RobDog888 VB/Word Guru™"

  15.             .MailAddressFieldName = "FieldThatContainsTheEmailAddresses"

  16.             .MailAsAttachment = False

  17.             .MailFormat = wdMailFormatHTML

  18.             .Execute

  19.         'End If

  20.     End With