CreateEmailDC Example for Visual Basic

Private Sub CreateEmailDC_Click()
   Dim DeviceSetting As New EpnDeviceSettings
   Dim MultiSaveOptions As New EpnMultiSaveOptions
   Dim ExtraDcOptions As New EpnExtraDcOptions
   Dim MailMessageInfo  As New EpnMailMessageInfo
   
   Dim ePrint As New ePrint
   Dim hDC As Long
   
   Const TEST_PRINTER_NAME = "Test Printer Name"
   
   If ePrint.IsSupportLocked (SUPPORT_OEM) Then
      ePrint.UnlockSupport SUPPORT_OEM, OEM_KEY
   End If
   
   ePrint.GetPrinterSaveOptions TEST_PRINTER_NAME, MultiSaveOptions
   
   ExtraDcOptions.Password = "Test Password"
   
   MailMessageInfo.To = "someone@domain.com"
   MailMessageInfo.Subject = "Subject"
   MailMessageInfo.Body = "Testing"
   MailMessageInfo.EmailSaveOptionsIndex = 0
   
   hDC = ePrint.CreateEmailDC (TEST_PRINTER_NAME, DeviceSetting, MailMessageInfo, MultiSaveOptions.PrinterSaveOptions (0), ExtraDcOptions) 
   
   ePrint.StartDoc hDC, "Test"
   RichTextBox1.SelPrint hDC
   ePrint.EndDoc hDC

   ePrint.DeleteDC hDC
End Sub