Zharik написал(а):
Зачем же так просто. Можно сложнее, но прикольнее и функционала побольше.
Значит так:
data:
MS_MAIL_CONT TYPE MCMAILOBJ occurs 0,
l_MS_MAIL_CONT TYPE MCMAILOBJ,
MESSAGE(200) type C,
end_data.
clear l_MS_MAIL_CONT.
refresh MS_MAIL_CONT.
l_MS_MAIL_CONT-OBJNR = '0'.
l_MS_MAIL_CONT-OBJLEVEL = '0'.
l_MS_MAIL_CONT-OBJTYPE = '000'.
l_MS_MAIL_CONT-OBJNAM = 'OBJNAM'.
l_MS_MAIL_CONT-OBJDES = 'Заголовок сообщения'.
message = 'Тест сообщения'.
l_MS_MAIL_CONT-OBJLINE = MESSAGE.
append l_MS_MAIL_CONT to MS_MAIL_CONT.
message = 'Вторая строка сообщения'.
l_MS_MAIL_CONT-OBJLINE = MESSAGE.
append l_MS_MAIL_CONT to MS_MAIL_CONT.
CALL FUNCTION 'MC_SEND_MAIL'
EXPORTING
MS_MAIL_SENDMODE = 'B'
* MS_MAIL_TITLE =
* MS_MAIL_DESCRIPTION =
MS_MAIL_RECEIVER = sy-uname
MS_MAIL_EXPRESS = 'X'
* MS_MAIL_DLINAME =
MS_MAIL_LANGU = SY-LANGU
* MS_MAIL_FUNKOBJ_TYP =
* MS_MAIL_FUNKOBJ_NAME =
* IMPORTING
* MS_OK_CODE =
TABLES
MS_MAIL_CONT = MS_MAIL_CONT
* MS_MAIL_FUNKOBJ_PARM =
* MS_MAIL_SETGET_PARM =
* MS_MAIL_RECEIVERS =
.
Вот такая красота. MS_MAIL_EXPRESS = 'X' - будет выскакивать как срочное. ' ' - просто ложиться в папку.
:twisted:
А можно это приспособить для оправки внешней почты?
MS_MAIL_SENDMODE = 'U'
как задать адрес почты и тип адреса 'INT'