Hi, I solved by this code . to display buttons in email body through webdynpro abap .
... in webdynpro compoenent create a button and in action write this code , then go to SOST t.code execute this link .. then lookout in your mail ..
Now the probelm is how to capture values when i clicked on button in email body ? ..
DATA: OBJHEAD type TABLE OF SOLISTI1 .
DATA: OBJTXT type TABLE OF SOLISTI1 .
DATA : wa_objTXT TYPE SOLISTI1.
DATA: RECLIST type TABLE OF SOMLRECI1 .
DATA: WA_RECLIST TYPE SOMLRECI1.
DATA: DOC_CHNG TYPE SODOCCHGI1.
DATA: TAB_LINES type SY-TABIX.
* Creating the document to be sent
DOC_CHNG-OBJ_NAME = 'mail object name'.
DOC_CHNG-OBJ_DESCR = 'Sending Email from Webdynpro'.
WA_OBJTXT = 'Dear, '.
APPEND WA_OBJTXT TO OBJTXT.
WA_OBJTXT = 'Please find the two url links'.
APPEND WA_OBJTXT TO OBJTXT.
WA_OBJTXT = 'Approvers Button'.
APPEND WA_OBJTXT TO OBJTXT.
WA_OBJTXT = '<br>'.
APPEND WA_OBJTXT TO OBJTXT.
*WA_OBJTXT = '<p><button type=button onclick="alert("Hello world!")">Click Me!</button></p>'.
WA_OBJTXT = '<p><button type=button onclick="alert( )">Click Me!</button></p>'.
APPEND WA_OBJTXT TO OBJTXT.
WA_OBJTXT = '<br>'.
APPEND WA_OBJTXT TO OBJTXT.
WA_OBJTXT = 'Thank You'.
APPEND WA_OBJTXT TO OBJTXT.
DESCRIBE TABLE OBJTXT LINES TAB_LINES.
READ TABLE OBJTXT INTO wa_objTXT INDEX TAB_LINES.
DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( wa_objTXT ).
*********************************
*Approvers link.
* WA_OBJTXT = 'http://srcrmdvt.srhouse.com:8000/sap/bc/webdynpro/sap/zsample_email '. "Supply the URL of your Web Dynpro Component
* APPEND WA_OBJTXT TO OBJTXT.
*************************************
* *********************************************************
* Entering names in the distribution list
WA_RECLIST-RECEIVER = 'mnaveen0908@gmail.com'. "'vlyadav@essar.com'. 'naveen.mandla@essar.com'.
WA_RECLIST-REC_TYPE = 'U'.
APPEND WA_RECLIST TO RECLIST.
WA_RECLIST-RECEIVER = 'DLI-NEUREICH'.
WA_RECLIST-REC_TYPE = 'P'.
APPEND WA_RECLIST TO RECLIST.
* Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
EXPORTING
document_data = DOC_CHNG
DOCUMENT_TYPE = 'HTM'
PUT_IN_OUTBOX = 'X'
COMMIT_WORK = 'X'
* IP_ENCRYPT =
* IP_SIGN =
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
tables
OBJECT_HEADER = OBJHEAD
OBJECT_CONTENT = OBJTXT
* CONTENTS_HEX =
* OBJECT_PARA =
* OBJECT_PARB =
receivers = RECLIST
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
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CASE SY-SUBRC.
WHEN 0.
WRITE: / 'Result of the send process:'.
LOOP AT RECLIST INTO WA_RECLIST.
WRITE: / WA_RECLIST-RECEIVER(48), ':'.
IF WA_RECLIST-RETRN_CODE = 0.
WRITE 'sent successfully'.
ELSE.
WRITE 'not sent'.
ENDIF.
ENDLOOP.
WHEN 1.
WRITE: / 'no authorization to send to the specified number of' , 'recipients!'.
WHEN 2.
WRITE: / 'document could not be sent to any of the recipients!'.
WHEN 4.
WRITE: / 'no authorization to send !'.
WHEN OTHERS.
WRITE: / 'error occurred during sending !'.
ENDCASE.