Reschedule an outlook meeting in SAP ABAP

Question

Hi experts,
I have written a program to send meeting request from sap to outlook, but now my requirement is to reschedule the same meeting request which i have sent, for ex: suppose i have send a meeting request before dated on 27th jun 2014 and time: 4:30pm and now i want to reschedule the same meeting at 6:30pm.
Please tell me how can i do it ?? or give me any piece of code which i can use.
Regards,
Aayush

Answer 1

I send you the code of a function module ZVC_NOTIFY_APPOINTMENT that changes an appointment. Function receives the iCalendar method in parameter I_METHOD (in your case, REQUEST).
Obviously, as you know, the code may not suit 100% to your specific needs because the exact business scenario may require more or less functionality.
Hope it helps.
FUNCTION zvc_notify_appointment.
*"*"Módulo funciones actualiz.
*"*"Interfase local
*"  IMPORTING
*"     VALUE(I_CONTACT_DATA) TYPE  VBKA
*"     VALUE(I_SEQNR) TYPE  SC_SEQNR OPTIONAL
*"     VALUE(I_METHOD) TYPE  CHAR20
INCLUDE <cntn01>.
TYPE-POOLS: sccon.
DATA lo_appointment TYPE REF TO cl_appointment.
DATA lt_text TYPE so_txttab.
DATA ls_text LIKE LINE OF lt_text.
DATA: lv_message TYPE bcsy_text,
lv_send_result TYPE c,
lo_receiver TYPE REF TO if_recipient_bcs,
lo_email TYPE REF TO cl_bcs, lt_attachment TYPE soli_tab,
lo_document TYPE REF TO cl_document_bcs, lx_exception TYPE REF TO cx_bcs.
DATA: lwa_contacto TYPE scgenappt,
l_inter      TYPE kunnr,
l_intertxt   TYPE name1_gp,
lit_txtbody  TYPE so_txttab.
DATA: lit_lines TYPE TABLE OF tline,
lwa_lines TYPE tline.
DATA:l_id LIKE  thead-tdid,
l_name     LIKE  thead-tdname,
l_object   LIKE  thead-tdobject.
DATA l_stamp TYPE string.
DATA l_sequence(4) TYPE c.
DATA ls_appt_data TYPE scsappt.
" DATA:wa_email LIKE t_email.
DATA: lv_row TYPE so_text255,
lv_cnt_nn TYPE n LENGTH 2,
lv_blank_tt TYPE c LENGTH 2 VALUE '',
lv_date_from TYPE sc_datefro,
lv_time_from TYPE sc_timefro, lv_date_to TYPE sc_dateto,
lv_time_to TYPE sc_timefro.
DATA:l_subject TYPE sood-objdes,
l_auxinter(10),
l_auxclase(20),
l_idcontac(4).
DATA lv_appt_guid_str TYPE string.
DATA lv_appt_guid TYPE sc_appguid.
" Register date
DATA l_reg_date TYPE datum.
DATA l_pernr TYPE pernr_d.
DATA: l_uname      LIKE pa0105-usrid,
l_uname12    LIKE pa0105-uname.
DATA l_email TYPE text40.
DATA l_appt_id TYPE sc_genappt.
DATA l_exit_info TYPE sc_exitinf.
DATA lv_org_mail TYPE adr6-smtp_addr.
DATA:lo_sender TYPE REF TO if_sender_bcs.
CONSTANTS: c_parvw TYPE parvw VALUE 'ZM',
c_posnr TYPE posnr VALUE '000000'.
CLEAR lv_message.
" Get appointment data from DDBB
l_exit_info = i_contact_data-vbeln.
SELECT SINGLE genappt_id
FROM scgenappt
INTO l_appt_id
WHERE exit_info EQ l_exit_info.
CHECK sy-subrc EQ 0.
CREATE OBJECT lo_appointment
EXPORTING
internal_id = l_appt_id.
CALL METHOD lo_appointment->get_guid
RECEIVING
guid = lv_appt_guid.
*  CALL METHOD lo_appointment->get_date
*    IMPORTING
*      date_from = lv_date_from
*      time_from = lv_time_from
*      date_to   = lv_date_to
*      time_to   = lv_time_to.
" Only send notification if appointment date
" is not before creation / modification date.
lo_appointment->get_data( IMPORTING appointment_data = ls_appt_data ).
*  IF ls_appt_data-change_dat IS NOT INITIAL.
*    l_reg_date = ls_appt_data-change_dat.
*  ELSE.
*    l_reg_date = ls_appt_data-entry_dat.
*  ENDIF.
*  CHECK l_reg_date LE lv_date_from.
*  lv_appt_guid_str = lv_appt_guid.
TRY.
lv_row = 'BEGIN:VCALENDAR'.
lv_cnt_nn = STRLEN( lv_row ).
CONCATENATE '0' lv_cnt_nn lv_blank_tt lv_row INTO lv_row RESPECTING BLANKS.
APPEND lv_row TO lt_attachment.
CLEAR lv_row.
lv_row = 'VERSION:2.0'.
lv_cnt_nn = STRLEN( lv_row ).
CONCATENATE '0' lv_cnt_nn lv_blank_tt lv_row INTO lv_row RESPECTING BLANKS.
APPEND lv_row TO lt_attachment.
CLEAR lv_row.
CONCATENATE 'METHOD:' i_method INTO lv_row.
lv_cnt_nn = STRLEN( lv_row ).
CONCATENATE '0' lv_cnt_nn lv_blank_tt lv_row INTO lv_row RESPECTING BLANKS.
APPEND lv_row TO lt_attachment.
lv_row = 'BEGIN:VEVENT'.
lv_cnt_nn = STRLEN( lv_row ).
CONCATENATE '0' lv_cnt_nn lv_blank_tt lv_row INTO lv_row RESPECTING BLANKS.
APPEND lv_row TO lt_attachment.
CLEAR lv_row.
lv_row = 'UID:'.
CONCATENATE lv_row l_appt_id INTO lv_row.
lv_cnt_nn = STRLEN( lv_row ).
CONCATENATE '0' lv_cnt_nn lv_blank_tt lv_row INTO lv_row RESPECTING BLANKS.
APPEND lv_row TO lt_attachment.
IF i_seqnr IS NOT INITIAL.
l_sequence = i_seqnr.
ELSE.
l_sequence = ls_appt_data-sequence.
ENDIF.
CLEAR lv_row.
CONCATENATE 'SEQUENCE:' l_sequence INTO lv_row.
CONDENSE lv_row NO-GAPS.
lv_cnt_nn = STRLEN( lv_row ).
CONCATENATE '0' lv_cnt_nn lv_blank_tt lv_row INTO lv_row RESPECTING BLANKS.
APPEND lv_row TO lt_attachment.
CLEAR:lv_row.
" Build timestamp with current time
CLEAR l_stamp.
CONCATENATE 'DTSTAMP:' sy-datum(4) sy-datum+4(2) sy-datum+6(2) 'T' sy-uzeit 'Z' INTO l_stamp.
lv_row = l_stamp