Send Email with diff user id .

Question

hello experts ,
                  i have a program which can send mails to other user but it by default takes my used id as sender's mail id . This program is working fine , but is there any way possible to hide my sender's mail id and show some other mail id in sender to the recipients?
thanks in advance

Answer 1

Hello,
Either change it in SU01 or use this code to temporarily change it
These are the parameters
P_FNAME     TYPE     AD_NAMEFIR  " first name
P_LNAME     TYPE     AD_NAMEFIR  " surname
PX_NAME     TYPE     XFLAG             " name will only be changed if this flag is set
P_FROM     TYPE     AD_SMTPADR " sender email id
PX_FROM     TYPE     XFLAG             " sender email id will only be changed if this flag is set
* populate sender name if specified
  data: lv_persnumber type AD_PERSNUM.
  data: lv_ADDRNUMBER type AD_ADDRNUM.
  data: lv_oldemail type AD_SMTPADR.
  data: lv_oldfname type AD_NAMEFIR.
  data: lv_oldlname type AD_NAMELAS.
  data: lv_oldfullname type AD_NAMTEXT.
  data: lv_newfullname type AD_NAMTEXT.
  if px_from = 'X' or px_name = 'X'.
    select single PERSNUMBER ADDRNUMBER from usr21
      into (lv_persnumber, lv_addrnumber)
      where bname = sy-uname.
    if px_from = 'X'.
      select single SMTP_ADDR from adr6
        into lv_oldemail
        where ADDRNUMBER = lv_ADDRNUMBER
          and PERSNUMBER = lv_PERSNUMBER.
      update adr6
        set SMTP_ADDR = p_from
        where ADDRNUMBER = lv_ADDRNUMBER
          and PERSNUMBER = lv_PERSNUMBER.
    endif.
    if PX_NAME = 'X'.
      concatenate p_fname p_lname into lv_newfullname
        separated by space.
      select single NAME_FIRST NAME_LAST NAME_TEXT from adrp
        into (lv_oldfname, lv_oldlname, lv_oldfullname)
        where PERSNUMBER = lv_PERSNUMBER.
      update adrp
        set name_first = p_fname
        name_last = p_lname
        NAME_TEXT = lv_newfullname
        where PERSNUMBER = lv_PERSNUMBER.
    endif.
    commit work.
  endif.
after calling your FM, don't forget to change it back
* reset email id and name back to old value if set earlier
    if px_from = 'X'.
      update adr6
        set SMTP_ADDR = lv_oldemail
        where ADDRNUMBER = lv_ADDRNUMBER
          and PERSNUMBER = lv_PERSNUMBER.
    endif.
    if PX_NAME = 'X'.
      update adrp
        set name_first = lv_oldfname
        name_last = lv_oldlname
        NAME_TEXT = lv_oldfullname
        where PERSNUMBER = lv_PERSNUMBER.
    endif.
    if sy-subrc = 0 and ( px_from = 'X' or px_name = 'X' ).
      commit work.
    endif.
Edited by: Kris Donald on Jun 19, 2009 1:02 PM