DO WITH FRAME {&FRAME-NAME}:
DEFINE VARIABLE attach-name AS CHARACTER NO-UNDO.
DEFINE VARIABLE Folder AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE MailItem AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE message-text AS CHARACTER NO-UNDO.
DEFINE VARIABLE NameSpace AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE Outlook AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE priority AS CHARACTER NO-UNDO.
DEFINE VARIABLE SafeItem AS COM-HANDLE NO-UNDO.
CREATE "Outlook.Application" Outlook.
ASSIGN
NameSpace = Outlook:GetNameSpace("MAPI":U)
Folder = NameSpace:GetDefaultFolder(6)
attach-name = SESSION:TEMP-DIRECTORY + PDFFileName.
ASSIGN
MailItem = Folder:Items:Add()
MailItem:To = scr-To:SCREEN-VALUE
MailItem:Subject = scr-Subject:SCREEN-VALUE
MailItem:Body = TRIM(ed-Mess:SCREEN-VALUE)
MailItem:Importance = 0.
MailItem:OriginatorDeliveryReportRequested = IF tDR:SCREEN-VALUE = "YES"
THEN TRUE ELSE FALSE.
MailItem:ReadReceiptRequested = IF tRR:SCREEN-VALUE = "YES"
THEN TRUE ELSE FALSE.
MAilItem:Attachments:ADD(attach-name).
/* Redemption addition */
CREATE "Redemption.SafeMailItem" SafeItem.
SafeItem:item = MailItem.
SafeItem:SEND().
/* addition ended */
RELEASE OBJECT MailItem NO-ERROR.
RELEASE OBJECT Folder NO-ERROR.
RELEASE OBJECT NameSpace NO-ERROR.
RELEASE OBJECT Outlook NO-ERROR.
RELEASE OBJECT SafeItem NO-ERROR.
END.
END PROCEDURE.