Set Email Account for New Message From VBA

For convenience, I want to create a button in Outlook that creates a MailItem and sets some properties. Specifically, I want to have a button for creating a private email message. The code should:
1 - Create a new message.
2 - Set the BodyFormat to plain text.
3 - Set the email account to my private account.
4 - Display the new message with the focus set to the Body textbox.
Number 3 has me stumped. It seems Outlook doesn't expose the selected email account for a MailItem in its object model. Any ideas? (SendKeys is not an option.)

Public Sub CreatePrivateEmail()
   Dim eml As Outlook.MailItem
   Set eml = ThisOutlookSession.CreateItem(olMailItem) '               1
   With eml
      .BodyFormat = olFormatPlain '                                               2
      'Code to set the selected account to my private email account   3, no idea how to do it
      .Display '                                                                              4
   End With
End Sub