ich benutze zum Emails schicken die Klasse CL_BCS. Habe sie auch schon mal verwendet aber in meinem neuen Programm gehen keine Mails raus, obwohl der Code meiner Meinung nach stimmt. Kann hier mal einer rüber gucken?
E-mailadressen habe ich natürlich fürs Posten verändert.
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- DATA:
- "Sendeauftrag
- lr_send_request TYPE REF TO cl_bcs VALUE IS INITIAL,
- lr_document TYPE REF TO cl_document_bcs,
- lrx_bcs TYPE REF TO cx_bcs,
- lif_recipient TYPE REF TO if_recipient_bcs,
- lif_cc TYPE REF TO if_recipient_bcs,
- "Mail
- l_subject TYPE so_obj_des,
- lt_mailtext TYPE TABLE OF solisti1,
- ls_mailtext TYPE solisti1,
- lif_sender TYPE REF TO if_sender_bcs,
- l_is_sent_to_all TYPE os_boolean.
- TRY.
- "Sendeauftrag anlegen
- lr_send_request = cl_bcs=>create_persistent( ).
- "E-Mail subject
- CLEAR l_subject.
- * Mailtabelle füllen
- ls_mailtext = 'Hallo'.
- * Office Document anlegen
- lr_document = cl_document_bcs=>create_document(
- i_type = 'RAW'
- i_text = lt_mailtext
- i_subject = l_subject ).
- lr_send_request->set_document( lr_document ).
- * Sender
- lif_sender = cl_cam_address_bcs=>create_internet_address( 'test@test.com' ).
- lr_send_request->set_sender( i_sender = lif_sender ).
- lif_recipient = cl_cam_address_bcs=>create_internet_address( 'test@test.de' ).
- lr_send_request->add_recipient( i_recipient = lif_recipient ).
- "senden
- * lr_send_request->set_send_immediately( i_send_immediately = 'X' ). "nachher auskommentieren
- l_is_sent_to_all = lr_send_request->send( i_with_error_screen = 'X' ).
- GeSHi ©
Danke.