如何指定SNDSMTPEMM命令不处理的电子邮件地址变量？

针对你遇到的SNDSMTPEMM无法通过*NONE忽略空收件人变量、且不想多次调用命令的问题，最直接的优化方案是在CL程序中动态构建命令字符串，只拼接有效的收件人地址，实现单次调用完成所有收件人的邮件发送。

核心思路 #

SNDSMTPEMM的TO/CC/BCC参数本身支持逗号分隔的多个邮件地址，因此我们可以遍历所有20个收件人变量，将非空的地址按类型（主送/抄送/密送）分别拼接成逗号分隔的字符串，再把这些字符串作为参数传入单次SNDSMTPEMM调用，完全跳过空变量的处理。

示例CL代码实现 #

/* 定义变量：假设已通过命令界面收集20组TO/CC/BCC地址，存储在&TO1-&TO20、&CC1-&CC20、&BCC1-&BCC20中 */
DCL        VAR(&TO_LIST) TYPE(*CHAR) LEN(5120) /* 足够容纳20个256字符地址的拼接结果 */
DCL        VAR(&CC_LIST) TYPE(*CHAR) LEN(5120)
DCL        VAR(&BCC_LIST) TYPE(*CHAR) LEN(5120)
DCL        VAR(&ADDR) TYPE(*CHAR) LEN(256)
DCL        VAR(&I) TYPE(*INT) LEN(5)
DCL        VAR(&CMD) TYPE(*CHAR) LEN(10000)
DCL        VAR(&ATTACH_LIST) TYPE(*CHAR) LEN(5120) /* 处理附件的变量，可拼接非空路径或设为*NONE */

/* 初始化拼接变量 */
CHGVAR     VAR(&TO_LIST) VALUE('')
CHGVAR     VAR(&CC_LIST) VALUE('')
CHGVAR     VAR(&BCC_LIST) VALUE('')

/* 遍历主送地址，拼接非空值 */
DOFOR      VAR(&I) FROM(1) TO(20)
  CHGVAR     VAR(&ADDR) VALUE(%SST(&TO&I 1 256))
  IF         COND(&ADDR *NE '') THEN(DO)
    /* 如果已有地址，先加逗号分隔 */
    IF         COND(&TO_LIST *NE '') THEN(CHGVAR VAR(&TO_LIST) VALUE(&TO_LIST *CAT ','))
    /* 若地址含特殊字符（如逗号、空格），用单引号包裹 */
    IF         COND(&ADDR *CNT ',' *GT 0 + &ADDR *CNT ' ' *GT 0) THEN(
      CHGVAR     VAR(&ADDR) VALUE('''' *CAT &ADDR *CAT '''')
    )
    CHGVAR     VAR(&TO_LIST) VALUE(&TO_LIST *CAT &ADDR)
  ENDDO
ENDDO

/* 同理处理抄送、密送地址 */
DOFOR      VAR(&I) FROM(1) TO(20)
  CHGVAR     VAR(&ADDR) VALUE(%SST(&CC&I 1 256))
  IF         COND(&ADDR *NE '') THEN(DO)
    IF         COND(&CC_LIST *NE '') THEN(CHGVAR VAR(&CC_LIST) VALUE(&CC_LIST *CAT ','))
    IF         COND(&ADDR *CNT ',' *GT 0 + &ADDR *CNT ' ' *GT 0) THEN(
      CHGVAR     VAR(&ADDR) VALUE('''' *CAT &ADDR *CAT '''')
    )
    CHGVAR     VAR(&CC_LIST) VALUE(&CC_LIST *CAT &ADDR)
  ENDDO
ENDDO

DOFOR      VAR(&I) FROM(1) TO(20)
  CHGVAR     VAR(&ADDR) VALUE(%SST(&BCC&I 1 256))
  IF         COND(&ADDR *NE '') THEN(DO)
    IF         COND(&BCC_LIST *NE '') THEN(CHGVAR VAR(&BCC_LIST) VALUE(&BCC_LIST *CAT ','))
    IF         COND(&ADDR *CNT ',' *GT 0 + &ADDR *CNT ' ' *GT 0) THEN(
      CHGVAR     VAR(&ADDR) VALUE('''' *CAT &ADDR *CAT '''')
    )
    CHGVAR     VAR(&BCC_LIST) VALUE(&BCC_LIST *CAT &ADDR)
  ENDDO
ENDDO

/* 处理附件：若所有附件变量为空，设为*NONE；否则拼接非空路径 */
/* 此处省略附件拼接逻辑，可参考收件人的处理方式 */
CHGVAR     VAR(&ATTACH_LIST) VALUE('*NONE') /* 示例：默认无附件，可根据实际修改 */

/* 构建最终的SNDSMTPEMM命令字符串 */
CHGVAR     VAR(&CMD) VALUE('SNDSMTPEMM TO(' *CAT &TO_LIST *CAT ') ')
IF         COND(&CC_LIST *NE '') THEN(CHGVAR VAR(&CMD) VALUE(&CMD *CAT 'CC(' *CAT &CC_LIST *CAT ') '))
IF         COND(&BCC_LIST *NE '') THEN(CHGVAR VAR(&CMD) VALUE(&CMD *CAT 'BCC(' *CAT &BCC_LIST *CAT ') '))
CHGVAR     VAR(&CMD) VALUE(&CMD *CAT 'ATTACH(' *CAT &ATTACH_LIST *CAT ') SUBJECT(''输出队列内容'')')

/* 检查主收件人列表非空，避免命令报错 */
IF         COND(&TO_LIST *NE '') THEN(
  CALL       PGM(QCMDEXC) PARM(&CMD %LEN(&CMD))
) ELSE(
  /* 无有效主收件人时的错误处理，比如发送消息到作业日志 */
  SNDPGMMSG  MSGID(CPF9897) MSGF(QCPFMSG) MSGDTA('未指定有效主收件人地址') TOPGMQ(*EXT) MSGTYPE(*INFO)
)

关键注意事项 #

• 变量长度要足够：拼接后的收件人列表、命令字符串需要预留足够的长度，避免截断（示例中用了5120和10000长度，可根据实际地址长度调整）。
• 特殊字符处理：如果邮件地址包含逗号、空格等特殊字符，必须用单引号包裹，否则SNDSMTPEMM会解析失败。
• 收件人合法性检查：确保至少有一个主送（TO）地址，否则命令会执行失败，需在代码中加入判断逻辑。

内容的提问来源于stack exchange，提问作者user3763812