Mass Update vendor e-mails

Former Member — Mon, 20 Nov 2006 10:31:13 GMT

received a request to update some emails addresses for vendors. If a vendor had no email a default address was granted (ex. Purchase.orders@electro-nite.be) . This default email address, in use on 2300 vendors, now changes (ex; purchase.electro-nite.be@heraeus.com ).

I’m looking now for a method to change these addresses in ADR6. To change the standard (primary) address I use a transaction recording XK02 in LSMW. However I don’t find a method to update the other (secondary) addresses.

Re: Mass Update vendor e-mails

Former Member — Mon, 20 Nov 2006 10:45:32 GMT

hi, see this program u will get one idea how to send mail through program...............................

report ZMAILTEST.

parameters: p_email type somlreci1-receiver

default 'atlurusk@appliedbiosystems.com'.

data: begin of it001 occurs 0,

bukrs type t001-bukrs,

butxt type t001-butxt,

end of it001.

data: imessage type standard table of solisti1 with header line,

iattach type standard table of solisti1 with header line,

ipacking_list like sopcklsti1 occurs 0 with header line,

ireceivers like somlreci1 occurs 0 with header line,

iattachment like solisti1 occurs 0 with header line.

start-of-selection.

select bukrs butxt into table it001 from t001.

Populate table with detaisl to be entered into .xls file

perform build_xls_data .

Populate message body text

clear imessage. refresh imessage.

imessage = 'Please find attached excel file'.

append imessage.

Send file by email as .xls speadsheet

perform send_email_with_xls tables imessage

iattach

using p_email

'Example Excel Attachment'

'XLS'

'TestFileName'

'CompanyCodes'.

************************************************************************

Form BUILD_XLS_DATA

************************************************************************

form build_xls_data .

constants: con_cret type x value '0D', "OK for non Unicode

con_tab type x value '09'. "OK for non Unicode

*If you have Unicode check active in program attributes thnen you will

*need to declare constants as follows

*class cl_abap_char_utilities definition load.

*constants:

con_tab type c value cl_abap_char_utilities=>HORIZONTAL_TAB,

con_cret type c value cl_abap_char_utilities=>CR_LF.

concatenate 'BUKRS' 'BUTXT'

into iattach separated by con_tab.

concatenate con_cret iattach into iattach.

append iattach.

loop at it001.

concatenate it001-bukrs it001-butxt

into iattach separated by con_tab.

concatenate con_cret iattach into iattach.

append iattach.

endloop.

endform.

************************************************************************

Form SEND_EMAIL_WITH_XLS

************************************************************************

form send_email_with_xls tables pit_message

pit_attach

using p_email

p_mtitle

p_format

p_filename

p_attdescription.

data: xdocdata like sodocchgi1,

xcnt type i.

Fill the document data.

xdocdata-doc_size = 1.

Populate the subject/generic message attributes

xdocdata-obj_langu = sy-langu.

xdocdata-obj_name = 'SAPRPT'.

xdocdata-obj_descr = p_mtitle .

Fill the document data and get size of attachment

clear xdocdata.

read table iattach index xcnt.

xdocdata-doc_size =

( xcnt - 1 ) * 255 + strlen( iattach ).

xdocdata-obj_langu = sy-langu.

xdocdata-obj_name = 'SAPRPT'.

xdocdata-obj_descr = p_mtitle.

clear iattachment. refresh iattachment.

iattachment[] = pit_attach[].

Describe the body of the message

clear ipacking_list. refresh ipacking_list.

ipacking_list-transf_bin = space.

ipacking_list-head_start = 1.

ipacking_list-head_num = 0.

ipacking_list-body_start = 1.

describe table imessage lines ipacking_list-body_num.

ipacking_list-doc_type = 'RAW'.

append ipacking_list.

Create attachment notification

ipacking_list-transf_bin = 'X'.

ipacking_list-head_start = 1.

ipacking_list-head_num = 1.

ipacking_list-body_start = 1.

describe table iattachment lines ipacking_list-body_num.

ipacking_list-doc_type = p_format.

ipacking_list-obj_descr = p_attdescription.

ipacking_list-obj_name = p_filename.

ipacking_list-doc_size = ipacking_list-body_num * 255.

append ipacking_list.

Add the recipients email address

clear ireceivers. refresh ireceivers.

ireceivers-receiver = p_email.

ireceivers-rec_type = 'U'.

ireceivers-com_type = 'INT'.

ireceivers-notif_del = 'X'.

ireceivers-notif_ndel = 'X'.

append ireceivers.

call function 'SO_DOCUMENT_SEND_API1'

exporting

document_data = xdocdata

put_in_outbox = 'X'

commit_work = 'X'

tables

packing_list = ipacking_list

contents_bin = iattachment

contents_txt = imessage

receivers = ireceivers

exceptions

too_many_receivers = 1

document_not_sent = 2

document_type_not_exist = 3

operation_no_authorization = 4

parameter_error = 5

x_error = 6

enqueue_error = 7

others = 8.

endform.

Re: Mass Update vendor e-mails

michael-john_turner — Mon, 20 Nov 2006 10:54:08 GMT

Hi Roger,

Is the "Other communication" button not visible when you do the recording in LSMW? If it's not, you may need to choose a menu option to access it.

Alternatively, you can always do a direct update of ADR6

Re: Mass Update vendor e-mails

Former Member — Mon, 20 Nov 2006 14:40:45 GMT

Please check OSS note 653536.

Rob

Re: Mass Update vendor e-mails

Former Member — Mon, 12 Apr 2010 07:46:43 GMT

HI,

When doing the recording, in the first screen, please tick the check box use central address and this will give the option where you can enter the email address.

Thanks

topic Re: Mass Update vendor e-mails in Application Development and Automation Discussions

Mass Update vendor e-mails

Re: Mass Update vendor e-mails

Re: Mass Update vendor e-mails

Re: Mass Update vendor e-mails

Re: Mass Update vendor e-mails