ABAP EFG_GEN_SEND_EMAIL fonksiyonu ile basit mail gönderme örneği


REPORT zpnt_fd_dnm2.
TYPES: BEGIN OF ty_lines,
line TYPE char255,
END OF ty_lines.
DATA: ti_lines TYPE STANDARD TABLE OF ty_lines,
wa_lines TYPE ty_lines.
DATA: title TYPE string,
sender_email TYPE string,
receiver_email TYPE string.

title = 'Mail başlığı-TEST'.

CLEAR wa_lines.
wa_lines-line = 'Merhaba.(Satır-1)'.
APPEND wa_lines TO ti_lines.

CLEAR wa_lines.
wa_lines-line = 'Bu bir test maili. (Satır-2)'.
APPEND wa_lines TO ti_lines.

sender_email = 'fdonmez@penti.com.tr'.
receiver_email = 'fdonmez@penti.com.tr'.

CALL FUNCTION 'EFG_GEN_SEND_EMAIL'
EXPORTING
i_title = title
i_sender = sender_email
i_recipient = receiver_email
i_flg_commit = 'X'
i_flg_send_immediately = 'X'
TABLES
i_tab_lines = ti_lines
EXCEPTIONS
not_qualified = 1
failed = 2
OTHERS = 3.

IF sy-subrc NE 0.
WRITE: 'hata...!'.
ELSE.
WRITE: 'basarili...!'.
ENDIF.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir