Skip to main content

Sending email to outlook with security issue, REDEMPTION installed

  • February 25, 2011
  • 26 replies
  • 1 view

Show first post

26 replies

Dominique Sacre
Forum|alt.badge.img+2

[Migrated content. Thread originally posted on 24 February 2011]

How can help me. A mail and the attachment(pdf) out of my invoice program is going to outlook. That works fine, but still the securty warning of outlook is comming even when I installed the develop licence of REDEMPTION.
I use a def of outlook and one of redemption.
     
       77  OUTLOOK-APP             HANDLE OF APPLICATION of OUTLOOK.
       77  OUTLOOK-MAIL            HANDLE OF MAILITEM of OUTLOOK.
       77  NAMESPACE-HANDLE        HANDLE OF NAMESPACE of OUTLOOK.
       77  CNTCTMAP-HANDLE         HANDLE OF MAPIFOLDER of OUTLOOK.
       77  INBOXMAP-HANDLE         HANDLE OF MAPIFOLDER of OUTLOOK.
       77  CONTACT-HANDLE          HANDLE OF CONTACTITEM of OUTLOOK.
       77  ATTACH-HANDLE           HANDLE OF ATTACHMENTS of OUTLOOK.
       77  REDEMPTION-MAIL-ITEM    HANDLE OF SAFEMAILITEM of REDEMPTION.

           MODIFY    OUTLOOK-APP, CREATEITEM (OLMAILITEM)
                                             GIVING  OUTLOOK-MAIL
           MODIFY    REDEMPTION-MAIL-ITEM @ITEM =
                     OUTLOOK-MAIL AS VT-DISPATCH
           MODIFY    OUTLOOK-MAIL @SUBJECT H11-ONDERWERP
           IF        HTML-OUTL
                     MODIFY    OUTLOOK-MAIL @HTMLBODY H11-BERICHT
           END-IF.
           IF        TEKST-OUTL         
                     MODIFY    OUTLOOK-MAIL @BODY H11-BERICHT
           END-IF.
           MODIFY    OUTLOOK-MAIL @TO H11-MAILNAAR
           IF        H11-BIJLAGE              NOT =  SPACES
                     INQUIRE   OUTLOOK-MAIL ATTACHMENTS IN ATTACH-HANDLE
                     MODIFY    ATTACH-HANDLE @ADD
                     (H11-BIJLAGE, OLBYVALUE, 1, "Zie bijlage")
           END-IF
           MODIFY    OUTLOOK-MAIL @SEND ()
           DESTROY   OUTLOOK-MAIL
           MOVE      1                           TO  I01
           .


What does this peace of de sourceline? : OUTLOOK-MAIL AS VT-DISPATCH
Unfortunately version 9.0 introduced a bug for the DESTROY verb. Contact technical support and ask for a 9.0 patch with ecn 4091. With this the DESTROY bug should go away.