How to use FM SO_DOCUMENT_REPOSITORY_MANAGER send mail with CC.

Dear Experts:
Please help me. How to use FM SO_DOCUMENT_REPOSITORY_MANAGER send mail with CC.
My Program code is as follow:
*Send the mail.
tb_receipients-recnam = 'BAITZ'.
tb_receipients-recesc = 'B'.
tb_receipients-sndex = 'X'.
tb_receipients-att_fix ='X' .
APPEND tb_receipients.
CALL FUNCTION 'SO_DOCUMENT_REPOSITORY_MANAGER'
EXPORTING
    method       = wa_method1
    office_user = wa_owner
    ref_document = wa_ref_document
    new_parent   = wa_new_parent
IMPORTING
    authority    = wa_authority
TABLES
    objcont      = tb_objcnt
    objhead      = tb_objhead
    objpara      = tb_objpara
    objparb      = tb_objparb
    recipients   = tb_receipients
    attachments = tb_attachments
    references   = tb_references
    files        = tb_files
CHANGING
    document     = wa_document
    header_data = wa_header.
endform.                    " send_mail
By the why, tb_receipients-recnam = 'BAITZ'. What's the meaning of 'BAITZ'? Thanks!

you can use FM SO_NEW_DOCUMENT_SEND_API1
WA_RECV TYPE SOMLRECI1,
IT_RECV TYPE STANDARD TABLE OF SOMLRECI1.
wa_recv-receiver = 'TO email address'.
wa_recv-rec_type = 'U'.
wa_recv-com_type = 'INT'.
APPEND wa_recv TO it_recv.
CLEAR wa_recv."To Recipient
wa_recv-receiver = 'CC email address'.
wa_recv-rec_type = 'U'.
wa_recv-com_type = 'INT'.
wa_recv-copy = 'X'.
APPEND wa_recv TO it_recv.
CLEAR wa_recv. "CC Recipient
wa_recv-receiver = 'BCC email address'.
wa_recv-rec_type = 'U'.
wa_recv-com_type = 'INT'.
wa_recv-blind_copy = 'X'.
APPEND wa_recv TO it_recv.
CLEAR wa_recv. "BCC Recipient

Similar Messages

How to config SAP to send mail with autentication

I'm trying to send emails using SAP, and I've manage to do it, I configurated the smtp server in SCOT transaction, sap conects to it and send's emails.
however some emails are blocked because I don't use any kind of authentication. How can I config that?

Hi,
How to config SAP to send mail with autentication
friend you questionis already discussed in one of sdn thread.please search once the forum then apply Qn. on SDN.
this time i can help you but please next time onwards serch first on SDN forums.
Mail Server
Thnks
Mhn

How to use UTL_SMTP to send email with existing file attachment

Hello! I am trying to create a pl/sql procedure that lets me send an email and include an existing file to a email address. So far, I found information on how to send a file and create an attachment with information I put in the procedure. This is NOT what I'm trying to do. I'm trying to send an email and include an attachment for a file that already exists. I need the pre-existing file to be sent to the email recipient.
This is how far I've gotten, but this only allows me to CREATE an attachment with the information I put in it from the procedure. I got it from the following site:
http://www.orafaq.com/wiki/Send_mail_from_PL/SQL
DECLARE
   v_From       VARCHAR2(80) := '[email protected]';
   v_Recipient VARCHAR2(80) := '[email protected]';
   v_Subject    VARCHAR2(80) := 'Weekly Invoice Report';
   v_Mail_Host VARCHAR2(30) := 'mail.mycompany.com';
   v_Mail_Conn utl_smtp.Connection;
   crlf         VARCHAR2(2) := chr(13)||chr(10);
BEGIN
v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host, 25);
utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);
utl_smtp.Mail(v_Mail_Conn, v_From);
utl_smtp.Rcpt(v_Mail_Conn, v_Recipient);
utl_smtp.Data(v_Mail_Conn,
    'Date: '   || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
    'From: '   || v_From || crlf ||
    'Subject: '|| v_Subject || crlf ||
    'To: '     || v_Recipient || crlf ||
    'MIME-Version: 1.0'|| crlf ||     -- Use MIME mail standard
    'Content-Type: multipart/mixed;'|| crlf ||
    ' boundary="-----SECBOUND"'|| crlf ||
    crlf ||
    '-------SECBOUND'|| crlf ||
    'Content-Type: text/plain;'|| crlf ||
    'Content-Transfer_Encoding: 7bit'|| crlf ||
    crlf ||
    'This is a test'|| crlf ||     -- Message body
    'of the email attachment'|| crlf ||
    crlf ||
    '-------SECBOUND'|| crlf ||
    'Content-Type: text/plain;'|| crlf ||
    ' name="ap_inv_supplier_cc10.txt"'|| crlf ||
    'Content-Transfer_Encoding: 8bit'|| crlf ||
    'Content-Disposition: attachment;'|| crlf ||
    ' filename="ap_inv_supplier_cc10.txt"'|| crlf ||
    crlf ||
    'TXT,file,attachment'|| crlf ||     -- Content of attachment (THIS IS MY PROBLEM! I NEED TO BE ABLE TO ATTACH AN EXISTING FILE, NOT CREATE A NEW ONE)
    crlf ||
    '-------SECBOUND--'               -- End MIME mail
utl_smtp.Quit(v_mail_conn);
EXCEPTION
WHEN utl_smtp.Transient_Error OR utl_smtp.Permanent_Error then
    raise_application_error(-20000, 'Unable to send mail: '||sqlerrm);
END;
/

First, you must create a directory object
create directory ORALOAD as '/home/ldcgroup/ldccbc/'
/Study the Prerequisites in the link I posted above, or else you will not be able to read/write files from the above directory object
"fname" relates to the file name that you read from.
In the code below, it is also the name of the file that you are attaching.
Although they can be different!
l_Output is the contents of the file.
declare
vInHandle utl_file.file_type;
flen       number;
bsize      number;
ex         boolean;
l_Output   raw(32767);
fname      varchar2(30) := 'ap_inv_supplier_cc10.txt';
vSender    varchar2(30) := '[email protected]';
vRecip     varchar2(30) := '[email protected]';
vSubj      varchar2(50) := 'Weekly Invoice Report';
vAttach    varchar2(50) := 'ap_inv_supplier_cc10.txt';
vMType     varchar2(30) := 'text/plain; charset=us-ascii';
begin
utl_file.fgetattr('ORALOAD', fname, ex, flen, bsize);
vInHandle := utl_file.fopen('ORALOAD', fname, 'R');
utl_file.get_raw (vInHandle, l_Output);
utl_file.fclose(vInHandle);
utl_mail.send_attach_raw(sender       => vSender
                          ,recipients   => vRecip
                          ,subject      => vsubj
                          ,attachment   => l_Output
                          ,att_inline   => false
                          ,att_filename => fname);
end;
/

Sending mail with SMTP sends it twice

I'm sending a text mail, and with my ISP's smtp server it works fine. With my employer's SMTP server, I get each mail that is sent twice. I'm not sure why but I know it's not a problem with the code because I've compared the code to the examples and also because it works fine with my ISP's SMTP server. If I use Outlook to send mail with my work SMTP server I get the emails only once. I saw on jGuru someone posted the same question with no response. Any ideas???
Michael

hi cunparis,
I have same problem. I am sending single mail but some time I got 2 mails.and aslo according to sendmail logs the mails are in fact sent twice.I would like to add one more point that this is on HP-UX. So if you have solution share it with us. Thanks in advance.

Send mail with attached file without using Repository

Hello,
I want to know if have a way to Send mail with attached file without using Repository.
Regards
Elad

Elad,
Check this article where a image has been picked by the file adapter and sent as an attachment to the mail adapter.
<a href="https://www.sdn.sap.comhttp://www.sdn.sap.comhttp://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/6d967fbc-0a01-0010-4fb4-91c6d38c5816">Sending an Image File Through XI in a File-to-Mail Scenario</a>
For how to proceed without integration repository content look into this blog,
<a href="/people/william.li/blog/2006/09/08/how-to-send-any-data-even-binary-through-xi-without-using-the-integration-repository">How to send any data (even binary) through XI, without using the Integration Repository</a>
Combining these 2 you have the solution.
Regards
Bhavesh

How to send mail with attachments - ALBPM 5.7

Hi All,
I am new to BPM,
Someone could help giving me a example of Send Mail with attachments in Aqualogic Studio 5.7?
thanks,
Renata

nombrefichero="C:\\Temp\\test.doc"
subject as String="Subject"
message as String="Message"
mailAttachment = Fuego.Net.MailAttachment(source : BinaryFile.readToBinaryFrom(name : nombrefichero), fileName : "test2.doc")
mailAttachments[0] = mailAttachment
correo as Mail
correo.attachments = mailAttachments
correo.contentType = "text/html"
send correo
using from = "[email protected]",
recipient = "[email protected]",
subject = subject,
message = message

Sending mails with attachments using oracle 8i

Hi,
Could anybody please send a sample code for sending mails
with attachments using oracle 8i.
Thanks in advance

For oracle8i there is an example package from OTN:
http://www.oracle.com/technology/sample_code/tech/pl_sql/htdocs/Utl_Smtp_Sample.html
You have to re-write the package a bit to work it with BLOBs instead of RAW attachments, but that should be no problem
Hop this helps,
Michiel

I can't send mail with my google apps account using mail

Can anyone help me here.
My Mail program is acting strangely.
First I could send email but not with an attachment. Now I cant send at all. I am using a Google Apps Email account. It was working fine yesterday.
I also have an iCloud @me.com account which sends mail with the attachments but the sent mail is not showing up in the sent items box.

iOS: Unable to send or receive email
http://support.apple.com/kb/TS3899
Can’t Send Emails on iPad – Troubleshooting Steps
http://ipadhelp.com/ipad-help/ipad-cant-send-emails-troubleshooting-steps/
iPad Mail
http://www.apple.com/support/ipad/mail/
 Cheers, Tom

How to send mail with attachment

Hi,
How to send mail with word document as attachment in oracle pl/sql.
kindly help me .
thank you
regards
P Prakash

create or replace procedure pdf_mail(
 p_sender varchar2, -- sender, example: 'Me <[email protected]>'
 p_recipients varchar2, -- recipients, example: 'Someone <[email protected]>'
 p_subject varchar2, -- subject
p_text varchar2, -- text
p_filename varchar2, -- name of pdf file
p_blob blob -- pdf file
) is
conn utl_smtp.connection;
i number;
len number;
BEGIN
conn := demo_mail.begin_mail(
 sender => p_sender,
 recipients => p_recipients,
 subject => p_subject,
 mime_type => demo_mail.MULTIPART_MIME_TYPE);
demo_mail.begin_attachment(
 conn => conn,
 mime_type => 'application/pdf',
 inline => TRUE,
 filename => p_filename,
 transfer_enc => 'base64');
 -- split the Base64 encoded attachment into multiple lines
 i := 1;
 len := DBMS_LOB.getLength(p_blob);
 WHILE (i < len) LOOP
 IF(i + demo_mail.MAX_BASE64_LINE_WIDTH < len)THEN
 UTL_SMTP.Write_Raw_Data (conn
 , UTL_ENCODE.Base64_Encode(
 DBMS_LOB.Substr(p_blob, demo_mail.MAX_BASE64_LINE_WIDTH, i)));
 ELSE
 UTL_SMTP.Write_Raw_Data (conn
 , UTL_ENCODE.Base64_Encode(
 DBMS_LOB.Substr(p_blob, (len - i)+1, i)));
 END IF;
 UTL_SMTP.Write_Data(conn, UTL_TCP.CRLF);
 i := i + demo_mail.MAX_BASE64_LINE_WIDTH;
 END LOOP;
demo_mail.end_attachment(conn => conn);
demo_mail.attach_text(
 conn => conn,
 data => p_text,
 mime_type => 'text/html');
demo_mail.end_mail( conn => conn );
END;
ref:
http://www.plpdf.com/23-1725.html
Edited by: Mahanam on Jan 9, 2011 10:32 PM

Send mail with attachment

Hello all.
I have a problem that i dont know how to resolve: I need to send an email to some adresses with an attachment ( an excel file stored on the server's drive) How can it be done?
The email has to be sent by a job that should do this operation each day.
Thank you,
Cristian.
Message was edited by:
 Cristian Boartes

see this
Sending mail with attachment
This program will allowed you to send email with attachment.
First, specify the attachment file from your local hardisk and execute.
Next, specify the sender email address and click the send button.
report y_cr17_mail.
data method1 like sy-ucomm.
data g_user like soudnamei1.
data g_user_data like soudatai1.
data g_owner like soud-usrnam.
data g_receipients like soos1 occurs 0 with header line.
data g_document like sood4 .
data g_header like sood2.
data g_folmam like sofm2.
data g_objcnt like soli occurs 0 with header line.
data g_objhead like soli occurs 0 with header line.
data g_objpara like selc occurs 0 with header line.
data g_objparb like soop1 occurs 0 with header line.
data g_attachments like sood5 occurs 0 with header line.
data g_references like soxrl occurs 0 with header line.
data g_authority like sofa-usracc.
data g_ref_document like sood4.
data g_new_parent like soodk.
data: begin of g_files occurs 10 ,
text(4096) type c,
 end of g_files.
data : fold_number(12) type c,
 fold_yr(2) type c,
 fold_type(3) type c.
parameters ws_file(4096) type c default 'c:\debugger.txt'.
Can me any file fromyour pc ....either xls or word or ppt etc ...
g_user-sapname = sy-uname.
call function 'SO_USER_READ_API1'
exporting
 user = g_user
 PREPARE_FOR_FOLDER_ACCESS = ' '
importing
 user_data = g_user_data
EXCEPTIONS
 USER_NOT_EXIST = 1
 PARAMETER_ERROR = 2
 X_ERROR = 3
 OTHERS = 4
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
fold_type = g_user_data-outboxfol+0(3).
fold_yr = g_user_data-outboxfol+3(2).
fold_number = g_user_data-outboxfol+5(12).
clear g_files.
refresh : g_objcnt,
g_objhead,
g_objpara,
g_objparb,
g_receipients,
g_attachments,
g_references,
g_files.
method1 = 'SAVE'.
g_document-foltp = fold_type.
g_document-folyr = fold_yr.
g_document-folno = fold_number.
g_document-objtp = g_user_data-object_typ.
*g_document-OBJYR = '27'.
*g_document-OBJNO = '000000002365'.
*g_document-OBJNAM = 'MESSAGE'.
g_document-objdes = 'sap-img.com testing by program'.
g_document-folrg = 'O'.
*g_document-okcode = 'CHNG'.
g_document-objlen = '0'.
g_document-file_ext = 'TXT'.
g_header-objdes = 'sap-img.com testing by program'.
g_header-file_ext = 'TXT'.
call function 'SO_DOCUMENT_REPOSITORY_MANAGER'
exporting
 method = method1
 office_user = sy-uname
 ref_document = g_ref_document
 new_parent = g_new_parent
importing
 authority = g_authority
tables
 objcont = g_objcnt
 objhead = g_objhead
 objpara = g_objpara
 objparb = g_objparb
 recipients = g_receipients
 attachments = g_attachments
 references = g_references
 files = g_files
changing
 document = g_document
 header_data = g_header
FOLMEM_DATA =
RECEIVE_DATA =
File from the pc to send...
method1 = 'ATTCREATEFROMPC'.
g_files-text = ws_file.
append g_files.
call function 'SO_DOCUMENT_REPOSITORY_MANAGER'
exporting
 method = method1
 office_user = g_owner
 ref_document = g_ref_document
 new_parent = g_new_parent
importing
 authority = g_authority
tables
 objcont = g_objcnt
 objhead = g_objhead
 objpara = g_objpara
 objparb = g_objparb
 recipients = g_receipients
 attachments = g_attachments
 references = g_references
 files = g_files
changing
 document = g_document
 header_data = g_header
method1 = 'SEND'.
g_receipients-recnam = 'MK085'.
g_receipients-recesc = 'B'.
g_receipients-sndex = 'X'.
append g_receipients.
call function 'SO_DOCUMENT_REPOSITORY_MANAGER'
exporting
 method = method1
 office_user = g_owner
 ref_document = g_ref_document
 new_parent = g_new_parent
importing
 authority = g_authority
tables
 objcont = g_objcnt
 objhead = g_objhead
 objpara = g_objpara
 objparb = g_objparb
 recipients = g_receipients
 attachments = g_attachments
 references = g_references
 files = g_files
changing
 document = g_document
 header_data = g_header.
*-- End of Program
also try this one for background scheduling the same
Sending mail with attachment report in Background
Pay attention because its working with output list from spool converted to pdf.
=================================================================================
z_send_email_fax_global
FUNCTION-POOL z_gfaian_mail_fax. MESSAGE-ID ..
WORK TABLE AREAS
TABLES: tsp01.
INTERNAL TABLES
DATA: lt_rec_tab LIKE STANDARD TABLE OF soos1 WITH HEADER LINE,
lt_note_text LIKE STANDARD TABLE OF soli WITH HEADER LINE,
lt_attachments LIKE STANDARD TABLE OF sood5 WITH HEADER LINE.
DATA: lt_objcont LIKE STANDARD TABLE OF soli WITH HEADER LINE,
lt_objhead LIKE STANDARD TABLE OF soli WITH HEADER LINE.
DATA: pdf_format LIKE STANDARD TABLE OF tline WITH HEADER LINE.
TYPES: BEGIN OF y_files,
file(60) TYPE c,
END OF y_files.
DATA: lt_files TYPE STANDARD TABLE OF y_files WITH HEADER LINE.
DATA: l_objcont LIKE soli OCCURS 0 WITH HEADER LINE.
DATA: l_objhead LIKE soli OCCURS 0 WITH HEADER LINE.
STRUCTURES
DATA: folder_id LIKE soodk,
object_id LIKE soodk,
link_folder_id LIKE soodk,
g_document LIKE sood4,
 g_header_data LIKE sood2,
g_folmem_data LIKE sofm2,
g_header_data LIKE sood2,
g_receive_data LIKE soos6,
g_ref_document LIKE sood4,
g_new_parent LIKE soodk,
l_folder_id LIKE sofdk,
v_email(50).
DATA: hd_dat like sood1.
VARIABLES
DATA: client LIKE tst01-dclient,
name LIKE tst01-dname,
objtype LIKE rststype-type,
type LIKE rststype-type.
DATA: numbytes TYPE i,
arc_idx LIKE toa_dara,
pdfspoolid LIKE tsp01-rqident,
jobname LIKE tbtcjob-jobname,
jobcount LIKE tbtcjob-jobcount,
is_otf.
DATA: outbox_flag LIKE sonv-flag VALUE X,
store_flag LIKE sonv-flag,
delete_flag LIKE sonv-flag,
owner LIKE soud-usrnam,
on LIKE sonv-flag VALUE X,
sent_to_all LIKE sonv-flag,
g_authority LIKE sofa-usracc,
w_objdes LIKE sood4-objdes.
DATA: c_file LIKE rlgrap-filename,
n_spool(6) TYPE n.
DATA: cancel.
DATA: desired_type LIKE sood-objtp,
real_type LIKE sood-objtp,
attach_type LIKE sood-objtp,
otf LIKE sood-objtp VALUE OTF, SAPscript Ausgabeformat
ali LIKE sood-objtp VALUE ALI. ABAP lists
CONSTANTS
CONSTANTS: ou_fol LIKE sofh-folrg VALUE O,
c_objtp LIKE g_document-objtp VALUE RAW,
c_file_ext LIKE g_document-file_ext VALUE TXT.
=================================================================================
z_send_email_fax2
FUNCTION z_faian_mail_fax2.
Interface local:
* IMPORTING
* REFERENCE(SRC_SPOOLID) LIKE TSP01-RQIDENT
* REFERENCE(FAX_MAIL_NUMBER) TYPE SO_NAME
* REFERENCE(HEADER_MAIL) TYPE SO_OBJ_DES
* REFERENCE(OBJECT_TYPE) TYPE SO_ESCAPE
* TABLES
* LT_BODY_EMAIL STRUCTURE SOLI
* EXCEPTIONS
* ERR_NO_ABAP_SPOOLJOB
Fist part: Verify if the spool really exists
SELECT SINGLE * FROM tsp01 WHERE rqident = src_spoolid.
IF sy-subrc NE 0.
RAISE err_no_abap_spooljob. doesnt exist
ELSE.
client = tsp01-rqclient.
name = tsp01-rqo1name.
CALL FUNCTION RSTS_GET_ATTRIBUTES
EXPORTING
authority = SP01′
client = client
name = name
part = 1
IMPORTING
type = type
objtype = objtype
EXCEPTIONS
fb_error = 1
fb_rsts_other = 2
no_object = 3
no_permission = 4
OTHERS = 5.
IF objtype(3) = OTF.
desired_type = otf.
ELSE.
desired_type = ali.
ENDIF.
CALL FUNCTION RSPO_RETURN_SPOOLJOB
EXPORTING
rqident = src_spoolid
desired_type = desired_type
IMPORTING
real_type = real_type
TABLES
buffer = l_objcont
EXCEPTIONS
no_such_job = 14
type_no_match = 94
job_contains_no_data = 54
no_permission = 21
can_not_access = 21
read_error = 54.
IF sy-subrc EQ 0.
attach_type = real_type.
ENDIF.
CALL FUNCTION SO_FOLDER_ROOT_ID_GET
EXPORTING
owner = sy-uname
region = ou_fol
IMPORTING
folder_id = l_folder_id
EXCEPTIONS
OTHERS = 5.
fill out informations about the header of the email
CLEAR: g_document.
g_document-foltp = l_folder_id-foltp.
g_document-folyr = l_folder_id-folyr.
g_document-folno = l_folder_id-folno.
g_document-objtp = c_objtp.
g_document-objdes = header_mail.
g_document-file_ext = c_file_ext.
g_header_data-objdes = header_mail.
CALL FUNCTION SO_DOCUMENT_REPOSITORY_MANAGER
EXPORTING
method = SAVE
office_user = sy-uname
IMPORTING
authority = g_authority
TABLES
objcont = lt_body_email
attachments = lt_attachments
CHANGING
document = g_document
header_data = g_header_data
EXCEPTIONS
OTHERS = 1.
folder_id-objtp = l_folder_id-foltp.
folder_id-objyr = l_folder_id-folyr.
folder_id-objno = l_folder_id-folno.
object_id-objtp = c_objtp.
object_id-objyr = g_document-objyr.
object_id-objno = g_document-objno.
link_folder_id-objtp = l_folder_id-foltp.
link_folder_id-objyr = l_folder_id-folyr.
link_folder_id-objno = l_folder_id-folno.
REFRESH lt_rec_tab.
 CLEAR lt_rec_tab.
 lt_rec_tab-sel = X.
 lt_rec_tab-recesc = object_type. This field for FAX/MAIL
 lt_rec_tab-recnam = U-.
 lt_rec_tab-deliver = X.
 lt_rec_tab-not_deli = X.
 lt_rec_tab-read = X.
 lt_rec_tab-mailstatus = E.
 lt_rec_tab-adr_name = fax_mail_number.
 lt_rec_tab-sortfield = fax_mail_number.
 lt_rec_tab-recextnam = fax_mail_number.
 lt_rec_tab-sortclass = 5′.
 APPEND lt_rec_tab.
lt_rec_tab-recextnam = fax_mail_number.
lt_rec_tab-recesc = object_type.
lt_rec_tab-sndart = INT.
lt_rec_tab-sndpri = 1.
APPEND lt_rec_tab.
lt_files-file = c_file.
APPEND lt_files.
begin of insertion by faianf01
hd_dat-objdes = header_mail.
CALL FUNCTION SO_ATTACHMENT_INSERT
EXPORTING
object_id = object_id
attach_type = attach_type
object_hd_change = hd_dat
owner = sy-uname
TABLES
objcont = l_objcont
objhead = l_objhead
EXCEPTIONS
active_user_not_exist = 35
communication_failure = 71
object_type_not_exist = 17
operation_no_authorization = 21
owner_not_exist = 22
parameter_error = 23
substitute_not_active = 31
substitute_not_defined = 32
system_failure = 72
x_error = 1000.
IF sy-subrc > 0.
ENDIF.
end of insertion by faianf01
send email from SAPOFFICE
CALL FUNCTION SO_OBJECT_SEND
EXPORTING
folder_id = folder_id
object_id = object_id
outbox_flag = outbox_flag
link_folder_id = link_folder_id
owner = sy-uname
 check_send_authority = X
TABLES
receivers = lt_rec_tab
 note_text = lt_note_text
EXCEPTIONS
active_user_not_exist = 35
communication_failure = 71
component_not_available = 1
folder_no_authorization = 5
folder_not_exist = 6
forwarder_not_exist = 8
object_no_authorization = 13
object_not_exist = 14
object_not_sent = 15
operation_no_authorization = 21
owner_not_exist = 22
parameter_error = 23
substitute_not_active = 31
substitute_not_defined = 32
system_failure = 72
too_much_receivers = 73
user_not_exist = 35.
ENDIF.
ENDFUNCTION.
=================================================================================
z_send_email_fax
FUNCTION ZCBFS_SEND_MAIL.
Interface local:
* IMPORTING
* REFERENCE(SRC_SPOOLID) LIKE TSP01-RQIDENT
* REFERENCE(HEADER_MAIL) TYPE SO_OBJ_DES
* TABLES
* LIST_FAX_MAIL_NUMBER STRUCTURE SOLI
* EXCEPTIONS
* ERR_NO_ABAP_SPOOLJOB
DATA: vg_achou(1) TYPE n.
Fist part: Verify if the spool really exists
vg_achou = 1.
DO 60 TIMES.
SELECT SINGLE * FROM tsp01 WHERE rqident = src_spoolid.
IF sy-subrc IS INITIAL.
CLEAR vg_achou.
EXIT.
ELSE.
WAIT UP TO 1 SECONDS.
ENDIF.
ENDDO.
IF vg_achou = 1.
RAISE err_no_abap_spooljob. doesnt exist
ENDIF.
client = tsp01-rqclient.
name = tsp01-rqo1name.
CALL FUNCTION RSTS_GET_ATTRIBUTES
EXPORTING
authority = SP01′
client = client
name = name
part = 1
IMPORTING
type = type
objtype = objtype
EXCEPTIONS
fb_error = 1
fb_rsts_other = 2
no_object = 3
no_permission = 4
OTHERS = 5.
IF objtype(3) = OTF.
desired_type = otf.
ELSE.
desired_type = ali.
ENDIF.
CALL FUNCTION RSPO_RETURN_SPOOLJOB
EXPORTING
rqident = src_spoolid
desired_type = desired_type
IMPORTING
real_type = real_type
TABLES
buffer = l_objcont
EXCEPTIONS
no_such_job = 14
type_no_match = 94
job_contains_no_data = 54
no_permission = 21
can_not_access = 21
read_error = 54.
IF sy-subrc EQ 0.
attach_type = real_type.
ENDIF.
CALL FUNCTION SO_FOLDER_ROOT_ID_GET
EXPORTING
owner = sy-uname
region = ou_fol
IMPORTING
folder_id = l_folder_id
EXCEPTIONS
OTHERS = 5.
fill out informations about the header of the email
CLEAR: g_document.
g_document-foltp = l_folder_id-foltp.
g_document-folyr = l_folder_id-folyr.
g_document-folno = l_folder_id-folno.
g_document-objtp = c_objtp.
g_document-objdes = header_mail.
g_document-file_ext = c_file_ext.
g_header_data-objdes = header_mail.
CALL FUNCTION SO_DOCUMENT_REPOSITORY_MANAGER
EXPORTING
method = SAVE
office_user = sy-uname
IMPORTING
authority = g_authority
TABLES
attachments = lt_attachments
CHANGING
document = g_document
header_data = g_header_data
EXCEPTIONS
OTHERS = 1.
folder_id-objtp = l_folder_id-foltp.
folder_id-objyr = l_folder_id-folyr.
folder_id-objno = l_folder_id-folno.
object_id-objtp = c_objtp.
object_id-objyr = g_document-objyr.
object_id-objno = g_document-objno.
link_folder_id-objtp = l_folder_id-foltp.
link_folder_id-objyr = l_folder_id-folyr.
link_folder_id-objno = l_folder_id-folno.
REFRESH lt_rec_tab.
LOOP AT LIST_FAX_MAIL_NUMBER.
lt_rec_tab-recextnam = LIST_FAX_MAIL_NUMBER-LINE.
lt_rec_tab-recesc = U.
lt_rec_tab-sndart = INT.
lt_rec_tab-sndpri = 1.
APPEND lt_rec_tab.
ENDLOOP.
lt_files-file = c_file.
APPEND lt_files.
hd_dat-objdes = header_mail.
CALL FUNCTION SO_ATTACHMENT_INSERT
EXPORTING
object_id = object_id
attach_type = attach_type
object_hd_change = hd_dat
owner = sy-uname
TABLES
objcont = l_objcont
objhead = l_objhead
EXCEPTIONS
active_user_not_exist = 35
communication_failure = 71
object_type_not_exist = 17
operation_no_authorization = 21
owner_not_exist = 22
parameter_error = 23
substitute_not_active = 31
substitute_not_defined = 32
system_failure = 72
x_error = 1000.
IF sy-subrc > 0.
ENDIF.
send email from SAPOFFICE
CALL FUNCTION SO_OBJECT_SEND
EXPORTING
folder_id = folder_id
object_id = object_id
outbox_flag = outbox_flag
link_folder_id = link_folder_id
owner = sy-uname
TABLES
receivers = lt_rec_tab
note_text = lt_note_text
EXCEPTIONS
active_user_not_exist = 35
communication_failure = 71
component_not_available = 1
folder_no_authorization = 5
folder_not_exist = 6
forwarder_not_exist = 8
object_no_authorization = 13
object_not_exist = 14
object_not_sent = 15
operation_no_authorization = 21
owner_not_exist = 22
parameter_error = 23
substitute_not_active = 31
substitute_not_defined = 32
system_failure = 72
too_much_receivers = 73
user_not_exist = 35.
ENDFUNCTION.
regards,
srinivas
*reward for useful answers*

Send Mail with Multiple Attachment

How to send mail with multiple attachment. The documents are in a table column BLOB. Read and attach in to mail directly.
We dont want save the documents into hard disk and attach to mail. Please Help
If you have java procedure or Pl/Sql Procedure. I think pl/sql cant. So please mail me code to [email protected] mail id. Thank you.
Thanks in advance
Selvam

Hi all
Thanks for your reply, already tried this methods, Its not working for my requirements. Because my attachment is can be any type like pdf,doc,txt,xls,jpg,.
And also the Utl_mail is very slow. Its using RAW type.
I can use the javamail package to solve this problem, this javamail package needs to download into server from there you can attach thus documents into mail. But I want fetch the documents and ate the same time I want attach to a mail. Like yahoo attach or msn attachment.
Thank you,
Selvam

Convert Screen(spool) to PDF file sending mail with attach file

Hi :
I'd like convert spool list to pdf and sending file...
so, I read thread about spool convert to PDF before,
and know how to convert Spool to PDF file and send mail with attach file.
but I have a problem.
my solution as:
step 1. Call function: "CONVERT_ABAPSPOOLJOB_2_PDF"
step 2. Call function: "SO_NEW_DOCUMENT_ATT_SEND_API1"
then, I got a mail with attached PDF file, but the PDF file display limited 255 line.( SO_NEW_DOCUMENT_ATT_SEND_API1 limited)
I want to showing word is wider that 255.
and then I find a manual method as:
After program finished.
Function Menu -> system -> List -> Send
use Prog: "Create Document and Send"
I use this prog sending mail and attached file ,
PDF file do NOT have 255 word limit !
finally. my question is, If I want sending mail as Prog: "Create Document and Send", how to do?
which Function I have to use?...
Please help me, Thanks!

Hi,
Check this sample code of sending spool as attachment to an email address..
Parameters.
PARAMETERS: p_email(50) LOWER CASE.
PARAMETERS: p_spool LIKE tsp01-rqident.
Data declarations.
DATA: plist LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
DATA: document_data LIKE sodocchgi1.
DATA: so_ali LIKE soli OCCURS 100 WITH HEADER LINE.
DATA: real_type LIKE soodk-objtp.
DATA: sp_lang LIKE tst01-dlang.
DATA: line_size TYPE i VALUE 255.
DATA: v_name LIKE soextreci1-receiver.
DATA rec_tab LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
Get the spool data.
CALL FUNCTION 'RSPO_RETURN_SPOOLJOB'
 EXPORTING
 rqident = p_spool
 first_line = 1
 last_line = 0
 desired_type = ' '
 IMPORTING
 real_type = real_type
 sp_lang = sp_lang
 TABLES
 buffer = so_ali
 EXCEPTIONS
 no_such_job = 1
 job_contains_no_data = 2
 selection_empty = 3
 no_permission = 4
 can_not_access = 5
 read_error = 6
 type_no_match = 7
 OTHERS = 8.
IF sy-subrc <> 0.
MESSAGE s208(00) WITH 'Error'.
LEAVE LIST-PROCESSING.
ENDIF.
Prepare the data.
plist-transf_bin = 'X'.
plist-head_start = 0.
plist-head_num = 0.
plist-body_start = 0.
plist-body_num = 0.
plist-doc_type = 'RAW'.
plist-obj_descr = 'Test ALV'.
APPEND plist.
plist-transf_bin = 'X'.
plist-head_start = 0.
plist-head_num = 0.
plist-body_start = 1.
DESCRIBE TABLE so_ali LINES plist-body_num.
plist-doc_type = real_type.
Get the size.
READ TABLE so_ali INDEX plist-body_num.
plist-doc_size = ( plist-body_num - 1 ) * line_size
 + STRLEN( so_ali ).
APPEND plist.
Move the receiver address.
MOVE: p_email TO rec_tab-receiver,
 'U' TO rec_tab-rec_type.
APPEND rec_tab.
IF NOT sp_lang IS INITIAL.
document_data-obj_langu = sp_lang.
ELSE.
document_data-obj_langu = sy-langu.
ENDIF.
v_name = sy-uname.
Send the email.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
 EXPORTING
 document_data = document_data
 sender_address = v_name
 sender_address_type = 'B'
 TABLES
 packing_list = plist
 contents_bin = so_ali
 receivers = rec_tab
 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 e208(00) WITH 'Error'.
ENDIF.
COMMIT WORK.
Send the email immediately.
SUBMIT rsconn01
WITH mode = 'INT'
AND RETURN.
Thanks,
Naren

Send mail with correct encoding

pleace, can somebody tell me how to create a correct procedure to send mail with central europe signs?
i use
Procedure MailToOwner as
BEGIN
UTL_MAIL.send( sender => [email protected],
recipients => [email protected],
subject => 'subject',
message => ' text with central europe signs like ščř '|| ReturnCountDay,
priority => 3,
mime_type => 'text/plain; charset=windows-1250'
END MailToOwner;
my problem is that the mail dont show the message correct.
my second problem how i can send html message with this function?
changing mime_type => 'text/html; charset=windows-1250' didnt help me.
the mail still show me the html code as a text message.
thanks for any suggestion.
jura

after using
message => utl_raw.cast_to_raw ('UPOZORNENI: Platnost trial verze produktu u zakaznika vyprší') || ReturnPocetDni || utl_raw.cast_to_raw (' dni. '),
i recieved mail containing
X-Priority: 3
Content-Type: multipart/mixed;
boundary="------------4D8C24=_23F7E4A13B2357B3"
This is a multi-part message in MIME format.
--------------4D8C24=_23F7E4A13B2357B3
Content-Type: text/plain; charset=windows-1250
Content-Transfer-Encoding: quoted-printable
55504F5A4F524E454E493A20506C61746E6F737420747269616C207665727A652070726F647=
56B7475205333506F7274616C206D616E616765722075207A616B617A6E696B6120Mikro=
s.20767970727369207A6120-1020646E692E20

Sending mail with multiple attachment

hi.
i want to send mail with multiple attachment.
i m succeed in sending multiple attachment but the second pdf is not open.
its given error like "This file is damaged and could not be open.
pls check my code. and
give the solution....
point should be assured...........
hope all u r understand my problem..
& tell me where is i m missing something.
REPORT YSDPASALE1_MAIL LINE-SIZE 110.
data : year_month(6) type c.
data : from_date like sy-datum,to_date like sy-datum.
INITIALIZATION.
year_month = sy-datum+0(6).
CONCATENATE year_month '01' into from_date.
to_date = sy-datum.
ranges : temp for mkpf-budat.
temp-low = from_date.
temp-high = to_date.
append temp to temp.
DATA: P_JOBCNT LIKE TBTCJOB-JOBCOUNT,
 jobname like TBTCJOB-JOBNAME,
 L_RELEASE(1) TYPE c.
CONSTANTS : l_c_device(4) VALUE 'LOCL'.
DATA : t type i value 0.
DATA : p_email1 like somlreci1-receiver,
 p_sender LIKE somlreci1-receiver.
Data Declaration
DATA: gd_recsize TYPE i,gd_recsize1 TYPE i.
Spool IDs
TYPES: BEGIN OF t_tbtcp.
 INCLUDE STRUCTURE tbtcp.
TYPES: END OF t_tbtcp.
DATA: it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,
 wa_tbtcp TYPE t_tbtcp.
Job Runtime Parameters
DATA: gd_eventid LIKE tbtcm-eventid,
 gd_eventparm LIKE tbtcm-eventparm,
 gd_external_program_active LIKE tbtcm-xpgactive,
 gd_jobcount LIKE tbtcm-jobcount,
 gd_jobname LIKE tbtcm-jobname,
 gd_stepcount LIKE tbtcm-stepcount,
 gd_error TYPE sy-subrc,
 gd_reciever TYPE sy-subrc.
DATA: w_recsize TYPE i.
DATA: gd_subject LIKE sodocchgi1-obj_descr,
 it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 it_mess_att1 LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 it_mess_att2 LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 gd_sender_type LIKE soextreci1-adr_typ,
 gd_attachment_desc TYPE so_obj_nam,
 gd_attachment_desc1 TYPE so_obj_nam,
 gd_attachment_name TYPE so_obj_des,
 gd_mtitle LIKE sodocchgi1-obj_descr.
Spool to PDF conversions
DATA: gd_spool_nr LIKE tsp01-rqident,
 gd_destination LIKE rlgrap-filename,
 gd_bytecount LIKE tst01-dsize,
 gd_buffer TYPE string.
CONSTANTS: c_dev LIKE sy-sysid VALUE 'DEV',
 c_no(1) TYPE c VALUE ' ',
 c_device(4) TYPE c VALUE 'LOCL'.
Binary store for PDF
DATA: BEGIN OF it_pdf_output OCCURS 0.
 INCLUDE STRUCTURE tline.
DATA: END OF it_pdf_output.
DATA: BEGIN OF mailstr OCCURS 0,
 p_email like somlreci1-receiver,
 END OF mailstr.
DATA: mailtab like STANDARD TABLE OF mailstr WITH HEADER LINE.
DATA: ypp18tab like STANDARD TABLE OF mailstr WITH HEADER LINE,
 ymis008tab like STANDARD TABLE OF mailstr WITH HEADER LINE,
 ysd15tab like STANDARD TABLE OF mailstr WITH HEADER LINE,
 ymis10tab like STANDARD TABLE OF mailstr WITH HEADER LINE.
SUBMIT YSDPASALE1 with bdt in temp
 to sap-spool
 with line-size = '255'
 with KEEP_IN_SPOOL = 'X'
 with IMMEDIATELY = ' '
 WITHOUT SPOOL DYNPRO
 AND RETURN
 NEW-PAGE PRINT ON
 DESTINATION l_c_device
 IMMEDIATELY ' '
 KEEP IN SPOOL 'X'
 NEW LIST IDENTIFICATION 'X'
 NO DIALOG.
 new-page print off.
IF sy-batch EQ 'X'.
 PERFORM get_job_details.
 PERFORM obtain_spool_id.
 PERFORM convert_spool_to_pdf.
 select yemail as p_email into CORRESPONDING FIELDS OF TABLE ymis008tab
 from ymail
 where ytcode = 'YMIS008'.
ELSE.
 SKIP.
 WRITE:/ 'Program must be executed in background in-order for spool & mail sending',
 'request to be created.'.
ENDIF.
wait up to 3 seconds.
submit YSD_MONTHLY_SALES
 USING SELECTION-SET 'MAIL'
 to sap-spool
 with KEEP_IN_SPOOL = 'X'
 with IMMEDIATELY = ' ' "SPACE
 WITHOUT SPOOL DYNPRO
 AND RETURN
 NEW-PAGE PRINT ON
 DESTINATION l_c_device
 IMMEDIATELY ' '
 KEEP IN SPOOL 'X'
 NEW LIST IDENTIFICATION 'X'
 NO DIALOG.
 new-page print off.
 IF sy-batch EQ 'X'.
 gd_attachment_desc1 = 'YMIS10'.
 gd_mtitle = 'Monthly Sales Report'.
 PERFORM get_job_details.
 PERFORM obtain_spool_id.
 PERFORM convert_spool_to_pdf1.
 loop at it_mess_att.
 move it_mess_att1 to it_mess_att.
 APPEND it_mess_att.
 endloop.
 APPEND LINES OF it_mess_att1 to it_mess_att.
 free it_mess_att1.
 it_mess_att[] = it_mess_att1[].
 insert LINES OF it_mess_att1 into it_mess_att.
 APPEND LINES OF it_mess_att2 to it_mess_att .
 insert LINES OF it_mess_att1 into it_mess_att.
 insert LINES OF it_mess_att2 into it_mess_att.
 loop at ymis008tab into mailstr.
 p_email1 = mailstr-p_email.
 p_email1 = '[email protected]'.
 PERFORM process_email.
 endloop.
 clear mailstr.
 wait up to 5 seconds.
 SUBMIT rsconn01 WITH mode = 'INT'
 WITH output = 'X'
 AND RETURN.
ELSE.
 SKIP.
ENDIF.
 FORM obtain_spool_id *
FORM obtain_spool_id.
CHECK NOT ( gd_jobname IS INITIAL ).
CHECK NOT ( gd_jobcount IS INITIAL ).
SELECT * FROM tbtcp
 INTO TABLE it_tbtcp
 WHERE jobname = gd_jobname
 AND jobcount = gd_jobcount
 AND stepcount = gd_stepcount
 AND listident <> '0000000000'
 ORDER BY jobname
 jobcount
 stepcount.
READ TABLE it_tbtcp INTO wa_tbtcp INDEX 1.
IF sy-subrc = 0.
 message s004(zdd) with gd_spool_nr.
 gd_spool_nr = wa_tbtcp-listident.
 MESSAGE s004(zdd) WITH gd_spool_nr.
ELSE.
 MESSAGE s005(zdd).
ENDIF.
ENDFORM.
 FORM get_job_details *
FORM get_job_details.
Get current job details
CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
 IMPORTING
 eventid = gd_eventid
 eventparm = gd_eventparm
 external_program_active = gd_external_program_active
 jobcount = gd_jobcount
 jobname = gd_jobname
 stepcount = gd_stepcount
 EXCEPTIONS
 no_runtime_info = 1
 OTHERS = 2.
ENDFORM.
 FORM convert_spool_to_pdf *
FORM convert_spool_to_pdf.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
 EXPORTING
 src_spoolid = gd_spool_nr
 no_dialog = c_no
 dst_device = c_device
 IMPORTING
 pdf_bytecount = gd_bytecount
 TABLES
 pdf = it_pdf_output
 EXCEPTIONS
 err_no_abap_spooljob = 1
 err_no_spooljob = 2
 err_no_permission = 3
 err_conv_not_possible = 4
 err_bad_destdevice = 5
 user_cancelled = 6
 err_spoolerror = 7
 err_temseerror = 8
 err_btcjob_open_failed = 9
 err_btcjob_submit_failed = 10
 err_btcjob_close_failed = 11
 OTHERS = 12.
CHECK sy-subrc = 0.
Transfer the 132-long strings to 255-long strings
LOOP AT it_pdf_output.
 TRANSLATE it_pdf_output USING ' ~'.
 CONCATENATE gd_buffer it_pdf_output INTO gd_buffer.
ENDLOOP.
TRANSLATE gd_buffer USING '~ '.
DO.
 it_mess_att = gd_buffer.
 APPEND it_mess_att.
 SHIFT gd_buffer LEFT BY 255 PLACES.
 IF gd_buffer IS INITIAL.
 EXIT.
 ENDIF.
ENDDO.
ENDFORM.
FORM convert_spool_to_pdf1.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
 EXPORTING
 src_spoolid = gd_spool_nr
 no_dialog = c_no
 dst_device = c_device
 IMPORTING
 pdf_bytecount = gd_bytecount
 TABLES
 pdf = it_pdf_output
 EXCEPTIONS
 err_no_abap_spooljob = 1
 err_no_spooljob = 2
 err_no_permission = 3
 err_conv_not_possible = 4
 err_bad_destdevice = 5
 user_cancelled = 6
 err_spoolerror = 7
 err_temseerror = 8
 err_btcjob_open_failed = 9
 err_btcjob_submit_failed = 10
 err_btcjob_close_failed = 11
 OTHERS = 12.
CHECK sy-subrc = 0.
Transfer the 132-long strings to 255-long strings
LOOP AT it_pdf_output.
 TRANSLATE it_pdf_output USING ' ~'.
 CONCATENATE gd_buffer it_pdf_output INTO gd_buffer.
ENDLOOP.
TRANSLATE gd_buffer USING '~ '.
DO.
 it_mess_att1 = gd_buffer.
 APPEND it_mess_att1.
 SHIFT gd_buffer LEFT BY 255 PLACES.
 IF gd_buffer IS INITIAL.
 EXIT.
 ENDIF.
ENDDO.
ENDFORM.
 FORM process_email *
FORM process_email.
DESCRIBE TABLE it_mess_att LINES gd_recsize.
DESCRIBE TABLE it_mess_att1 LINES gd_recsize1.
CHECK gd_recsize > 0 or gd_recsize1 > 0.
PERFORM send_email." USING p_email1.
perform send_email using p_email2.
ENDFORM.
 FORM send_email *
--> p_email *
FORM send_email." USING p_email.
CHECK NOT ( p_email IS INITIAL ).
REFRESH it_mess_bod.
Default subject matter
gd_subject = 'Subject'.
gd_attachment_desc = gd_attachment_desc1 .
gd_attachment_desc = 'YPP18 - Daily Highlights'.
CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.
it_mess_bod = 'Dear Sir,'.
APPEND it_mess_bod.
it_mess_bod = ' '.
APPEND it_mess_bod.
it_mess_bod = ' '.
APPEND it_mess_bod.
it_mess_bod = 'kindly find the attached document'.
APPEND it_mess_bod.
it_mess_bod = ' '.
APPEND it_mess_bod.
it_mess_bod = 'Do not reply on this mail, It is generated from SAP'.
APPEND it_mess_bod.
it_mess_bod = ' '.
APPEND it_mess_bod.
it_mess_bod = ' '.
APPEND it_mess_bod.
it_mess_bod = 'Regards,'.
APPEND it_mess_bod.
it_mess_bod = 'Arpit Shah'.
APPEND it_mess_bod.
If no sender specified - default blank
IF p_sender EQ space.
 gd_sender_type = space.
ELSE.
 gd_sender_type = 'INT'.
ENDIF.
Send file by email as .xls speadsheet
PERFORM send_file_as_email_attachment
 tables it_mess_bod
 it_mess_att
 it_mess_att1
 using "p_email
 gd_mtitle
 'Testing mail generated from SAP'
 'Daily Highlights Abstract Report - YPP18'
 'PDF'
 gd_attachment_name
 gd_attachment_desc
 p_sender
 gd_sender_type
 changing gd_error
 gd_reciever.
ENDFORM.
*& Form SEND_FILE_AS_EMAIL_ATTACHMENT
 Send email
FORM send_file_as_email_attachment tables it_message
 it_attach
 it_attach1
 using "p_email
 p_mtitle
 p_format
 p_filename
 p_attdescription
 p_sender_address
 p_sender_addres_type
 changing p_error
 p_reciever.
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.
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,w_doc_data1 like sodocchgi1.
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.
READ TABLE it_attach INDEX w_cnt.
w_doc_data-doc_size =
 ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).
w_doc_data1-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[] = it_attach[].
For 2nd Attachments
* Fill the document data and get size of attachment
CLEAR w_doc_data.
READ TABLE it_attach1 INDEX w_cnt.
w_doc_data-doc_size = w_doc_data1-doc_size +
 ( w_cnt - 1 ) * 255 + STRLEN( it_attach1 ).
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.
APPEND LINES OF it_attach1 to t_attachment.
t_attachment[] = it_attach1[].
APPEND LINES OF it_attach1 to t_attachment.
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 = 0.
t_packing_list-body_start = 1.
DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
DESCRIBE TABLE it_mess_att LINES t_packing_list-body_num.
DESCRIBE TABLE it_attach LINES t_packing_list-body_num.
t_packing_list-doc_type = ld_format.
t_packing_list-obj_descr = 'YMIS008'."ld_attdescription.
t_packing_list-obj_name = 'YMIS008'."ld_attfilename.
t_packing_list-doc_size = t_packing_list-body_num * 255.
APPEND t_packing_list.
clear t_packing_list.
for 2 attachments
data : a type i,b type i.
 a = t_packing_list-body_num.
t_packing_list-transf_bin = 'X'.
t_packing_list-head_start = 1.
t_packing_list-head_num = 0.
t_packing_list-body_start = a + 1. "1
DESCRIBE TABLE it_mess_att1 LINES t_packing_list-body_num.
DESCRIBE TABLE it_attach1 LINES t_packing_list-body_num.
t_packing_list-doc_type = ld_format.
t_packing_list-obj_descr = 'YMIS10'."ld_attdescription.
t_packing_list-obj_name = 'YMIS10'."ld_attfilename.
t_packing_list-doc_size = t_packing_list-body_num * 255.
APPEND t_packing_list.
a = t_packing_list-body_num.
clear 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 = a + 1.
t_packing_list-body_num = t_packing_list-body_num + 1.
DESCRIBE TABLE it_mess_att1 LINES t_packing_list-body_num.
t_packing_list-body_num = a + t_packing_list-body_num .
t_packing_list-doc_type = ld_format.
t_packing_list-obj_descr = 'YMIS10'."ld_attdescription.
t_packing_list-obj_name = 'YMIS10'."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.
loop at ymis008tab into mailstr.
t_receivers-receiver = mailstr-p_email. "ld_email.
t_receivers-receiver = p_email1.
t_receivers-rec_type = 'U'.
t_receivers-com_type = 'INT'.
t_receivers-notif_del = 'X'. "X "Read Acknoledgement
t_receivers-notif_ndel = 'X'.
APPEND t_receivers.
endloop.
 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
 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.
Rgds.
Arpit

Hi Arpit,
Take a look at the documentation of FM 'SO_DOCUMENT_SEND_API1' for parameter PACKING_LIST. I think you should set t_packing_list-head_num to a different value than 0 for the second attachment.
Regards,
John.

How to use "Notes" on my iPad with my existing iCloud address?

How to use "Notes" on my iPad with my existing iCloud address? It asks me to create a new one...

Did I overlook some critical info here? I'm having the same problem described by Henry5, but I'm signed in to iCloud with my AppleID which is not the same as my Mobile Me/iCloud email. I keep being asked to create an account (which it won't allow me to do since the account already exists) but no where do I see an option to use the existing account. I also tried logging out with my AppleID account, and using the iCloud email, but that doesn't work.
I just want to sync my notes and mail... this is really irritating!

How to use FM SO_DOCUMENT_REPOSITORY_MANAGER send mail with CC.

Similar Messages

Maybe you are looking for