bvstone

Sending/Resending Emails Using a MIME File with MAILTOOL

Posted:

Sending/Resending Emails Using a MIME File with MAILTOOL

We have some customers that like to write their own programs to resend emails when they error out and being sent with MAILTOOL.

Normally I share this code snippet with them to help them get going.  It's part of the code that is used in the MTPLUSLOG and MTPRESEND commands used to resend emails using the MAILTOOL Plus log files.

I hope this helps some customers.  

if (emailID > 0);
  // emailID is the mail ID from the log files
  CHAIN emailID MTPLOGH1;

  if (%found(MTPLOGH1));

    if (mailtool_init() >= 0);
      rc = mailtool_setValue('configuration_file':MPHCONFIG);
      rc = mailtool_loadDefaults();
      rc = mailtool_setValue('mime_file':MPHMIME);

      SETLL WFID MTPLOGD1;
      READE(n) WFID MTPLOGD1;

      // add recipients
      dow (not %eof(MTPLOGD1));
        mailtool_addRecipient(MPDRCP:' ':MPDRCPT);

        READE(n) WFID MTPLOGD1;
      enddo;

      rc = mailtool_sendMail(errMsg);

      if (rc < 0);
        // error - this will add a new entry to the error logs
        //  so deleting the log records below won't have duplicate
        //  errors if this fails.
      else;
        // success
      endif;
      
      // delete header record
      DELETE RMTPLOGH;

      // delete detail records
      SETLL WFID MTPLOGD1;
      READE WFID MTPLOGD1;

      dow (not %eof(MTPLOGD1));
        DELETE RMTPLOGD;
        READE WFID MTPLOGD1;
      enddo;

    endif;

  endif;

else;
  // error invalid email ID     
endif;

The file operations would most likely be SQL if I were to write this today, and there should also be more error checking (for example, checking to make sure the MIME and JSON configuration files exist) but for the most part this should be 90% of the process required to make your own email resending application.

As always, feel free to contact us with any questions.


Last edited 11/08/2022 at 07:44:05



Latest Posts:

BVSTools Releases Send Job Log to BVSTools (SNDLOG2BVS) Command BVSTools Releases Send Job Log to BVSTools (SNDLOG2BVS) Command
Posted by August 28, 2023
BVSTools >> BVSTools Announcements
MAILTOOL Now Allows Email Redirection for Development and Testing MAILTOOL Now Allows Email Redirection for Development and Testing
Posted by May 27, 2023
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
GreenTools for Microsoft Apps (G4MS) Now Supports Footers When Sending Email GreenTools for Microsoft Apps (G4MS) Now Supports Footers When Sending Email
Posted by March 29, 2023
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
QuickBooks Online - Subtotals and Discounts Frustration QuickBooks Online - Subtotals and Discounts Frustration
Posted by March 16, 2023
QuickBooks >> QuickBooks Online
Making the Switch From QuickBooks Desktop to QuickBooks Online - No Picnic Making the Switch From QuickBooks Desktop to QuickBooks Online - No Picnic
Posted by March 16, 2023
QuickBooks >> QuickBooks Online
BVSTools Software Verified on V7R5 and Power10 BVSTools Software Verified on V7R5 and Power10
Posted by December 9, 2022
BVSTools >> BVSTools Announcements
Microsoft Office 365 Servers and Random Errors Issue Microsoft Office 365 Servers and Random Errors Issue
Posted by November 14, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending/Resending Emails Using a MIME File with MAILTOOL Sending/Resending Emails Using a MIME File with MAILTOOL
Posted by November 8, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending an HTML Email on Your IBM i Using MAILTOOL Sending an HTML Email on Your IBM i Using MAILTOOL
Posted by November 1, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Transferring License Keys from One System to Another Transferring License Keys from One System to Another
Posted by October 31, 2022
BVSTools >> BVSTools Software Discussion
Calculating the Size of a File Before Base64 Encoding Calculating the Size of a File Before Base64 Encoding
Posted by August 13, 2022
Programming >> RPG Programming
GreenTools for Microsoft Apps (G4MS) v9.12 Now Includes Function to Send Emails using MIME File GreenTools for Microsoft Apps (G4MS) v9.12 Now Includes Function to Send Emails using MIME File
Posted by August 11, 2022
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
GreenTools for Google Apps (G4G) v15.20 Now Supports Shortcuts GreenTools for Google Apps (G4G) v15.20 Now Supports Shortcuts
Posted by August 6, 2022
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
GreenTools for Microsoft Apps (G4MS) Groups Admin Authority Instructions GreenTools for Microsoft Apps (G4MS) Groups Admin Authority Instructions
Posted by July 26, 2022
BVSTools >> BVSTools Software Discussion >> GreenTools for Microsoft Apps (G4MS) Specific Discussion
GreenTools for Microsoft Apps (G4MS) v9.10 Now Includes OneDrive Functions that Work With Groups/Shared Drives GreenTools for Microsoft Apps (G4MS) v9.10 Now Includes OneDrive Functions that Work With Groups/Shared Drives
Posted by July 19, 2022
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements

Reply




Copyright 1983-2020 BVSTools
GreenBoard(v3) Powered by the eRPG SDK, MAILTOOL Plus!, GreenTools for Google Apps, jQuery, jQuery UI, BlockUI, CKEditor and running on the IBM i (AKA AS/400, iSeries, System i).