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