Posted by Grant Foraker on March 22, 2007 at 13:41:59:
Onward with EmailPtr. But not too far. Program works. No errors. But no email is delivered. Put in a WAIT so I could copy the EML file created in TMP just before closing LUN(1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
3100!
6000 PRINT (0,2710)
6100 INPUT (0) WORK$
6200 IF WORK$ EQ '' GOTO 9990
6300 3120!
6400 OPEN (1) 'LEP'
6500 PRINT (1) (Log='TESTLOG','COS','ERASE')
6600 PRINT (1) (Server = 'mail.mycompany.com mail')
6700 PRINT (1) (Domain = 'mycompany.com')
6800 PRINT (1) (From = 'Mariah@@mycompany.com')
6900 PRINT (1) (To = WORK$)
7000 PRINT (1) (CC = 'Mariah@@mycompany.com')
7100 PRINT (1) (Subject = 'A/R Inquiry Report')
7200 PRINT (1) (Text = 'Here is the A/R Inquiry Report you requested.')
7300 PRINT (1) (Text = 'Regards, Mariah')
7500 !-------------------------------------------------------------------------------
7600 LET ADATE$ = '200703'
7700 LET A = 200703
7800 LET CUST$ = ' 10'
7900 LET AGEDATE$ = '03/2007'
8000 ENTER 'RA2'
8100 !-------------------------------------------------------------------------------
8200 !!!!!PRINT (1) 'PDF DETAIL LINE 1'
8300 !!!!!PRINT (1) 'PDF DETAIL LINE 2'
8400 !!!!!PRINT (1) 'PDF DETAIL LINE 3'
8500 !!!!!PRINT (1) 'PDF DETAIL LINE 4'
8510 PRINT (1) (EmailDocument='RAReport')
8520 WAIT
8600 CLOSE (1)
8700 PRINT @(0,7);'LEP EMAIL SENT'
8800 GOTO 3100
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ LOG ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Signature Systems Email Printer Started Thu, 22 Mar 2007 12:42:44 -0800 +0100
GMT time will be used for the date
WEOL 1
+OK CRLF will be appended to write records.
TIMEOUT 30
+OK Timeout changed to 30 seconds
CONNECT mail.mycompany.com mail
+OK Connect 192.168.16.2 on port 25
220 mycompany.com Microsoft ESMTP MAIL Service, Version: 6.0.3790.211 ready at Thu, 22 Mar 2007 12:42:44 -0700
EHLO mycompany.com
250-mycompany.com Hello [192.168.16.23]
250-TURN
250-SIZE
250-ETRN
250-PIPELINING
250-DSN
250-ENHANCEDSTATUSCODES
250-8bitmime
250-BINARYMIME
250-CHUNKING
250-VRFY
250-X-LINK2STATE
250-XEXCH50
250 OK
no auth needed
MAIL FROM: Mariah@mycompany.com
250 2.1.0 Mariah@mycompany.com....Sender OK
RCPT TO: GRANT@mycompany.COM
250 2.1.5 GRANT@mycompany.COM
RCPT TO: Mariah@mycompany.com
250 2.1.5 Mariah@mycompany.com
DATA Date: Thu, 22 Mar 2007 19:42:44 GMT . QUIT File "EML111" on "TMP" From: [ First Key ] Records listed: 13
354 Start mail input; end with
From: Mariah@mycompany.com
To: GRANT@mycompany.COM
Cc: Mariah@mycompany.com
Subject: A/R InquirY Report
-- sending body text--
-- sending PDF output--
File name is:"RAReport"
path is:C:\pdfFactory\AutoSave\TMAILP (T00)[250].pdf
250 2.6.0 [mycompany00QvAauNjVuMhv00000038@mycompany.com] Queued mail for delivery
221 2.0.0 mycompany.com Service closing transmission channel
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ EML FILE --------------------------------------
Comet CFAM FileList Utility Version 06.01 03/22/2007 12:48
Record size: 400
Listing from byte 0 for 400 bytes
Primary Key size: 8
Primary Key position: 0
To: [ Last Key ]
Key: 0 0
Record: 0 0 CONNECT mail.mycompany.com mail
Key: 1 0
Record: 1 0 EHLO ssasd.com
Key: 2 0
Record: 2 0 MAIL FROM: Mariah@mycompany.com
Key: 3 0
Record: 3 0 RCPT TO: GRANT@mycompany.COM
Key: 3 1
Record: 3 1 RCPT TO: Mariah@mycompany.com
Key: 4 0
Record: 4 0 From: Mariah@mycompany.com
Key: 4 1
Record: 4 1 To: GRANT@mycompany.COM
Key: 4 2
Record: 4 2 Cc: Mariah@mycompany.com
Key: 6 0
Record: 6 0 Subject: A/R InquirY Report
Key: 7 0
Record: 7 0 Here is the A/R Inquiry Report you requested.
Key: 7 1
Record: 7 1 Regards, Mariah
Key: 8 0
Record: 8 0 TESTLOG,COS,ERASE
Key: 9 0
Record: 9 0 RAReport