可以发送带有主机附件的电子邮件

Question

我有以下代码:

//******************************************
//PROC01   EXEC PGM=IEBGENER                
//SYSIN    DD DUMMY                         
//SYSPRINT DD SYSOUT=*                      
//SYSUT2   DD SYSOUT=(B,SMTP)               
//SYSUT1   DD *                               
RCPT TO:<[e-mail]>                
DATA                                                             
SOME TEXT GOES HERE   

我可以将数据集/文件附加到邮件中吗?谢谢。

Answer 1

试试这样写:

//******************************************
//PROC01   EXEC PGM=IEBGENER                
//EMAIL    OUTPUT DEST=EMAIL,
//         USERDATA=('FILENAME:attachment.txt',
//         'TO:<[e-mail]>',
//         'FILEDESC:Sent from MVS'),
//         TITLE=('Sent from MVS'),
//         MAILFROM=('<[e-mail]>'),
//         REPLYTO=('<[e-mail]>')
//SYSIN    DD DUMMY                         
//SYSPRINT DD SYSOUT=*                      
//SYSUT2   DD SYSOUT=Z,OUTPUT=*.EMAIL
//SYSUT1   DD DISP=SHR,DSN=<DSNNAME>

或者，如果您希望附件为PDF格式，则设置为:

//******************************************
//PROC01   EXEC PGM=IEBGENER                
//EMAIL    OUTPUT DEST=EMAILPDF,
//         USERDATA=('FILENAME:attachment.pdf',
//         'TO:<[e-mail]>',
//         'PDFPGSIZ=(826,1169)',
//         'PDFFONT=(COURIER,8)',
//         'FILEDESC:Sent from MVS'),
//         TITLE=('Sent from MVS'),
//         MAILFROM=('<[e-mail]>'),
//         REPLYTO=('<[e-mail]>')
//SYSIN    DD DUMMY                         
//SYSPRINT DD SYSOUT=*                      
//SYSUT2   DD SYSOUT=Z,OUTPUT=*.EMAIL
//SYSUT1   DD DISP=SHR,DSN=<DSNNAME>

希望这对你有用

Answer 2

您应该可以直接添加card:

//DD DSN=，DISP=SHR

到现有作业的末尾。我们一直用这种风格。如前所述，使用OUTPUT卡也是一个选项。