Distribution list export

Hello Guys
Distribution lists in shared folder's SBWP had been deleted by a user!
Could I export distribution List from another environement?
Thank you for answers.
Christophe

Unfortunatelly no, you can copy and paste the receivers from the other environment to create a new one.
Regards,
Felipe
Edited by: fsimionatto on Dec 20, 2011 5:07 PM

Similar Messages

Enabling the Export function for a distribution list in 'Private folders'

Dears,
Could someone please guide to the appropriate authorization that would allow the 'Export...' function for a distribution list created in a folder under 'Private folders' - Transaction : SBWP
The option is dimmed, although the user used has the SAP_ALL profile.
Thanks.
Reda

click file/publish settings/flash/actionscript settings and make sure frame 1 is set as the export frame.
if that's already set, don't use test scene.

Export distribution list / csv

hello,
Does anyone know how to export distribution list users and their email addresses to a csv? I tried formativ but somehow it did not work. We use Groupwise 7.0.2 . Thanks.

On 9/21/2011 5:37 AM, Jakub Gorecki wrote:
> hello,
> Does anyone know how to export distribution list users and their email
> addresses to a csv? I tried formativ but somehow it did not work. We use
> Groupwise 7.0.2 . Thanks.
Well Admin API could do that, but you'd have to write your own code....

Export Multiple Distribution List

Hello, Is there a way to Export Multiple Distribution List and send them to users to Import into Office 2007\2013 easily?
Thank for any help.
Michael

Hi,
Do you want to export multiple Distribution List at the same time?
A simple way to do this I can figure out is as follows:
(Outlook 2013 for example)
1. Click New Email button to create a new email. Restore Down the New Email window.
2. Switch to People in Navigation bar. Change Current View to List view. Restore Down the mail Outlook window.
3. Hold CTRL key and select all Distribution Lists that you want to share with other users.
4. Drag the selected Distribution Lists and drop them to the email body field in the New Email window. Now, you will see all the distribution lists are added as attachment in the new mail window.
5. Fill the To box with users' email address that you want to share the distribution lists with.
6. Click Send.
On the recipients side, please do these:
1. Open the email containing the distribution list attachments. Restore Down the message window.
2. Switch to People in Navigation bar. Restore Down the mail Outlook window.
3. Go to the received email window, hold CTRL key and select all distribution list attachments. Then drag the distribution list
attachments from the email message onto the desired Contacts folder.
Hope this helps.
Regards,
Steve Fan
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
programs.

How to send spool to Distribution List using JOB_CLOSE

Please help on sending Distribution list when job defined using JOB_OPEN, JOB_Submit and JOB_CLOSE
Thanks.

Hi, this is code:
DATA WA_RECIPIENT LIKE swotobjid.
CONSTANTS: gc_objname TYPE oj_name VALUE 'RECIPIENT'.
PERFORM get_distribucion_list USING 'NAME_LIST' " name of List of distribution
 CHANGING WA_RECIPIENT.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
 jobcount = l_jobcount
 jobname = l_jobname
 strtimmed = 'X'
 recipient_obj = wa_recipient
IMPORTING
 job_was_released = l_libero
EXCEPTIONS
 cant_start_immediate = 1
 invalid_startdate = 2
 jobname_missing = 3
 job_close_failed = 4
 job_nosteps = 5
 job_notex = 6
 lock_failed = 7
 OTHERS = 8.
FORM get_distribucion_list USING p_objnam TYPE so_obj_nam
 CHANGING p_wa_recipient LIKE swotobjid.
DATA: it_tab LIKE STANDARD TABLE OF soxdl
 INITIAL SIZE 0 WITH HEADER LINE.
CHECK NOT p_objnam IS INITIAL.
CALL FUNCTION 'SO_DLI_LIST_READ_XDL'
 EXPORTING
 dli_generic_name = p_objnam
 public = 'X'
 subscript = 'X'
 TABLES
 dli_display_tab = it_tab
 EXCEPTIONS
 communication_failure = 1
 dl_list_no_entries = 2
 owner_not_exist = 3
 system_failure = 4
 x_error = 5
 parameter_error = 6
 OTHERS = 7
IF sy-subrc = 0.
 READ TABLE it_tab INDEX 1.
 IF sy-subrc = 0.
 CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
 IMPORTING
 own_logical_system = p_wa_recipient-logsys
 EXCEPTIONS
 own_logical_system_not_defined = 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.
 MOVE gc_objname TO p_wa_recipient-objtype.
 CONCATENATE it_tab-dlitp it_tab-dliyr it_tab-dlino
 INTO p_wa_recipient-objkey.
 ENDIF.
ELSE.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.

How to send mail to all the receipients in distribution list

Hi All,
As per my requirement I need to send error log in doc format.
I am using the help of following code suggested by someone in sdn.
Mehr Beispile unter BCS_EXAMPLE_* mit se38
Mehr Beispile unter BCS_TEST*     mit se38
DATA: SEND_REQUEST       TYPE REF TO CL_BCS.
DATA: SUBJECT            TYPE SO_OBJ_DES.
DATA: ATT_TYPE           TYPE SOODK-OBJTP.
DATA: IT_TEXT            TYPE BCSY_TEXT.
DATA: WA_TEXT            LIKE SOLI.
DATA: IT_BIN             TYPE SOLIX_TAB.
DATA: WA_BIN             TYPE SOLIX.
DATA: DOCUMENT           TYPE REF TO CL_DOCUMENT_BCS.
DATA: SENDER             TYPE REF TO CL_SAPUSER_BCS.
DATA: RECIPIENT          TYPE REF TO IF_RECIPIENT_BCS.
DATA: BCS_EXCEPTION      TYPE REF TO CX_BCS.
DATA: SENT_TO_ALL        TYPE OS_BOOLEAN.
Bytes der Datei
DATA: IT_LENGHT          TYPE SO_OBJ_LEN.
DATA: N10(10)            TYPE N.
START-OF-SELECTION.
PERFORM MAIN.
PERFORM RSCONN01_EXECUTE.
END-OF-SELECTION.
FORM MAIN.
TRY.
Dokument erstellen (mit Anhang)
      SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).
      PERFORM HEAD_CONT.
      PERFORM RAW_ATT.
Dokument (mit Anhang) setzen
      CALL METHOD SEND_REQUEST->SET_DOCUMENT( DOCUMENT ).
Absender setzen
      SENDER = CL_SAPUSER_BCS=>CREATE( SY-UNAME ).
      CALL METHOD SEND_REQUEST->SET_SENDER
        EXPORTING
          I_SENDER = SENDER.
Empfänger setzen
      RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS(
                                        'email@address' ).
      CALL METHOD SEND_REQUEST->ADD_RECIPIENT
        EXPORTING
          I_RECIPIENT = RECIPIENT
          I_EXPRESS   = 'X'.
Dokument senden
      CALL METHOD SEND_REQUEST->SEND(
        EXPORTING
          I_WITH_ERROR_SCREEN = 'X'
        RECEIVING
          RESULT              = SENT_TO_ALL ).
      COMMIT WORK.
Sende-Error abfangen
    CATCH CX_BCS INTO BCS_EXCEPTION.
      WRITE: 'Fehler aufgetreten.'(001).
      WRITE: 'Fehlertyp:'(002), BCS_EXCEPTION->ERROR_TYPE.
      EXIT.
ENDTRY.
ENDFORM.                    "main
FORM HEAD_CONT.
CLEAR: IT_TEXT[], WA_TEXT, SUBJECT.
ATT_TYPE = 'RAW'.
SUBJECT = 'Betreffzeile'.
WA_TEXT = 'First Line'. APPEND WA_TEXT TO IT_TEXT.
WA_TEXT = 'Second Line'. APPEND WA_TEXT TO IT_TEXT.
DESCRIBE TABLE IT_TEXT LINES N10.
N10 = ( N10 - 1 ) * 255 + STRLEN( WA_TEXT ).
IT_LENGHT = N10.
TRY.
      DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(
                I_TYPE    = ATT_TYPE
                I_TEXT    = IT_TEXT
                I_LENGTH = IT_LENGHT
                I_SUBJECT = SUBJECT ).
Error abfangen
    CATCH CX_BCS INTO BCS_EXCEPTION.
      WRITE: 'Fehler aufgetreten.'(001).
      WRITE: 'Fehlertyp:'(002), BCS_EXCEPTION->ERROR_TYPE.
      EXIT.
ENDTRY.
ENDFORM.                    "HEAD_CONT
*&      Form RAW_ATT
      text
FORM RAW_ATT.
CLEAR: IT_TEXT[], WA_TEXT, SUBJECT.
ATT_TYPE = 'RAW'.
SUBJECT = 'Text Anhang'.
WA_TEXT = 'First Line in ATT'. APPEND WA_TEXT TO IT_TEXT.
WA_TEXT = 'Second Line in ATT'. APPEND WA_TEXT TO IT_TEXT.
Lenght of Att_Text
DESCRIBE TABLE IT_TEXT LINES N10.
N10 = ( N10 - 1 ) * 255 + STRLEN( WA_TEXT ).
IT_LENGHT = N10.
TRY.
      CALL METHOD DOCUMENT->ADD_ATTACHMENT
        EXPORTING
          I_ATTACHMENT_TYPE    = ATT_TYPE
          I_ATT_CONTENT_TEXT   = IT_TEXT
          I_ATTACHMENT_SIZE    = IT_LENGHT
          I_ATTACHMENT_SUBJECT = SUBJECT.
Error abfangen
    CATCH CX_BCS INTO BCS_EXCEPTION.
      WRITE: 'Fehler aufgetreten.'(001).
      WRITE: 'Fehlertyp:'(002), BCS_EXCEPTION->ERROR_TYPE.
      EXIT.
ENDTRY.
ENDFORM.                    "ATT_RAW
But From this method I am not able to send the mail to the distribution list created.
Please suggest How this can be done.
I dont want to chang

Hi Smriti,
You can make changes like shown below. The changes are shown in the code format for your easy reference. You can remove the code in bold. This will work.
Mehr Beispile unter BCS_EXAMPLE_* mit se38
Mehr Beispile unter BCS_TEST* mit se38
DATA: SEND_REQUEST TYPE REF TO CL_BCS.
DATA: SUBJECT TYPE SO_OBJ_DES.
DATA: ATT_TYPE TYPE SOODK-OBJTP.
DATA: IT_TEXT TYPE BCSY_TEXT.
DATA: WA_TEXT LIKE SOLI.
DATA: IT_BIN TYPE SOLIX_TAB.
DATA: WA_BIN TYPE SOLIX.
DATA: DOCUMENT TYPE REF TO CL_DOCUMENT_BCS.
DATA: SENDER TYPE REF TO CL_SAPUSER_BCS.
DATA: RECIPIENT TYPE REF TO IF_RECIPIENT_BCS.
DATA: BCS_EXCEPTION TYPE REF TO CX_BCS.
DATA: SENT_TO_ALL TYPE OS_BOOLEAN.
Bytes der Datei
DATA: IT_LENGHT TYPE SO_OBJ_LEN.
DATA: N10(10) TYPE N.
data: it_recipients type standard table of ad_smtpadr.
data: w_recipients type ad_smtpadr.
START-OF-SELECTION.
PERFORM MAIN.
PERFORM RSCONN01_EXECUTE.
END-OF-SELECTION.
FORM MAIN.
TRY.
Dokument erstellen (mit Anhang)
SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).
PERFORM HEAD_CONT.
PERFORM RAW_ATT.
Dokument (mit Anhang) setzen
CALL METHOD SEND_REQUEST->SET_DOCUMENT( DOCUMENT ).
Absender setzen
SENDER = CL_SAPUSER_BCS=>CREATE( SY-UNAME ).
CALL METHOD SEND_REQUEST->SET_SENDER
EXPORTING
I_SENDER = SENDER.
Empfänger setzen
LOOP AT it_recipients into w_recipients.
RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS(w_recipients).
CALL METHOD SEND_REQUEST->ADD_RECIPIENT
EXPORTING
I_RECIPIENT = RECIPIENT
I_EXPRESS = 'X'.
ENDLOOP.
RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS('email@address' ).
CALL METHOD SEND_REQUEST->ADD_RECIPIENT
EXPORTING
I_RECIPIENT = RECIPIENT
I_EXPRESS = 'X'.
Dokument senden
CALL METHOD SEND_REQUEST->SEND(
EXPORTING
I_WITH_ERROR_SCREEN = 'X'
RECEIVING
RESULT = SENT_TO_ALL ).
COMMIT WORK.
Sende-Error abfangen
CATCH CX_BCS INTO BCS_EXCEPTION.
WRITE: 'Fehler aufgetreten.'(001).
WRITE: 'Fehlertyp:'(002), BCS_EXCEPTION->ERROR_TYPE.
EXIT.
ENDTRY.
ENDFORM. "main
FORM HEAD_CONT.
CLEAR: IT_TEXT[], WA_TEXT, SUBJECT.
ATT_TYPE = 'RAW'.
SUBJECT = 'Betreffzeile'.
WA_TEXT = 'First Line'. APPEND WA_TEXT TO IT_TEXT.
WA_TEXT = 'Second Line'. APPEND WA_TEXT TO IT_TEXT.
DESCRIBE TABLE IT_TEXT LINES N10.
N10 = ( N10 - 1 ) * 255 + STRLEN( WA_TEXT ).
IT_LENGHT = N10.
TRY.
DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(
I_TYPE = ATT_TYPE
I_TEXT = IT_TEXT
I_LENGTH = IT_LENGHT
I_SUBJECT = SUBJECT ).
Error abfangen
CATCH CX_BCS INTO BCS_EXCEPTION.
WRITE: 'Fehler aufgetreten.'(001).
WRITE: 'Fehlertyp:'(002), BCS_EXCEPTION->ERROR_TYPE.
EXIT.
ENDTRY.
ENDFORM. "HEAD_CONT
*& Form RAW_ATT
text
FORM RAW_ATT.
CLEAR: IT_TEXT[], WA_TEXT, SUBJECT.
ATT_TYPE = 'RAW'.
SUBJECT = 'Text Anhang'.
WA_TEXT = 'First Line in ATT'. APPEND WA_TEXT TO IT_TEXT.
WA_TEXT = 'Second Line in ATT'. APPEND WA_TEXT TO IT_TEXT.
Lenght of Att_Text
DESCRIBE TABLE IT_TEXT LINES N10.
N10 = ( N10 - 1 ) * 255 + STRLEN( WA_TEXT ).
IT_LENGHT = N10.
TRY.
CALL METHOD DOCUMENT->ADD_ATTACHMENT
EXPORTING
I_ATTACHMENT_TYPE = ATT_TYPE
I_ATT_CONTENT_TEXT = IT_TEXT
I_ATTACHMENT_SIZE = IT_LENGHT
I_ATTACHMENT_SUBJECT = SUBJECT.
Error abfangen
CATCH CX_BCS INTO BCS_EXCEPTION.
WRITE: 'Fehler aufgetreten.'(001).
WRITE: 'Fehlertyp:'(002), BCS_EXCEPTION->ERROR_TYPE.
EXIT.
ENDTRY.
ENDFORM. "ATT_RAW
where the internal table "it_recipients" contains all the e-mail addresses.

How to send mail to distribution list ?

Hi Everybody,
Pls let me know how to send mail to distributed list???
Thanks & Regards,
raju

Hi ,
Use Function Module 'SO_NEW_DOCUMENT_SEND_API1'.
U need to pass Distribution list to Receiver and 'C' to receiver type refer the below code for clarification.
Determine the Distribution List.
 gv_rec_list-receiver = gv_distribution.
 gv_rec_list-rec_type = 'C'.
 APPEND gv_rec_list.
Check if Distribution List is deleted.
 SELECT SINGLE objnam
 FROM soid
 INTO lc_objnam
 WHERE objnam = gv_rec_list AND
 dlitp = lc_dli.
 IF sy-subrc = 0.
 CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
 EXPORTING
 document_data = gv_doc_data
 document_type = 'RAW'
 put_in_outbox = 'X'
 TABLES
 object_content = gv_obj_cont
 receivers = gv_rec_list
 EXCEPTIONS
 too_many_receivers = 1
 document_not_sent = 2
 document_type_not_exist = 3
 operation_no_authorization = 4.
 CASE sy-subrc.
 WHEN '1'.
 message i001(as) with 'TOO MANY RECEIVERS'.
 EXIT.
 WHEN '2'.
 message i001(as) with 'DOCUMENT NOT SENT'.
 EXIT.
 WHEN '3'.
 message i001(as) with 'DOCUMENT TYPE DOES NOT EXIST'.
 EXIT.
 WHEN '4'.
 message i001(as) with 'OPERATION NO AUTHORIZATION'.
 EXIT.
 ENDCASE.
 Hope this might have helped you.
Thanks,
Prashanth

Sending mail to distribution list

HI guys,
Please look at the coding below..
l_wa_recieve-receiver = '[email protected]'. " this is the distribution list id "with number of mail ids inside it
    l_wa_recieve-rec_type = 'C'. "shared dis list
    APPEND l_wa_recieve TO l_it_recieve.
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
      EXPORTING
        document_data              = "ERROR'
        document_type              = 'DLI'
        put_in_outbox              = c_x
        commit_work                = c_x
      TABLES
        object_content             = l_it_content "this table contains the body of email
        receivers                  = l_it_recieve " this is above
      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.
Can you just tell me whether it works fine.. And if it is correct how much time will it take to get email in my respective email address..
I have run this FM by just giving my mail id (not distribution list just giving doctype = 'RAW instead of DLI)
The FM ran sucessfully without any errors , But I didnot receive any mail in my mail Inbox..
Can you please help me how to sort it out getting mail in less time..
Points will be rewarded
regards,
nazeer

HI prabhu,
there is no numbmer in the waitinh list but number 5 is in the error column in SCOT..
Can you please tell me what could be the reason..
regards,
nazeer

Need to send an attachment with the mail to the distribution list

Hi all,
How do I send an attachment with the e-mail to a distribution list?
I am using the FMs SO_DLI_EXPAND and SO_OBJECT_SEND to expand the distribution list and send mail to the distribution list respectively.I am getting the contents of the file in the email that is being sent. The file is being extracted from UNIX.
However, the contents of the file has to go as an attachment.
Please assist.
Thanks and regards,
Anishur

Hello,
You can do it like this...using SapScript:
REPORT YMAIL.
DATA: ITCPO LIKE ITCPO,
TAB_LINES LIKE SY-TABIX.
Variables for EMAIL functionality
DATA: MAILDATA LIKE SODOCCHGI1.
DATA: MAILPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
DATA: MAILHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
DATA: MAILBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: MAILTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: MAILREC LIKE SOMLREC90 OCCURS 0 WITH HEADER LINE.
DATA: SOLISTI1 LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.
PERFORM SEND_FORM_VIA_EMAIL.
FORM SEND_FORM_VIA_EMAIL *
FORM SEND_FORM_VIA_EMAIL.
CLEAR: MAILDATA, MAILTXT, MAILBIN, MAILPACK, MAILHEAD, MAILREC.
REFRESH: MAILTXT, MAILBIN, MAILPACK, MAILHEAD, MAILREC.
Creation of the document to be sent File Name
MAILDATA-OBJ_NAME = 'TEST'.
Mail Subject
MAILDATA-OBJ_DESCR = 'Subject'.
Mail Contents
MAILTXT-LINE = 'Here is your file, would you check it?'.
APPEND MAILTXT.
Prepare Packing List
PERFORM PREPARE_PACKING_LIST.
BREAK gpulido.
Set recipient - email address here!!!
*MAILREC-RECEIVER = '[email protected]'.
MAILREC-RECEIVER = '[email protected]'.
MAILREC-REC_TYPE = 'U'.
APPEND MAILREC.
Set recipient - email address here!!!
*MAILREC-RECEIVER = 'BGIRALDO'.
*MAILREC-REC_TYPE = 'B'.
*APPEND MAILREC.
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = MAILDATA
PUT_IN_OUTBOX = 'X'
TABLES
PACKING_LIST = MAILPACK
OBJECT_HEADER = MAILHEAD
CONTENTS_BIN = MAILBIN
CONTENTS_TXT = MAILTXT
RECEIVERS = MAILREC
EXCEPTIONS
TOO_MANY_RECEIVERS = 1
DOCUMENT_NOT_SENT = 2
OPERATION_NO_AUTHORIZATION = 4
OTHERS = 99.
submit rsconn01 with mode = 'INT' and return.
CASE SY-SUBRC.
WHEN 0.
WRITE: / 'Result of the send process:'.
LOOP AT MAILREC.
WRITE: / mailrec-RECEIVER(48), ':'.
IF mailrec-RETRN_CODE = 0.
WRITE 'sent successfully'.
ELSE.
WRITE 'not sent'.
ENDIF.
ENDLOOP.
WHEN 1.
WRITE: / 'no authorization to send to the specified number of'
WHEN 2.
WRITE: / 'document could not be sent to any of the recipients!'.
WHEN 4.
WRITE: / 'no authorization to send !'.
WHEN OTHERS.
WRITE: / 'error occurred during sending !'.
ENDCASE.
ENDFORM.
Form PREPARE_PACKING_LIST
FORM PREPARE_PACKING_LIST.
CLEAR: MAILPACK, MAILBIN, MAILHEAD.
REFRESH: MAILPACK, MAILBIN, MAILHEAD.
DESCRIBE TABLE MAILTXT LINES TAB_LINES.
READ TABLE MAILTXT INDEX TAB_LINES.
MAILDATA-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( MAILTXT ).
Creation of the entry for the compressed document
CLEAR MAILPACK-TRANSF_BIN.
MAILPACK-HEAD_START = 1.
MAILPACK-HEAD_NUM = 0.
MAILPACK-BODY_START = 1.
MAILPACK-BODY_NUM = TAB_LINES.
MAILPACK-DOC_TYPE = 'RAW'.
APPEND MAILPACK.
Creation of the document attachment
This form gets the OTF code from the SAPscript form.
If you already have your OTF code, I believe that you may
be able to skip this form. just do the following code, looping thru
your SOLISTI1 and updating MAILBIN.
PERFORM GET_OTF_CODE.
LOOP AT SOLISTI1.
MOVE-CORRESPONDING SOLISTI1 TO MAILBIN.
APPEND MAILBIN.
ENDLOOP.
DESCRIBE TABLE MAILBIN LINES TAB_LINES.
MAILHEAD = 'TEST.OTF'.
APPEND MAILHEAD.
Creation of the entry for the compressed attachment
MAILPACK-TRANSF_BIN = 'X'.
MAILPACK-HEAD_START = 1.
MAILPACK-HEAD_NUM = 1.
MAILPACK-BODY_START = 1.
MAILPACK-BODY_NUM = TAB_LINES.
MAILPACK-DOC_TYPE = 'OTF'.
MAILPACK-OBJ_NAME = 'TEST'.
MAILPACK-OBJ_DESCR = 'Subject'.
MAILPACK-DOC_SIZE = TAB_LINES * 255.
APPEND MAILPACK.
ENDFORM.
Form GET_OTF_CODE
FORM GET_OTF_CODE.
DATA: BEGIN OF OTF OCCURS 0.
INCLUDE STRUCTURE ITCOO .
DATA: END OF OTF.
DATA: ITCPO LIKE ITCPO.
DATA: ITCPP LIKE ITCPP.
CLEAR ITCPO.
ITCPO-TDGETOTF = 'X'.
Start writing OTF code
CALL FUNCTION 'OPEN_FORM'
EXPORTING
FORM = 'YSEND_MAIL'
LANGUAGE = SY-LANGU
OPTIONS = ITCPO
DIALOG = ' '
EXCEPTIONS
OTHERS = 1.
CALL FUNCTION 'START_FORM'
EXCEPTIONS
ERROR_MESSAGE = 01
OTHERS = 02.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
WINDOW = 'MAIN'
EXCEPTIONS
ERROR_MESSAGE = 01
OTHERS = 02.
Close up Form and get OTF code
CALL FUNCTION 'END_FORM'
EXCEPTIONS
ERROR_MESSAGE = 01
OTHERS = 02.
MOVE-CORRESPONDING ITCPO TO ITCPP.
CALL FUNCTION 'CLOSE_FORM'
IMPORTING
RESULT = ITCPP
TABLES
OTFDATA = OTF
EXCEPTIONS
OTHERS = 1.
Move OTF code to structure SOLI form email
CLEAR SOLISTI1. REFRESH SOLISTI1.
LOOP AT OTF.
SOLISTI1-LINE = OTF.
APPEND SOLISTI1.
ENDLOOP.
Reward points if helpful.
Thanks
Message was edited by:
Pattan Naveen

Script for Member Count in list of Distribution List

Hi All,
Would like to see your help in some powershell scripting. I am still a newbie in scripting for Exchange 2010 (Office 365). I am tasked to write a script that will count how many members in a list of distribution list. I have manage to come up with most of
the task, but I am not able to get the count. The error says Object not found. Below is my simple script. Hope someone can help me to see where are my mistakes in the script. This is how my script works,
1. Generates a TXT file for the list of DLs
2. Get reads the TXT file and generates the user counts for each DL in the TXT file.
3. Output the results into a CSV file.
Get-DistributionGroup -Identity DL-ATD* | Select-Object DisplayName > DL.txt
$data = @()
$dls = get-content DL.txt
foreach ($dl in $dls) {
$data += New-Object -TypeName PSObject -Property @{
DisplayName = $dl
Count = (Get-DistributionGroupMember -Identity $dl | Measure-Object).Count
$data | Export-Csv -Path mydllist.csv -NoTypeInformation
Thanks in advance.

Hi,
Thanks for the scripts, but the scripts mentioned are searching for all the DL which are available in the server. Is there a way I can look for like selected ones, for example any DL that starts with DL-ATD.xxxxx.
Thanks.

Help please - Contacts freezes when I try to edit distribution lists

When I try to edit the addresses distribution list for a group, Contacts freezes with a spinning beachball. I've tried exporting the group as a CSV file, trashing the entire Address Book folder in Library > Application Support, launching Contacts and importing the CSV file, but this hasn't helped.
Editing distribution lists in Address Book / Contacts has been problematic since at least Lion. Seems like Contacts development was foisted off on a handful of green interns a long time ago.
Can anyone suggest an iCloud- & iPhone-compatible third-party contacts manager with some back-end muscle? Cobook is a nice front-end, but it doesn't solve my problem.

Well, I found that it doesn't actually freeze - it just takes 20 minutes or so to respond. This with a database of about 3,700 contacts. It also takes 5 minutes or so to accept the renaming of a smart group.
Who in **** built this thing? And, why are they spending more time on simulating fake leather and taking away and then restoring 3-panel view than on making this a halfway decent database?
Sadly, the only contacts app I can find that seems to have a robust back end is made by - Microsoft. Sad.

Distribution list

Which field stores the value of distribution list ?
Actually i want to pass distribution list when i send an attachment from my custom program not a singlre recipient.

For sending the mails to the distribution list use the FM
'SO_NEW_DOCUMENT_ATT_SEND_API1' where give the REC_TYPE = 'C'.
Here SGD_BUS_ANLT, SGD_SAL_MNGR etc are the distribution list.
Check the sample code:
*Sending mails to distribution list*
 PERFORM f1001_mail_distribution_list.
DATA: lws_docdata LIKE sodocchgi1,
 li_objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,
 li_objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,
 li_objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
 li_objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,
 li_objhex LIKE solix OCCURS 10 WITH HEADER LINE,
 li_reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
DATA: lws_tab_lines TYPE i,
 lws_doc_size TYPE i,
 lws_att_type LIKE soodk-objtp.
CLEAR: lws_docdata, li_objpack, li_objhead, li_objtxt, li_objbin,
 li_objhex, li_reclist, lws_tab_lines, lws_doc_size, lws_att_type.
REFRESH: li_objpack, li_objhead, li_objtxt, li_objbin, li_objhex,
 li_reclist.
lws_docdata-obj_name = text-019. "EUC
CONCATENATE co_01 text-018 co_10 text-018 ws_conf_year
 INTO ws_conf_date.
CONCATENATE text-006 ws_conf_date INTO lws_docdata-obj_descr
 SEPARATED BY space.
CONCATENATE text-007 ws_conf_date text-008 INTO li_objtxt
 SEPARATED BY space.
APPEND li_objtxt.
CONCATENATE text-009 text-010 ws_conf_date INTO li_objtxt
 SEPARATED BY space.
APPEND li_objtxt.
DESCRIBE TABLE li_objtxt LINES lws_tab_lines.
READ TABLE li_objtxt INDEX lws_tab_lines.
lws_docdata-doc_size = ( lws_tab_lines - 1 ) * 255 +
 STRLEN( li_objtxt ).
CLEAR li_objpack-transf_bin.
li_objpack-head_start = 1.
li_objpack-head_num = 0.
li_objpack-body_start = 1.
li_objpack-body_num = lws_tab_lines.
li_objpack-doc_type = text-020. "RAW
APPEND li_objpack.
li_reclist-receiver = text-014. "SGD_BUS_ANLT
li_reclist-rec_type = text-021. "C
APPEND li_reclist.
li_reclist-receiver = text-013. "SGD_SAL_MNGR
li_reclist-rec_type = text-021. "C
APPEND li_reclist.
li_reclist-receiver = text-012. "SGD_SAL_SUPT
li_reclist-rec_type = text-021. "C
APPEND li_reclist.
li_reclist-receiver = sy-uname.
li_reclist-rec_type = text-022. "B
APPEND li_reclist.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
 EXPORTING
 document_data = lws_docdata
 put_in_outbox = c_x
 commit_work = c_x
 TABLES
 packing_list = li_objpack
 object_header = li_objhead
 contents_bin = li_objbin
 contents_txt = li_objtxt
 receivers = li_reclist
 EXCEPTIONS
 too_many_receivers = 1
 document_not_sent = 2
 document_type_not_exist = 3
 operation_no_authorization = 4
 parameter_error = 5
 x_error = 6
 enqueue_error = 7
 OTHERS = 8.
IF sy-subrc <> 0.
 wa_idoc_status-status = co_stat_appl_err.
 wa_idoc_status-msgty = c_stat_err.
 wa_idoc_status-msgid = c_msg_class_spa.
 wa_idoc_status-msgno = co_001.
 wa_idoc_status-msgv1 = text-023.
 CASE sy-subrc.
 WHEN 1.
 wa_idoc_status-msgv2 = text-024.
 WHEN 2.
 wa_idoc_status-msgv2 = text-025.
 WHEN 3.
 wa_idoc_status-msgv2 = text-026.
 WHEN 4.
 wa_idoc_status-msgv2 = text-027.
 WHEN 5.
 wa_idoc_status-msgv2 = text-028.
 WHEN 6.
 wa_idoc_status-msgv2 = text-029.
 WHEN 7.
 wa_idoc_status-msgv2 = text-030.
 ENDCASE.
 wa_idoc_status-msgv3 = space.
 wa_idoc_status-msgv4 = space.
 ws_flag = c_x.
 EXIT.
ENDIF.
Regards,
Prakash.

Distribution List in SO_SEND_*?

Hi All,
I am using 'SO_NEW_DOCUMENT_SEND_API1' to send email notification But I am getting x_error in return when I am using Distribution list.
I have created Dist.List in SO23 but still no succeess however when I am sending it by hard coding the email address and changing the receiver type it is working fine.
Can any one suggest solution or sample code for the same.Its urgent
REgards

Hi,
Check the sample program to send Mai using the FM you used.
REPORT zvenkat_mai_simple.
* Mai related declarations
"Variables
DATA :
     g_sent_to_all   TYPE sonv-flag,
     g_tab_lines     TYPE i.
"Types
TYPES:
     t_document_data TYPE sodocchgi1,
     t_packing_list   TYPE sopcklsti1,
     t_attachment     TYPE solisti1,
     t_body_msg       TYPE solisti1,
     t_receivers      TYPE somlreci1.
"Workareas
DATA :
     w_document_data TYPE t_document_data,
     w_packing_list   TYPE t_packing_list,
     w_attachment     TYPE t_attachment,
     w_body_msg       TYPE t_body_msg,
     w_receivers      TYPE t_receivers.
"Internal Tables
DATA :
     i_document_data TYPE STANDARD TABLE OF t_document_data,
     i_packing_list   TYPE STANDARD TABLE OF t_packing_list,
     i_attachment     TYPE STANDARD TABLE OF t_attachment,
     i_body_msg       TYPE STANDARD TABLE OF t_body_msg,
     i_receivers      TYPE STANDARD TABLE OF t_receivers.
parameters:p_mai(99).
"start-of-selection.
START-OF-SELECTION.
PERFORM send_mai.
"Form send_mai
" PACKING LIST table requires information about how the data in the
" tables OBJECT_HEADER, CONTENTS_BIN and CONTENTS_TXT are to be
" distributed to the documents and its attachments. The first row is
" for the document, the following rows are each for one attachment.
FORM send_mai .
"Subject of the mai.
w_document_data-obj_name = 'MAI_TO_HEAD'.
w_document_data-obj_descr = 'Simple mai using SAP ABAP'.
"Body of the mai
PERFORM build_body_of_mai
    USING:space,
          'Hi,',
          'I am fine. How are you? How are you doing ? ',
          'This program has been created to send simple mai',
          'with Subject,Body with Address of the sender. ',
          'Thanks and Regards,',
          'Venkat.O,',
          'SAP HR Technical Consultant.'.
"Write Packing List (Body)
DESCRIBE TABLE i_body_msg LINES g_tab_lines.
w_packing_list-head_start = 1.
w_packing_list-head_num   = 0.
w_packing_list-body_start = 1.
w_packing_list-body_num   = g_tab_lines.
w_packing_list-doc_type   = 'RAW'.
APPEND w_packing_list TO i_packing_list.
CLEAR w_packing_list.
"Fill the document data and get size of attachment
READ TABLE i_body_msg INTO w_body_msg INDEX g_tab_lines.
w_document_data-doc_size = ( g_tab_lines - 1 ) * 255 + STRLEN( w_body_msg ).
"Receivers List.
w_receivers-rec_type   = 'U'. "Internet address
w_receivers-receiver   = p_mai.
w_receivers-com_type   = 'INT'.
w_receivers-notif_del = 'X'.
w_receivers-notif_ndel = 'X'.
APPEND w_receivers TO i_receivers .
CLEAR:w_receivers.
"Function module to send mai to Recipients
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = w_document_data
      put_in_outbox              = 'X'
      commit_work                = 'X'
    IMPORTING
      sent_to_all                = g_sent_to_all
    TABLES
      packing_list               = i_packing_list
      contents_txt               = i_body_msg
      receivers                  = i_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.
IF sy-subrc = 0 .
    MESSAGE i303(me) WITH 'Mai has been Successfully Sent.'.
ELSE.
    WAIT UP TO 2 SECONDS.
    SUBMIT rsconn01 WITH mode = 'INT'
                 WITH output = 'X'
                 AND RETURN.
ENDIF.
ENDFORM.                    " send_mai
"      Form build_body_of_mai
FORM build_body_of_mai USING l_message.
w_body_msg = l_message.
APPEND w_body_msg TO i_body_msg.
CLEAR w_body_msg.
ENDFORM.                    " build_body_of_mai
Regards,
Venkat.O

Importing Distribution List in Mail 3.5

Hi, is there a way to import distribution list (from either Entourage or Eudora) into Address Book. I've been trying for hours, and couldn't...
Thanks for any help!

The following article may help
Export mail into Outlook (Express) or Apple Mail

Re: distribution list

hi to all,
i developed a report for sending mails to the corresponding email ids.in this i wrote
select-options: s_manif for sood-objnam no intervals.
if we did not enter any distribution list name it will automatically go to the consignee.
my requirement is while it going to the consignee it should ask a pop up regarding "Manifest will be emailed to Consignee" with ok and cancel buttons. if we click ok button then mail will go to consignee and if we click cancel button it will remain in the transcation
thanks helman for giving the help.
but while i click cancel button it is not remain into the transaction.
data: answer type c.
*LOOP AT S_DLINAM.
LOOP AT S_MANIF.
CLEAR DLI_NAME1.
DLI_NAME1 = S_DLINAM-LOW.
DLI_NAME1 = S_MANIF-LOW.
*IF S_DLINAM IS NOT INITIAL.
IF S_MANIF IS NOT INITIAL.
CALL FUNCTION 'SO_DLI_READ_API1'
EXPORTING
 DLI_NAME = DLI_NAME1
DLI_ID = ' '
 SHARED_DLI = 'X'
IMPORTING
DLI_DATA = IDLIENT
TABLES
DLI_ENTRIES = IDLIENT.
ENDIF.
 LOOP AT IDLIENT.
 IT_EMAIL-EMAIL = IDLIENT-MEMBER_ADR.
 APPEND IT_EMAIL.
 ENDLOOP.
 REFRESH IDLIENT.
 CLEAR IDLIENT.
CLEAR S_DLINAM.
CLEAR S_MANIF.
ENDLOOP.
*end of insert of tcs_kun.
CLEAR t_email_objtxt[].
Text in the email.
t_email_objtxt = 'PDF is included as attachment.'.
APPEND t_email_objtxt.
Fill the OTF table.
t_email_otf[] = h_sf-otfdata-otfdata[].
Get the address number
READ TABLE t_partners
 WITH KEY parvw = 'ZC'.
IF sy-subrc NE 0.
 MESSAGE ID 'ZSH' TYPE 'E' NUMBER 999
 WITH text-006.
ENDIF.
h_email-addr_receiver = t_partners-adrnr.
Some general settings.
h_email-name_of_object = 'Freight'.
h_email-descr_of_obj = 'FREIGHT/CARGO MANIFEST'.
h_email-descr_attachem = 'FREIGHT.PDF'.
CALL FUNCTION 'ZSH_SEND_PDF_PER_EMAIL2'
EXPORTING
 name_of_object = h_email-name_of_object
 descript_of_object = h_email-descr_of_obj
 descript_attachement = h_email-descr_attachem
 address_no_recipient = h_email-addr_receiver
TABLES
 OTF = t_email_otf
 TEXT_IN_MAIL = t_email_objtxt
 ITAB = IT_EMAIL
EXCEPTIONS
 TOO_MANY_RECEIVERS = 1
 DOCUMENT_NOT_SENT = 2
 OPERATION_NO_AUTHORIZATION = 3
 ADDRESS_NOT_EXIST = 4
 CONV_NOT_POSSIBLE = 5
 ERR_OTF_MC_NOENDMARKER = 6
 OTHERS = 7.
IF SY-SUBRC = 0.
call function 'POPUP_TO_CONFIRM'
exporting
TITLEBAR = ' '
DIAGNOSE_OBJECT = ' '
 text_question = 'Manifest will be emailed to Consignee'
 text_button_1 = 'Continue'
ICON_BUTTON_1 = ' '
 text_button_2 = 'Cancel'
ICON_BUTTON_2 = ' '
DEFAULT_BUTTON = '1'
 DISPLAY_CANCEL_BUTTON = ' '
USERDEFINED_F1_HELP = ' '
START_COLUMN = 25
START_ROW = 6
POPUP_TYPE =
importing
 answer = answer
TABLES
PARAMETER =
EXCEPTIONS
TEXT_NOT_FOUND = 1
OTHERS = 2
 CALL FUNCTION 'ZSH_POPUP_MESSAGE'
 EXPORTING
 is_error = 'I'
 popup_title = text-007
 message_text = text-008.
ELSE.
 CALL FUNCTION 'ZSH_POPUP_MESSAGE'
 EXPORTING
 is_error = 'E'
 popup_title = text-015
 message_text = text-016.
ENDIF.
Message was edited by: sun deep
Message was edited by: sun deep
Message was edited by: sun deep

You can do something like this.
report zrich_0001.
data: answer type c.
call function 'POPUP_TO_CONFIRM'
exporting
* TITLEBAR = ' '
* DIAGNOSE_OBJECT = ' '
 text_question = 'Manifest will be emailed to Consignee'
 text_button_1 = 'Continue'
* ICON_BUTTON_1 = ' '
 text_button_2 = 'Cancel'
* ICON_BUTTON_2 = ' '
* DEFAULT_BUTTON = '1'
 DISPLAY_CANCEL_BUTTON = ' '
* USERDEFINED_F1_HELP = ' '
* START_COLUMN = 25
* START_ROW = 6
* POPUP_TYPE =
importing
 answer = answer
* TABLES
* PARAMETER =
* EXCEPTIONS
* TEXT_NOT_FOUND = 1
* OTHERS = 2
if answer = '1'.
write:/ 'The answer is yes'.
elseif answer = '2'.
write:/ 'This answer is no'.
endif.
Regards,
Rich Heilman

Distribution list export

Similar Messages

Maybe you are looking for