Using Redemption

[ezequiel]

Hi, I need to send e-mail messages from a Progress 9.1 program, without the Outlook security messages.

We use Windows XP on workstations, and MS-Exchange Server 2003.

I have downloaded REDEMPTION and installed oin my workstation, and honestly I don´t know what to do now.

May anyboy send me some sample code?

Thanks

 

[ezequiel]

Well, I answer myself, it is quite easy. I found example code in another thread and adapted it to my needs.


DEFINE INPUT PARAMETER cAsunto AS CHARACTER.
DEFINE INPUT PARAMETER cDestino AS CHARACTER.
DEFINE INPUT PARAMETER cCuerpo AS CHARACTER.

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)

ASSIGN
MailItem = Folder:Items:Add()
MailItem:To = TRIM(cDestino)
MailItem:Subject = TRIM(cAsunto)
MailItem:Body = TRIM(cCuerpo)
MailItem:Importance = 0.


MailItem:OriginatorDeliveryReportRequested = FALSE.

MailItem:ReadReceiptRequested = FALSE.


CREATE "Redemption.SafeMailItem" SafeItem.

SafeItem:item = MailItem.
SafeItem:SEND().

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 PROCEDURE.