topic email address in Application Development and Automation Discussions

email address

Former Member — Mon, 09 Jun 2008 04:33:35 GMT

Hi,

I need to select the email address of the person present in contact address tab in VD03 transaction who is having deparment number '0011'.I found that the department number is present in knvk table.So I have used the below query in my program.

SELECT SINGLE kunnr

INTO lv_kunnr

FROM vbpa

WHERE vbeln = lv_vbeln

AND parvw EQ 'AG'.

IF sy-subrc = 0.

SELECT SINGLE prsnr

INTO lv_prsnr

FROM knvk

WHERE kunnr = lv_kunnr

AND abtnr = c_0011.

IF sy-subrc = 0.

CLEAR lv_addr.

SELECT SINGLE smtp_addr

INTO lv_addr

FROM adr6

WHERE persnumber = lv_prsnr.

I have selected kunnr from vbpa table based on vbeln and parvw fields.

I have selected person number( prsnr ) based on customer number( kunnr) and department number( abtnr) fields.

When I checked in debugging mode,lv_kunnr value is empty and that select statement is failing.So,it is not retrieving any email address.

Can anyone tell me from which table should i select kunnr value to get the email address?

Re: email address

Former Member — Mon, 09 Jun 2008 04:46:22 GMT

Send me ur code ......for my id look into my business card.

Thanks

Re: email address

Former Member — Mon, 09 Jun 2008 04:52:48 GMT

Hi,

Use VBRK table for kunnar get field KUNAG its same as kunnr.

the goto KNA1 pass this vbrk-kunag to kna1-kunnr and get adrnr

Use ADR6 Table or ADRC table for E-mail Address

passing address number (kna1-adrnr)

Thanks

Murugan.B

Re: email address

ritesh_dugad2 — Mon, 09 Jun 2008 05:04:38 GMT

You can use Function Module ADDR_GET_COMPLETE. Just pass the address number to it. It wil give you all the details.

Re: email address

Former Member — Mon, 09 Jun 2008 05:33:26 GMT

Hi,

use the below code to get email address.

**Fetch the partner where partner function is 'SP'.

**internally 'SP' will be stored as 'AG'

CALL FUNCTION 'PM_PARTNER_GET_XIHPA'

TABLES

h_xihpa = ihpa.

READ TABLE ihpa WITH KEY parvw = 'AG'.

if sy-subrc eq 0.

SELECT SINGLE adrnr INTO l_adrnr

FROM kna1

WHERE kunnr = ihpa-parnr.

if sy-subrc eq 0.

SELECT SINGLE smtp_addr

INTO l_emailadr

FROM adr6

WHERE addrnumber = l_adrnr.

endif.

Re: email address

Former Member — Mon, 09 Jun 2008 06:30:33 GMT

Hi,

I have used this code in the program.It is giving error CALL_FUNCTION_CONFLICT_LENG.

Re: email address

Former Member — Mon, 09 Jun 2008 06:38:04 GMT

Hi,

Could you please tell me how to declare ihpa?