PDF attachemnt Ok, HTML attachment in the body

Hi,
The method to send e-mail with attachment works fine with PDF files
i.e. the file gets attached.
For HTML file, the contents of the file are added to the body as this :
============ Top part of e-mail body ================
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="----=_Part_0_68.1073504151699"
------=_Part_0_68.1073504151699
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Fax document attached
------=_Part_0_68.1073504151699
Content-Type: text/html;
     name="H:\\MESSAGES\\Notifications_Conv\\20040107_0309111152200605.htm"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
     filename="H:\\MESSAGES\\Notifications_Conv\\20040107_0309111152200605.htm"
<html>
<head>
============================================================
Here is the method code:
====================== sendMail Code ==========================
     public static void sendMail(String host,String from,String to,String msgSub,String msgTxt, String attachFile)
          Properties props;
          Session session;
          MimeMessage message;
          MimeMultipart multipart;
          MimeBodyPart messageBodyPart;
          FileDataSource source;
          try
               System.out.println("Attempting to e-Mail file: "+attachFile);
               props = System.getProperties();
               props.put("mail.smtp.host", host);
               session = Session.getInstance(props, null);
               message = new MimeMessage(session);
               messageBodyPart = new MimeBodyPart();
               // Fill the message
               messageBodyPart.setText(msgTxt);
               multipart = new MimeMultipart();
               multipart.addBodyPart(messageBodyPart);
               messageBodyPart = new MimeBodyPart();
               source = new FileDataSource(attachFile);
               messageBodyPart.setDataHandler(new DataHandler(source));
               messageBodyPart.setFileName(attachFile);
               multipart.addBodyPart(messageBodyPart);
               // Put parts in message
               message.setContent(multipart);
               message.saveChanges();
               message.setFrom(new InternetAddress(from));
               StringTokenizer st = new StringTokenizer(to,";");
          while (st.hasMoreTokens()) {
                    message.addRecipient(Message.RecipientType.TO, new InternetAddress(st.nextToken()));
               message.setSubject(msgSub);
               Transport.send(message);
          catch(Exception ex)
               System.err.println("Unable to send the email with attachment");
===========================================================
Any help will be appreciated.

There was a newline character in Subject field.
Removing that fixed the issue.

Similar Messages

Why are PDF attachments are showing up on the body of emails, instead of as actual attachments?

PDF attachments are showing up in the body of my emails rather than as attachments. I need to be able to open them in other programs, eg notability, mad can't do that if they're not real attachments. On my other devices they're showing up at regular attachments.

When a PDF that has only one page is attached to an email the Mail app will display the conte tents of the PDF in the body of the email. But the PDF is still an attachment. Tap on the PDF to open in iBooks or forward it to your computer to open it there. Again, the one page PDF will display the contents of the single page but the PDF is still an attachment and can be used like any other attachment.
When a PDF that has more than one page is attached to an email the Mail app only displays the icon for an attachment.

AppleScript: Add a HTML file in the body of Email by the clipboard

I would like to insert a HTML file into the body of Email by the clipboard action.
This is my cord below:
set the clipboard to (read (choose file) as «class RTF »)
set theBody to "Hello"
tell application "Mail"
activate
set theMessage to make new outgoing message with properties {content:theBody, visible:true, subject:"mysubject"}
end tell
tell application "System Events"
tell process "Mail"
set focused of UI element 1 of scroll area 1 of window 1 to true
keystroke "v" using command down
end tell
end tell
This code enables only rtf file rather than HTML.
Also I don't want to use the html content by the function of Mail.
Because if using it, you won't insert both a html file and body at the same time.
So what I would like to is to insert a HTML file by the clipboard action into a body.
Thank you!

Hi,
One solution is to use Safari to copy the document:
set x to choose file -- a HTML file
tell application "Safari"
    open x
    delay 2
    repeat while source of document 1 does not contain "</html>"
        delay 1.5
    end repeat
    activate
end tell
tell application "System Events"
    tell process "Safari"
        set frontmost to true
        keystroke "a" using command down -- select all
        delay 0.3
        keystroke "c" using command down -- copy to clipboard
    end tell
end tell
set theBody to "Hello"
tell application "Mail"
    activate
    set theMessage to make new outgoing message with properties {content:theBody, visible:true, subject:"mysubject"}
end tell
tell application "System Events"
    tell process "Mail"
        set focused of UI element 1 of scroll area 1 of window 1 to true
        keystroke "v" using command down
    end tell
end tell
Also try this:
set the clipboard to (read (choose file) as «class HTML») -- a HTML file

SmartForms - Is there a way to put PDF attachment in the body of Email?

Hello All,
Currently I have a Smart Form that generates an MAIL with a PDF attachment. It works very nicely with from, to, and subject information correct. A new request from the users is to show in the PDF output in the email vs. an attachment. They mention that not all consumers open the PDF attachment.
Is there a way I can write the form in the email that would look exactly like the attached PDF format?
Or is there a way I can leave the PDF attachement with text in the email like 'Open the attachment to view the items that have been shipped in your recent order'.
Currently I'm using CALL FUNCTION lf_fm_name with control parameters, mail_appl_obj, mail_recipient, mail_sender, and output options.
I would greatly appreciate help in solving this ASAP. Thanks!

Vijaya,
thank you for you quick response.
i have followed your example logic and i now see a brief message in the body of the email. Which i part of my requirement but i'm unable to open the PDF doument.
i'm getting the error message "Abobe reader could not open 'test.PDF' because it is either not a supported file type or because the file has been damaged"
Any idea why? Before adding your logic after calling the smarform to use 'CONVERT_OTF' and 'SO_NEW_DOCUMENT_ATT_SEND_API1' the attached PDF file was perfect.
below is the the call function for my SF. after this call i have added the logic your suggested.
call smartform
      CALL FUNCTION lf_fm_name
           EXPORTING
                     control_parameters       = control_parameters
                     mail_appl_obj            = appl_object_id
                     mail_recipient           = recipient_id
                     mail_sender              = sender_id
                     output_options           = ls_composer_param
                     user_settings            = 'X' "ADDED THIS SETTING
> SmartForm specific fields
                      gi_salesord_num      = gi_salesord_num
                      gi_goods_mvmnt_date = gi_goods_mvmnt_date
                      gi_tracking_number   = gi_tracking_number
                      gi_carrier_name      = gi_carrier_name
                      gi_email_to          = gi_email_to
                      gi_coupon            = gi_coupon
                      gi_url_name          = gi_url_name
           IMPORTING
             job_output_info               = job_output_info "w_return    "ADDED IMPORTING AS TABLE
           TABLES     git_item_tab         = git_item_tab
<
           EXCEPTIONS formatting_error     = 1
                      internal_error       = 2
                      send_error           = 3
                      user_canceled        = 4
                      OTHERS               = 5.
in bebug mode if i look at the retuned table in debug i see values like below:
    1     //        |XPDF1        0640 00000000001                                <
    2     IN        |04EYZSF_SD_WKI_EMAIL_CONF                                      <
    3     IN        |05FIRST                                                        <
    4     OP        |LETTER P 144 240 1581712189000010000100001                   <
    5     IN        |06WK_BRANDS_COLOR_LOGO                                         <
    6     MT        |0210001134                                                     <
<< Unformatable text removed >>>
it looks like there is an issue with the convert or i've got some logic wrong. Any ideas?
Edited by: Rob Burbank on May 7, 2009 2:55 PM

Mail Receiver and Attachment Issue - how to get an attachment into the body

I have an abap proxy that sends a simple message to XI with a pdf attachment. XI maps the xml message to the Mail Adapters Mail Package format.
To have the email sent with the PDF attachment I must click the "keep attachments" option. However this also has the side-effect of making the message payload an attachment as well (seems silly?). Therefore I get an email with two attachments: one is the PDF and the other is the plain text that should be in the email body.
The question is: How do I get that plain text attachment back into the Message Body ? I have tried all combinations of the MessageTranformBean and the PayloadSwapBean with no luck.
I can easily change the names of the attachments with the MessageTransformBean but if I set the text attachment to Transform.ContentDisposition inline, it still just comes out as an attachment. And, if I use the payloadswapbean the adapter log says it corectly swapped the right payload however the email still comes out with the text as an attachment!!
Any ideas on how I can do this? Is it a bug in the module beans?
(I'm using MS Outlook as the email client.)
Maybe I need to write my own module bean to do this... If I set keep attachments to OFF, can I still set the PDF attachment with my own modules (the reason I ask this is that with keep-attachment OFF, the message body correctly has the text in it...
Regards,
Jason.
Edited by: Jason Scott on Mar 6, 2008 3:22 AM

Hi,
Check these
/people/michal.krawczyk2/blog/2005/11/23/xi-html-e-mails-from-the-receiver-mail-adapter
/people/michal.krawczyk2/blog/2005/03/07/mail-adapter-xi--how-to-implement-dynamic-mail-address
/people/michal.krawczyk2/blog/2005/12/18/xi-sender-mail-adapter--payloadswapbean--step-by-step
https://www.sdn.sap.com/irj/sdn/weblogs?blog=/pub/wlg/1685 [original link is broken] [original link is broken] [original link is broken]
/people/prasad.ulagappan2/blog/2005/06/07/mail-adapter-scenarios-150-sap-exchange-infrastructure
http://help.sap.com/saphelp_nw04/helpdata/en/3c/b4a6490a08cd41a8c91759c3d2f401/content.htm
Regards
Seshagiri

E-Mail Notification shows up HTML tag in the body

Hi all,
We successfully implemented the email notification. we have the standalone version of 2.6. We are now seeing the notification mails delivered to our mail boxes.
We need some assistance, in setting the type of notification. We have set the Global preference for all the users as "Plain text mail with HTML attachments" and we have set the preference at user also like "MAILATTH". But the body of the notification mail has HTML tags along with the contents, we do have the attachment, when we open it , it works fine.
our problem is , how to see the mails without those HTML tags, in the inbox.
Any advice,
Johnson

There was a newline character in Subject field.
Removing that fixed the issue.

To avoid the attachment for the body content while sending email from ABAP

SAP Version : 4.7
   When i tried to send an external email from the abap report program, the body content of the mail is coming as an attachment for the same. I need to avoid this. Please give the suggestion. Am attaching the code.
                    DECLARATION PART                                 *
TYPE-POOLS : SLIS.
TABLES : VBAK.
DECLARATION FOR ALV.
DATA : F_FIELD TYPE SLIS_T_FIELDCAT_ALV,
       W_FIELD TYPE SLIS_FIELDCAT_ALV,
       L_HEADER TYPE SLIS_T_LISTHEADER,
       W_HEADER TYPE SLIS_LISTHEADER,
       W_LAYOUT TYPE SLIS_LAYOUT_ALV,
       t_sort type slis_t_sortinfo_alv,
       w_sort type slis_sortinfo_alv.
TYPES : BEGIN OF T_VBAK,
          VBELN    LIKE VBAK-VBELN,
          VKGRP    LIKE VBAK-VKGRP,
          KUNNR    LIKE VBAK-KUNNR,
          ERDAT    LIKE VBAK-ERDAT,
          VTWEG    LIKE VBAK-VTWEG,
          LIFSK    LIKE VBAK-LIFSK,
          VKBUR    LIKE VBAK-VKBUR,
        END OF T_VBAK.
TYPES : BEGIN OF T_VBAP,
          VBELN    LIKE VBAP-VBELN,
          POSNR    LIKE VBAP-POSNR,
          MATNR    LIKE VBAP-MATNR,
          WERKS    LIKE VBAP-WERKS,
          ARKTX    LIKE VBAP-ARKTX,
          KWMENG   LIKE VBAP-KWMENG,
          CUOBJ    LIKE VBAP-CUOBJ,
          NETWR    LIKE VBAP-NETWR,
          ZSCHL_K LIKE VBAP-ZSCHL_K,
          KONDM    LIKE VBAP-KONDM,
          ZZURWN   LIKE VBAP-ZZURWN,
        END OF T_VBAP.
TYPES : BEGIN OF T_LIPS,
          VBELN    LIKE LIPS-VBELN,
          POSNR    LIKE LIPS-POSNR,
          VGBEL    LIKE LIPS-VGBEL,
          VGPOS    LIKE LIPS-VGPOS,
        END OF T_LIPS.
TYPES : BEGIN OF T_KNA1,
          KUNNR    LIKE KNA1-KUNNR,
          NAME1    LIKE KNA1-NAME1,
          ADRNR    LIKE KNA1-ADRNR,
        END OF T_KNA1.
TYPES : BEGIN OF T_VBKD,
          VBELN    LIKE VBKD-VBELN,
          POSNR    LIKE VBKD-POSNR,
          BSTKD    LIKE VBKD-BSTKD,
          BSTDK    LIKE VBKD-BSTDK,
          KURSK    LIKE VBKD-KURSK,          " CURRENCY CHECK
          BZIRK    LIKE VBKD-BZIRK,          " SALES DISTRICT
          KDGRP    LIKE VBKD-KDGRP,
          IHREZ    LIKE VBKD-IHREZ,
        END OF T_VBKD.
TYPES : BEGIN OF T_LIKP,
          VBELN    LIKE LIKP-VBELN,
          ERDAT    LIKE LIKP-ERDAT,
        END OF T_LIKP.
TYPES : BEGIN OF T_ADR6,
          ADDRNUMBER LIKE ADR6-ADDRNUMBER,
          SMTP_ADDR LIKE ADR6-SMTP_ADDR,
        END OF T_ADR6.
DATA : BEGIN OF IT_CUST OCCURS 0,
          KUNNR LIKE VBAK-KUNNR,
        END OF IT_CUST.
TYPES : BEGIN OF T_VBUP,
          VBELN    LIKE VBUP-VBELN,
          POSNR    LIKE VBUP-POSNR,
          KOSTA    LIKE VBUP-KOSTA,
          WBSTA    LIKE VBUP-WBSTA,
        END OF T_VBUP.
TYPES : BEGIN OF T_TVLST,
          LIFSP    LIKE TVLST-LIFSP,
          VTEXT    LIKE TVLST-VTEXT,
        END OF T_TVLST.
TYPES : BEGIN OF T_CONFIG.
        INCLUDE STRUCTURE CONF_OUT.
TYPES : END OF T_CONFIG.
DATA : TMP LIKE VBAK-KUNNR.
DATA : NAME_TEXT LIKE THEAD-TDNAME.
DATA : TLINE1 LIKE TLINE OCCURS 0 WITH HEADER LINE.
DATA : TMP_BRAKET LIKE CONF_OUT-ATWRT,
        TMP_BRAKET1 LIKE CONF_OUT-ATWRT.
DATA : BEGIN OF IT_FINAL OCCURS 0,
          WERKS   LIKE VBAP-WERKS,
          VBELN   LIKE VBAP-VBELN,
          POSNR   LIKE VBAP-POSNR,
          KUNNR   LIKE VBAK-KUNNR,
          NAME1   LIKE KNA1-NAME1,
          VBELN1 LIKE LIKP-VBELN,
          ERDAT   LIKE LIKP-ERDAT,
          LIFSK   LIKE VBAK-LIFSK,
          ZZURWN LIKE VBAP-ZZURWN,
          IHREZ   LIKE VBKD-IHREZ,
          ERDAT1 LIKE VBAK-ERDAT,
          NETWR(25) type C,
          BSTKD   LIKE VBKD-BSTKD,
          BSTDK   LIKE VBKD-BSTDK,
          SALORD(17) TYPE C,
          PUMP_TYPE LIKE CONF_OUT-ATWRT,
          PUMP_SIZE LIKE CONF_OUT-ATWRT,
          VTEXT     LIKE TVLST-VTEXT,
          KWMENG(25) TYPE C,
          FOOTER(330) TYPE C,
          ITMTXT(330) TYPE C,
       END OF IT_FINAL.
DATA : IT_VBAK TYPE STANDARD TABLE OF T_VBAK,
       IT_VBAP TYPE STANDARD TABLE OF T_VBAP,
       IT_VBKD TYPE STANDARD TABLE OF T_VBKD,
       IT_LIKP TYPE STANDARD TABLE OF T_LIKP,
       IT_LIPS TYPE STANDARD TABLE OF T_LIPS,
       IT_VBUP TYPE STANDARD TABLE OF T_VBUP,
       IT_KNA1 TYPE STANDARD TABLE OF T_KNA1,
       IT_ADR6 TYPE STANDARD TABLE OF T_ADR6,
       IT_FINAL1 LIKE IT_FINAL OCCURS 0 with header line,
       IT_TVLST TYPE STANDARD TABLE OF T_TVLST,
       IT_CONFIG TYPE STANDARD TABLE OF T_CONFIG,
       W_VBAK TYPE T_VBAK,
       W_VBAP TYPE T_VBAP,
       W_VBKD TYPE T_VBKD,
       W_LIKP TYPE T_LIKP,
       W_ADR6 TYPE T_ADR6,
       W_LIPS TYPE T_LIPS,
       W_VBUP TYPE T_VBUP,
       W_KNA1 TYPE T_KNA1,
       W_TVLST TYPE T_TVLST,
       W_CONFIG TYPE T_CONFIG.
DATA:   it_message TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0
                WITH HEADER LINE.
DATA:   it_attach TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0
                WITH HEADER LINE.
DATA:   t_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
        t_contents LIKE solisti1 OCCURS 0 WITH HEADER LINE,
        t_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
        t_attachment LIKE solisti1 OCCURS 0 WITH HEADER LINE,
        t_object_header LIKE solisti1 OCCURS 0 WITH HEADER LINE,
        w_cnt TYPE i,
        w_sent_all(1) TYPE c,
        w_doc_data LIKE sodocchgi1,
        gd_error    TYPE sy-subrc,
        gd_reciever TYPE sy-subrc.
                    SELECTION-CRITERIA                               *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : R2 RADIOBUTTON GROUP G1 USER-COMMAND radio DEFAULT 'X',
             R1 RADIOBUTTON GROUP G1 .
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
PARAMETERS: p_email TYPE somlreci1-receiver
                                  DEFAULT '[email protected]'.
PARAMETERS : P_VTWEG LIKE W_VBAK-VTWEG ,
             P_WERKS LIKE W_VBAP-WERKS.
select-options : s_vkgrp for w_vbak-vkgrp,
                 s_ERDAT for w_LIKP-ERDAT.
selection-screen end of block b2.
                          Initialization
INITIALIZATION.
s_vkgrp-sign = 'I'.
s_vkgrp-option = 'BT'.
s_vkgrp-low = '313'.
s_vkgrp-high = '324'.
APPEND s_vkgrp.
s_erdat-sign = 'I'.
s_erdat-option = 'BT'.
s_erdat-low = '20080108'.
s_erdat-high = '20080108'.
s_erdat-low = '20070101'.
s_erdat-high = sy-datum.
APPEND s_erdat.
                  selection-screen validations
AT SELECTION-SCREEN.
Validation for Plant.
IF p_werks NE '7210'.
    MESSAGE : 'Plant entered should be 7210' TYPE 'E'.
ENDIF.
               START OF SELECTION                                    *
start-of-selection.
GETTING THE DATA FROM THE DATABASE TABLE
PERFORM DATA_FETCH.
FILLING THE FINAL INTERNAL TABLE
PERFORM FILL_FINAL.
GETTING THE LIST FOR SENDING MAIL OR DISPLAY.
IF R1 = 'X'.
Populate table with details to be entered into .xls file
LOOP AT IT_CUST.
    PERFORM build_xls_data_table using it_cust-kunnr.
ENDLOOP.
Instructs mail send program for SAPCONNECT to send email(rsconn01)
    PERFORM initiate_mail_execute_program.
ELSEIF R2 = 'X'.
PERFORM LIST_DISPLAY.
ENDIF.
               END OF SELECTION                                      *
end-of-selection.
*&      Form DATA_FETCH
      text
--> p1        text
<-- p2        text
FORM DATA_FETCH .
   SELECT VBELN
          VKGRP
          KUNNR
          ERDAT
          VTWEG
          LIFSK
          VKBUR
   INTO TABLE IT_VBAK
   FROM VBAK
   WHERE VTWEG = P_VTWEG
   AND   VKGRP IN S_VKGRP
   AND   LIFSK NE ''.
IF IT_VBAK[] IS NOT INITIAL.
SELECT LIFSP
          VTEXT
INTO TABLE IT_TVLST
FROM TVLST
FOR ALL ENTRIES IN IT_VBAK
WHERE LIFSP = IT_VBAK-LIFSK
AND    SPRAS = 'EN'.
SELECT VBELN
          POSNR
          MATNR
          WERKS
          ARKTX
          KWMENG
          CUOBJ
          NETWR
          ZSCHL_K
          KONDM
          ZZURWN
INTO TABLE IT_VBAP
FROM VBAP
FOR ALL ENTRIES IN IT_VBAK
WHERE VBELN = IT_VBAK-VBELN
AND   WERKS = P_WERKS.
SELECT KUNNR
         NAME1
         ADRNR
INTO TABLE IT_KNA1
FROM KNA1
FOR ALL ENTRIES IN IT_VBAK
WHERE   KUNNR = IT_VBAK-KUNNR.
SELECT VBELN
          POSNR
          BSTKD
          BSTDK
          KURSK
          BZIRK
          KDGRP
INTO TABLE IT_VBKD
FROM VBKD
FOR ALL ENTRIES IN IT_VBAK
WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAP[] IS NOT INITIAL.
SELECT VBELN
         POSNR
         VGBEL
         VGPOS
INTO TABLE IT_LIPS
FROM LIPS
FOR ALL ENTRIES IN IT_VBAP
WHERE VGBEL = IT_VBAP-VBELN
AND   VGPOS = IT_VBAP-POSNR.
ENDIF.
IF IT_LIPS[] IS NOT INITIAL.
SELECT VBELN
         ERDAT
INTO TABLE IT_LIKP
FROM LIKP
FOR ALL ENTRIES IN IT_LIPS
WHERE VBELN = IT_LIPS-VBELN
AND   ERDAT IN S_ERDAT.
SELECT VBELN
         POSNR
         KOSTA
         WBSTA
INTO TABLE IT_VBUP
FROM VBUP
FOR ALL ENTRIES IN IT_LIPS
WHERE VBELN = IT_LIPS-VBELN
AND   POSNR = IT_LIPS-POSNR
AND   KOSTA EQ 'C'
AND   WBSTA NE 'C'.
ENDIF.
IF IT_KNA1[] IS NOT INITIAL.
SELECT ADDRNUMBER
         SMTP_ADDR
INTO TABLE IT_ADR6
FROM ADR6
FOR ALL ENTRIES IN IT_KNA1
WHERE ADDRNUMBER = IT_KNA1-ADRNR.
ENDIF.
ENDFORM.                    " DATA_FETCH
*&      Form LIST_DISPLAY
      text
--> p1        text
<-- p2        text
FORM LIST_DISPLAY .
REFRESH F_FIELD.
IF R2 = 'X'.
    W_FIELD-col_pos = 1.
    W_FIELD-fieldname = 'WERKS'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Plant'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 2.
    W_FIELD-fieldname = 'VBELN'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Sales Order'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 3.
    W_FIELD-fieldname = 'KUNNR'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Customer Code'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 4.
    W_FIELD-fieldname = 'NAME1'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Customer Name'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 5.
    W_FIELD-fieldname = 'VBELN1'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Delivery Number'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 6.
    W_FIELD-fieldname = 'ERDAT'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Delivery Date'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 7.
    W_FIELD-fieldname = 'LIFSK'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Delivery Block'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 8.
    W_FIELD-fieldname = 'PUMP_TYPE'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Pump Type'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 9.
    W_FIELD-fieldname = 'PUMP_SIZE'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_l = 'Pump Size'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 10.
    W_FIELD-fieldname = 'ZZURWN'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Pump Srno'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 11.
    W_FIELD-fieldname = 'IHREZ'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Indent No.'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 12.
    W_FIELD-fieldname = 'ERDAT'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Order Booking Dt'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 13.
    W_FIELD-fieldname = 'NETWR'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C710'.
    W_FIELD-seltext_m = 'Net Value'.
    w_field-do_sum = 'X'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 14.
    W_FIELD-fieldname = 'KWMENG'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C710'.
    W_FIELD-seltext_m = 'Qty'.
    w_field-do_sum = 'X'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 15.
    W_FIELD-fieldname = 'BSTKD'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Customer PONO'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 16.
    W_FIELD-fieldname = 'BSTDK'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Customer PODT'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 17.
    W_FIELD-fieldname = 'SALORD'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Sales Order/Item'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 18.
    W_FIELD-fieldname = 'VTEXT'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Delivery Block Desc.'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 19.
    W_FIELD-fieldname = 'FOOTER'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Footer Text'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    W_FIELD-col_pos = 20.
    W_FIELD-fieldname = 'ITMTXT'.
    W_FIELD-tabname = 'IT_FINAL'.
    W_FIELD-emphasize = 'C410'.
    W_FIELD-seltext_m = 'Item Text'.
    APPEND W_FIELD TO F_FIELD.
    CLEAR W_FIELD.
    PERFORM SORT_FIELD.
    PERFORM LAYOUT_DISPLAY.
    PERFORM GRID_DISPLAY.
ENDIF.
ENDFORM.                    " LIST_DISPLAY
*&      Form FILL_FINAL
      text
--> p1        text
<-- p2        text
FORM FILL_FINAL .
REFRESH IT_FINAL.
LOOP AT IT_VBUP INTO W_VBUP.
    READ TABLE IT_LIPS INTO W_LIPS WITH KEY VBELN = W_VBUP-VBELN POSNR = W_VBUP-POSNR.
    READ TABLE IT_LIKP INTO W_LIKP WITH KEY VBELN = W_LIPS-VBELN.
    IF SY-SUBRC EQ 0.
    READ TABLE IT_VBAP INTO W_VBAP WITH KEY VBELN = W_LIPS-VGBEL POSNR = W_LIPS-VGPOS.
    READ TABLE IT_VBAK INTO W_VBAK WITH KEY VBELN = W_VBAP-VBELN.
    READ TABLE IT_VBKD INTO W_VBKD WITH KEY VBELN = W_VBAK-VBELN.
    READ TABLE IT_KNA1 INTO W_KNA1 WITH KEY KUNNR = W_VBAK-KUNNR.
    READ TABLE IT_TVLST INTO W_TVLST WITH KEY LIFSP = W_VBAK-LIFSK.
      IT_FINAL-WERKS   = W_VBAP-WERKS.
      IT_FINAL-VBELN   = W_VBAP-VBELN.
      IT_FINAL-KUNNR   = W_VBAK-KUNNR.
      IT_FINAL-NAME1   = W_KNA1-NAME1.
      IT_FINAL-VBELN1 = W_LIKP-VBELN.
      IT_FINAL-ERDAT   = W_LIKP-ERDAT.
      IT_FINAL-LIFSK   = W_VBAK-LIFSK.
      IT_FINAL-ZZURWN = W_VBAP-ZZURWN.
      IT_FINAL-IHREZ   = W_VBKD-IHREZ.
      IT_FINAL-ERDAT1 = W_VBAK-ERDAT.
      IT_FINAL-NETWR   = W_VBAP-NETWR.
      IT_FINAL-BSTKD   = W_VBKD-BSTKD.
      IT_FINAL-BSTDK   = W_VBKD-BSTDK.
      IT_FINAL-POSNR   = W_VBAP-POSNR.
      IT_FINAL-VTEXT   = W_TVLST-VTEXT.
      IT_FINAL-KWMENG = W_VBAP-KWMENG.
      CONCATENATE W_VBAP-VBELN W_VBAP-POSNR INTO IT_FINAL-SALORD SEPARATED BY '/'.
      IF W_VBAP-CUOBJ NE '000000000000000000'.
        REFRESH IT_CONFIG.
          CALL FUNCTION 'VC_I_GET_CONFIGURATION'
            EXPORTING
              INSTANCE            = W_VBAP-CUOBJ
              LANGUAGE            = SY-LANGU
            TABLES
              CONFIGURATION       = IT_CONFIG
            EXCEPTIONS
              INSTANCE_NOT_FOUND = 1
              INTERNAL_ERROR      = 2
              NO_CLASS_ALLOCATION = 3
              INSTANCE_NOT_VALID = 4
              OTHERS              = 5.
          IF SY-SUBRC = 0.
            READ TABLE IT_CONFIG INTO W_CONFIG WITH KEY ATNAM = 'IN_PUMP_TYPE'.
            IT_FINAL-PUMP_TYPE = W_CONFIG-ATWRT.
            CLEAR W_CONFIG.
            READ TABLE IT_CONFIG INTO W_CONFIG WITH KEY ATNAM = 'IN_PUMP_SIZE' .
            IT_FINAL-PUMP_SIZE = W_CONFIG-ATWRT.
            CLEAR W_CONFIG.
          ENDIF.
      ENDIF.
        move w_vbap-vbeln to name_text.
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            id       = 'ZKT1'
            language = 'E'
            name     = name_text
            object   = 'VBBK'
          TABLES
            lines    = tline1
          EXCEPTIONS
            OTHERS   = 8.
      LOOP AT TLINE1.
        CONCATENATE IT_FINAL-FOOTER TLINE1-TDLINE+0(65) INTO IT_FINAL-FOOTER.
        CLEAR : TLINE1.
      ENDLOOP.
      clear : name_text,tline1[].
      concatenate w_vbap-vbeln w_vbap-posnr into name_text.
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            id       = 'ZKT3'
            language = 'E'
            name     = name_text
            object   = 'VBBP'
          TABLES
            lines    = tline1
          EXCEPTIONS
            OTHERS   = 8.
      LOOP AT TLINE1.
        CONCATENATE IT_FINAL-ITMTXT TLINE1-TDLINE+0(65) INTO IT_FINAL-ITMTXT.
        CLEAR : TLINE1.
      ENDLOOP.
      APPEND IT_FINAL.
    ENDIF.
   CLEAR : IT_FINAL,W_VBAP,W_VBKD,W_VBUP,W_LIPS,W_LIKP,W_KNA1,W_VBAK,W_TVLST,name_text,tline1[].
ENDLOOP.
IT_FINAL1[] = IT_FINAL[].
SORT IT_FINAL1 BY KUNNR.
LOOP AT IT_FINAL1.
IF TMP NE IT_FINAL1-KUNNR.
   IT_CUST-KUNNR = IT_FINAL1-KUNNR.
   APPEND IT_CUST.
   clear : tmp,it_cust.
   TMP = IT_FINAL1-KUNNR.
ENDIF.
CLEAR : IT_FINAL1.
ENDLOOP.
ENDFORM.                    " FILL_FINAL
*&      Form LAYOUT_DISPLAY
      text
--> p1        text
<-- p2        text
FORM LAYOUT_DISPLAY .
W_LAYOUT-colwidth_optimize = 'X'.
ENDFORM.                    " LAYOUT_DISPLAY
*&      Form GRID_DISPLAY
      text
--> p1        text
<-- p2        text
FORM GRID_DISPLAY .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
       I_CALLBACK_PROGRAM                = SY-REPID
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = ' '
       I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
     IS_LAYOUT                         = W_LAYOUT
     IT_FIELDCAT                       = F_FIELD
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
     IT_SORT                           = T_SORT
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
IT_EVENTS                         =
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
I_HTML_HEIGHT_TOP                 =
I_HTML_HEIGHT_END                 =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
      TABLES
        T_OUTTAB                          = IT_FINAL
EXCEPTIONS
PROGRAM_ERROR                     = 1
OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " GRID_DISPLAY
*&      Form SORT_FIELD
      text
--> p1        text
<-- p2        text
FORM SORT_FIELD .
w_sort-spos = 1.
w_sort-fieldname = 'KUNNR'.
w_sort-up = 'X'.
append w_sort to t_sort.
clear w_sort.
w_sort-spos = 2.
w_sort-fieldname = 'VBELN'.
w_sort-up = 'X'.
append w_sort to t_sort.
clear w_sort.
ENDFORM.                    " SORT_FIELD
*&      Form TOP_OF_PAGE
      text
FORM top_of_page.
IF R2 = 'X'.
    REFRESH l_header.
    w_header-typ = 'S'.
    w_header-key = 'Delivery Block : '.
    w_header-info = 'Outbound delivery created but not despatched'.
    APPEND w_header TO l_header.
    CLEAR w_header.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
        it_list_commentary = l_header.
ENDIF.
ENDFORM.                    "TOP_OF_PAGE
*&      Form BUILD_XLS_DATA_TABLE
      Build data table for .xls document
FORM build_xls_data_table using custcode.
CONSTANTS: con_cret TYPE X VALUE '0D', "OK for non Unicode
            con_tab TYPE x VALUE '09'.   "OK for non Unicode
data : it_custcode like vbak-kunnr.
*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.
clear : it_attach,it_attach[].
CONCATENATE 'Customer PONO' 'Customer PODT' 'Sales Order No' 'Item No'
              'Pump Type' 'Pump Size' 'Order Value Rs' 'Delivery No.' 'Delivery Dt.'
              'Quantity' 'Reasons for not getting Despatch'
          INTO it_attach SEPARATED BY con_tab.
CONCATENATE con_cret it_attach INTO it_attach.
APPEND it_attach.
it_custcode = custcode.
CLEAR : W_KNA1,W_ADR6.                                             "Code need to be added once testing is over.
READ TABLE IT_KNA1 INTO W_KNA1 WITH KEY KUNNR = IT_CUSTCODE.
READ TABLE IT_ADR6 INTO W_ADR6 WITH KEY ADDRNUMBER = W_KNA1-ADRNR.
P_EMAIL = W_ADR6-SMTP_ADDR.
LOOP AT it_final where kunnr = it_custcode.
    CONCATENATE
                IT_FINAL-BSTKD
                IT_FINAL-BSTDK
                IT_FINAL-VBELN
                IT_FINAL-POSNR
                IT_FINAL-PUMP_TYPE
                IT_FINAL-PUMP_SIZE
                IT_FINAL-NETWR
                IT_FINAL-VBELN1
                IT_FINAL-ERDAT
                IT_FINAL-KWMENG
                IT_FINAL-VTEXT
    INTO it_attach SEPARATED BY con_tab.
    CONCATENATE con_cret it_attach INTO it_attach.
    APPEND it_attach.
    clear it_final.
ENDLOOP.
if R1 = 'X'.
Populate message body text
perform populate_email_message_body.
Send file by email as .xls speadsheet
PERFORM send_file_as_email_attachment
                               tables it_message
                                      it_attach
                                using p_email
                                      'AWAITING DESPATCH CLEARANCE'
                                      'XLS'
                                      'Delivery_Block'
                                      'Delivery_Blk'
                                      '[email protected]'
                                      'INT'
                             changing gd_error
                                      gd_reciever.
endif.
ENDFORM.                    " BUILD_XLS_DATA_TABLE
*&      Form SEND_FILE_AS_EMAIL_ATTACHMENT
      Send email
FORM send_file_as_email_attachment tables pit_message
                                          pit_attach
                                    using p_email
                                          p_mtitle
                                          p_format
                                          p_filename
                                          p_attdescription
                                          p_sender_address
                                          p_sender_addres_type
                                 changing p_error
                                          p_reciever.
DATA: objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE.
DATA: ld_error    TYPE sy-subrc,
        ld_reciever TYPE sy-subrc,
        ld_mtitle LIKE sodocchgi1-obj_descr,
        ld_email LIKE somlreci1-receiver,
        ld_format TYPE so_obj_tp ,
        ld_attdescription TYPE so_obj_nam ,
        ld_attfilename TYPE so_obj_des ,
        ld_sender_address LIKE soextreci1-receiver,
        ld_sender_address_type LIKE soextreci1-adr_typ,
        ld_receiver LIKE sy-subrc.
ld_email   = p_email.
ld_mtitle = p_mtitle.
ld_format              = p_format.
ld_attdescription      = p_attdescription.
ld_attfilename         = p_filename.
ld_sender_address      = p_sender_address.
ld_sender_address_type = p_sender_addres_type.
Fill the document data.
w_doc_data-doc_size = 1.
Populate the subject/generic message attributes
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle .
w_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
CLEAR : w_doc_data,w_cnt.
DESCRIBE TABLE it_attach LINES w_cnt.
READ TABLE it_attach INDEX w_cnt.
w_doc_data-doc_size =
     ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name   = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle.
w_doc_data-sensitivty = 'F'.
CLEAR t_attachment.
REFRESH t_attachment.
t_attachment[] = pit_attach[].
Describe the body of the message
CLEAR t_packing_list.
REFRESH t_packing_list.
t_packing_list-transf_bin = space.
t_packing_list-head_start = 1.
t_packing_list-head_num = 0.
t_packing_list-body_start = 1.
DESCRIBE TABLE it_message LINES t_packing_list-body_num.
t_packing_list-doc_type = 'RAW'.
APPEND t_packing_list.
Create attachment notification
t_packing_list-transf_bin = 'X'.
t_packing_list-head_start = 1.
t_packing_list-head_num   = 1.
t_packing_list-body_start = 1.
DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
t_packing_list-doc_type   = ld_format.
t_packing_list-obj_descr = ld_attdescription.
t_packing_list-obj_name   = ld_attfilename.
t_packing_list-doc_size   = t_packing_list-body_num * 255.
APPEND t_packing_list.
Add the recipients email address
CLEAR t_receivers.
REFRESH t_receivers.
t_receivers-receiver = ld_email.
t_receivers-rec_type = 'U'.
t_receivers-com_type = 'INT'.
t_receivers-notif_del = 'X'.
t_receivers-notif_ndel = 'X'.
APPEND t_receivers.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
       EXPORTING
            document_data              = w_doc_data
            put_in_outbox              = 'X'
            sender_address             = ld_sender_address
            sender_address_type        = ld_sender_address_type
            commit_work                = 'X'
       IMPORTING
            sent_to_all                = w_sent_all
       TABLES
            packing_list               = t_packing_list
            object_header              = objhead
            contents_bin               = t_attachment
            contents_txt               = it_message
            receivers                  = t_receivers
       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.
Populate zerror return code
ld_error = sy-subrc.
Populate zreceiver return code
LOOP AT t_receivers.
    ld_receiver = t_receivers-retrn_code.
ENDLOOP.
ENDFORM.
*&      Form INITIATE_MAIL_EXECUTE_PROGRAM
      Instructs mail send program for SAPCONNECT to send email.
FORM initiate_mail_execute_program.
WAIT UP TO 2 SECONDS.
SUBMIT rsconn01 WITH mode = 'INT'
                WITH output = 'X'
                AND RETURN.
ENDFORM.                    " INITIATE_MAIL_EXECUTE_PROGRAM
*&      Form POPULATE_EMAIL_MESSAGE_BODY
       Populate message body text
form populate_email_message_body.
REFRESH it_message.
it_message = 'We have manufactured the pump/s against your purchase order and regret to inform'.
APPEND it_message.
it_message = 'you that same cannot be despatched for the reason/s indicated below.'.
APPEND it_message.
it_message = ' '.
APPEND it_message.
it_message = 'Please find the below attachment "Delivery_Blk.xls" for the details.'.
APPEND it_message.
it_message = ' '.
APPEND it_message.
it_message = 'We now request you to send the required detail/s by return mail/post to enable us '.
APPEND it_message.
it_message = 'to despatch the pump/s at the earliest.'.
APPEND it_message.
it_message = ' '.
APPEND it_message.
it_message = ' '.
APPEND it_message.
it_message = 'Best Regards'.
APPEND it_message.
it_message = 'O.E. ENGINEER'.
APPEND it_message.
endform.                    " POPULATE_EMAIL_MESSAGE_BODY

Hi,
Refer to the following piece of code. This is the simple code to send email with content and attachment.
Declaration
DATA:    lwa_hd_change TYPE sood1,
           lt_objcont    TYPE STANDARD TABLE OF soli,
           lwa_objcont   TYPE soli,
           lt_receivers TYPE STANDARD TABLE OF soos1,
           lwa_receivers TYPE soos1 ,
           lt_att_cont   TYPE STANDARD TABLE OF soli,
           lwa_att_cont TYPE soli,
           lt_packing    TYPE STANDARD TABLE OF soxpl,
           lwa_packing   TYPE soxpl,
           lf_sent       TYPE sonv-flag,
           lf_size       TYPE i.
CONSTANTS: lc_obj(11) TYPE c VALUE 'BOMSouthco',
             lc_desc(20) TYPE c VALUE 'BOM Download',
             lc_lang(1) TYPE c VALUE 'E',
             lc_raw(3)   TYPE c VALUE 'RAW',
             lc_net(1)   TYPE c VALUE 'U',
             lc_mail(4) TYPE c VALUE 'MAIL',
             lc_xls(3)   TYPE c VALUE 'XLS',
             lc_ext(3)   TYPE c VALUE 'EXT'.
Passing values to the strutures used in SO_OBJECT_SEND function module
lwa_hd_change-objla      = lc_lang.
lwa_hd_change-objnam     = lc_obj.
lwa_hd_change-objdes     = lc_desc.
lwa_hd_change-objlen     = 255.
lwa_objcont-line = text-t29.
APPEND lwa_objcont TO lt_objcont.
CLEAR lwa_objcont.
lwa_receivers-recextnam = text-t31.
lwa_receivers-recesc     = lc_net.
lwa_receivers-sndart     = lc_mail.
lwa_receivers-sndex      = 'X'.
lwa_receivers-sndpri     = 1.
lwa_receivers-mailstatus = 'E'.
APPEND lwa_receivers TO lt_receivers.
CLEAR lwa_receivers.
lwa_receivers-recextnam = text-t30.
lwa_receivers-recesc     = lc_net.
lwa_receivers-sndart     = lc_mail.
lwa_receivers-sndex      = 'X'.
lwa_receivers-sndpri     = 1.
lwa_receivers-mailstatus = 'E'.
APPEND lwa_receivers TO lt_receivers.
CLEAR lwa_receivers.
Passing values for the attachment file
LOOP AT gt_output INTO gwa_output.
    CONCATENATE gf_lf gwa_output-matnr gf_etb gwa_output-idnrk gf_etb
                gwa_output-type   gf_etb gwa_output-menge   gf_etb
                gwa_output-meins gf_etb gwa_output-comp    gf_etb
      INTO lwa_att_cont-line.
    APPEND lwa_att_cont TO lt_att_cont.
    CLEAR lwa_att_cont.
ENDLOOP.
CHECK lt_att_cont IS NOT INITIAL.
DESCRIBE TABLE lt_att_cont LINES lf_size.
lwa_packing-transf_bin = ' '.
lwa_packing-head_start = 1.
lwa_packing-head_num   = 0.
lwa_packing-body_start = 1.
lwa_packing-body_num   = lf_size.
lwa_packing-file_ext   = lc_xls.
lwa_packing-objlen     = lf_size * 255.
lwa_packing-objtp      = lc_ext.
lwa_packing-objdes     = lc_desc.
lwa_packing-objnam     = lc_obj.
APPEND lwa_packing TO lt_packing.
CLEAR lwa_packing.
CHECK gf_error IS NOT INITIAL. "Check if unix file is written
FM to send email to the intended recipients
CALL FUNCTION 'SO_OBJECT_SEND'
    EXPORTING
      object_hd_change           = lwa_hd_change
      object_type                = lc_raw
    IMPORTING
      sent_to_all                = lf_sent
    TABLES
      objcont                    = lt_objcont
      receivers                  = lt_receivers
      packing_list               = lt_packing
      att_cont                   = lt_att_cont
    EXCEPTIONS
      active_user_not_exist      = 1
      communication_failure      = 2
      component_not_available    = 3
      folder_not_exist           = 4
      folder_no_authorization    = 5
      forwarder_not_exist        = 6
      note_not_exist             = 7
      object_not_exist           = 8
      object_not_sent            = 9
      object_no_authorization    = 10
      object_type_not_exist      = 11
      operation_no_authorization = 12
      owner_not_exist            = 13
      parameter_error            = 14
      substitute_not_active      = 15
      substitute_not_defined     = 16
      system_failure             = 17
      too_much_receivers         = 18
      user_not_exist             = 19
      originator_not_exist       = 20
      x_error                    = 21
      OTHERS                     = 22.
IF sy-subrc = 0.
    MESSAGE s004 WITH text-t34.
ENDIF.
COMMIT WORK.
Reward if helpful.
Regards,
Ramya

Sending a pdf file as an attachment in the workflow.

Dear All,
In my workflow , i want to send a pdf file as an attachment.I know this topic has been discussed in earlier threads but i couldn't make out from them.So plz if possible do give simple detailed solution for better understanding.
Regards,
Geet Bijlani.

The SOFM Object should be created as follows.
1) get the relationship using class 'CL_BINARY_RELATION' using method 'READ_LINKS'
2) get the instance ID from INSTID_B
3) split the value according to the keyfields in SOFM and create object SOFM
4) bind each object to the Workitem or Email.
with regards,
Sudhahar R

AppleScript: Change an order of texts and HTML file in the body of Mail

I would like to know how to insert a HTML file below the Signature in the body of Email.
This is my code,,,,
set the clipboard to (read (choose file) as «class RTF »)
set theBody to "Hello"
tell application "Mail"
activate
set theMessage to make new outgoing message with properties {content:theBody, visible:true, subject:"mysubject"}
end tell
tell application "System Events"
tell process "Mail"
set focused of UI element 1 of scroll area 1 of window 1 to true
keystroke "v" using command down
end tell
end tell
What I would like to do is an order of body going like
From the top:
Body
Signature
HTML rtf file
Please teach me how to do!
Cheers,

Hi,
murrayshimada wrote:
Wondering how about inserting a HTML between body and signature? If you have a free time, please give me a tip again. Anyway, thank you for your help. Cheers,
You can set the order like this:
set the clipboard to (read (choose file) as «class RTF »)
set theBody to "Hello" & return & return -- need two return character to paste the clipboard after the body
tell application "Mail"
    activate
    set theMessage to make new outgoing message with properties {content:theBody, visible:true, subject:"mysubject"}
    my pasteToEnd()
    delay 0.6 -- need a delay to not remove the pasted text.
    set message signature of theMessage to signature 1 -- this put the signature after the text
end tell
on pasteToEnd()
    tell application "System Events"
        tell process "Mail"
            set focused of UI element 1 of scroll area 1 of window 1 to true
            key code 125 using command down -- (arrow down + command down) to set the insertion point to the end of text
            keystroke "v" using command down
        end tell
    end tell
end pasteToEnd
Here's another example, the order = the HTML, the body and the signature:
set the clipboard to (read (choose file) as «class RTF »)
set theBody to "Hello"
tell application "Mail"
    activate
    set theMessage to make new outgoing message with properties {content:"theBody", visible:true, subject:"mysubject"}
    my pasteAtBeginning() -- at beginning
    delay 0.6 -- need a delay to not remove the pasted text.
    set message signature of theMessage to signature 1 -- this put the signature after the text
end tell
on pasteAtBeginning()
    tell application "System Events"
        tell process "Mail"
            set focused of UI element 1 of scroll area 1 of window 1 to true -- this set the insertion point at beginning
            keystroke "v" using command down
            keystroke return & return -- to put a blank line between the RTF and the body
        end tell
    end tell
end pasteAtBeginning

How to convert a pdf file to html, while retaining the exact formatting?

I have a pdf file, need to convert it into html. while I do so, all the formatting is lost. Is there any other way?

Save the pages of the document as images and create a HTML file with references to the images.

Pdf (with graphics and text) in the email body

When I place an pdf (with graphics and text) in the body of my email using Mac Mail my recipient sees them as attachments only. I am trying to find a way of presenting a formatted email with graphics that will appear the same way to all recipients, but a pdf frequently ends up being an attachment instead of staying in the body. The pdf file doesn’t seem to always show up in the body as created. Is there a better way to accomplish this?

You have no control over how your email maybe rendered by other email servers and client side software.
Attachment Tamer may give you a few more options but it does not guaranty the end result.

Email from R/3 in the body instead of coming as attachment?

Team,
I have defined a job via SM36:
program name : RM06BA00
send output to:Distribution List.
The email received in the MsOutlook inBox shows the message as an attachment. I want the contents of the message shown in the body of the email. Any ideas? (Emails are received in .HTM extension)
Thanks
PS. Gmail and Hotmail emails shows the message as attachment. Yahoo shows the contents of the message in the body of the email.

<b>The code is attaced below</b>
*& Report ZSDN_SENDTXTVIAEMAIL                                        *
REPORT ZSDN_SENDTXTVIAEMAIL                    .
*report zrich_0003 .
data: maildata like sodocchgi1.
data: mailtxt like solisti1 occurs 10 with header line.
data: mailrec like somlrec90 occurs 0 with header line.
data: list type table of abaplist with header line.
data: ascilines(1024) type c occurs 0 with header line.
data: htmllines type table of w3html with header line.
parameters: p_check.
start-of-selection.
Here you would submit the program with parameters
and export it to memory.
submit zrich_0004 exporting list to memory and return.
submit RM06BA00
USING SELECTION-SET 'OPEN REQ'              "a variant
    USING SELECTION-SETS OF PROGRAM 'RM06BA00'
exporting list to memory and return. "Disp REqs pgm
Get the list from memory
call function 'LIST_FROM_MEMORY'
       tables
            listobject = list
       exceptions
            not_found = 1
            others     = 2.
Format to HTML
call function 'WWW_HTML_FROM_LISTOBJECT'
       tables
            html       = htmllines
            listobject = list.
clear: maildata, mailtxt, mailrec.
refresh: mailtxt, mailrec.
maildata-obj_name = 'TEST'.
maildata-obj_descr = 'Test Subject'.
Move the HTML lines into the body
of the email
loop at htmllines.
    mailtxt = htmllines.
    append mailtxt.
endloop.
mailrec-receiver = '[email protected]'.
mailrec-rec_type = 'U'.
append mailrec.
call function 'SO_NEW_DOCUMENT_SEND_API1'
       exporting
            document_data              = maildata
            document_type              = 'HTM'
            put_in_outbox              = 'X'
       tables
            object_header              = mailtxt
            object_content             = mailtxt
            receivers                  = mailrec
       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.
Here you are forcing the system to send
the email right away.
commit work.
wait up to 2 seconds.
submit rsconn01 with mode = 'INT'
               with output = 'X'
                          and return.

How can I attach a document to an email as an attachment that doesn't appear in the body of the text

When I send an email and attach a document it pastes it into the text. How do I send it as a separate attachment?

Control+Click or Right Click on the attachment within the body of the email and select 'view as icon'. Also make sure 'Send Windows-friendly attachments' is selected in Mail>Edit>Attachments menu.
There is a (paid for) plug in available called Attachment Tamer that will make this the default behaviour and generally help Mail to make attachments more compatible across computer platforms.
http://lokiware.info/Attachment-Tamer (disclaimer: no connection with the company just happy with their product - it works well).

How do I retain the formatting (i.e. tables or graphics) while saving a pdf as an html?

How do I retain the formatting (i.e. tables or graphics) while saving a pdf as an html?

Are the PDF files that you are attempting to Save As HTML tagged?

Sending PDF as an attachment in the ABAP server proxy

Hello All,
I have a synchronous SOAP to ABAP PROXY.
In the response ABAP server proxy i need to attach PDF file as an attachment.
Could you please suggest any ideas of attaching PDF file as an attachment in the SERVER PROXY response.
Thanks in advance.
Hari

Hi Hari,
check this link: http://help.sap.com/saphelp_nw70/helpdata/en/51/d5cd16235e4643ae8ec92395c4ad97/frameset.htm
Also search on SDN, you will get many thread links with same question
ABAP Proxy Attachment
Regards,
Praveen Gujjeti

PDF attachemnt Ok, HTML attachment in the body

Similar Messages

Maybe you are looking for