topic Re: Sending external mail in Application Development and Automation Discussions

Sending external mail

Former Member — Tue, 04 Sep 2007 09:16:37 GMT

Hi all

I have some doubts. i searched the forum threads. But still not clear.

How do i send mail to external servers (like gmail, yahoo). I got some code for sending mail. but they are for internal sap users. I would like to send mail to external system.

How do i see the mails received by my internal sap user id. ? Through which transaction.

Re: Sending external mail

Former Member — Tue, 04 Sep 2007 09:21:57 GMT

Hi aarthi ,

check with this,

PARAMETERS: psubject(40) type c default 'Hello',

p_email(40) type c default 'test@sapdev.co.uk' .

data: it_packing_list like sopcklsti1 occurs 0 with header line,

it_contents like solisti1 occurs 0 with header line,

it_receivers like somlreci1 occurs 0 with header line,

it_attachment like solisti1 occurs 0 with header line,

gd_cnt type i,

gd_sent_all(1) type c,

gd_doc_data like sodocchgi1,

gd_error type sy-subrc.

data: it_message type standard table of SOLISTI1 initial size 0

with header line.

***********************************************************************

*START-OF-SELECTION.

START-OF-SELECTION.

Perform populate_message_table.

*Send email message, although is not sent from SAP until mail send

*program has been executed(rsconn01)

PERFORM send_email_message.

*Instructs mail send program for SAPCONNECT to send email(rsconn01)

perform initiate_mail_execute_program.

&----

*& Form POPULATE_MESSAGE_TABLE

&----

Adds text to email text table

----

form populate_message_table.

Append 'Email line 1' to it_message.

Append 'Email line 2' to it_message.

Append 'Email line 3' to it_message.

Append 'Email line 4' to it_message.

endform. " POPULATE_MESSAGE_TABLE

&----

*& Form SEND_EMAIL_MESSAGE

&----

Send email message

----

form send_email_message.

Fill the document data.

gd_doc_data-doc_size = 1.

Populate the subject/generic message attributes

gd_doc_data-obj_langu = sy-langu.

gd_doc_data-obj_name = 'SAPRPT'.

gd_doc_data-obj_descr = psubject.

gd_doc_data-sensitivty = 'F'.

Describe the body of the message

clear it_packing_list.

refresh it_packing_list.

it_packing_list-transf_bin = space.

it_packing_list-head_start = 1.

it_packing_list-head_num = 0.

it_packing_list-body_start = 1.

describe table it_message lines it_packing_list-body_num.

it_packing_list-doc_type = 'RAW'.

append it_packing_list.

Add the recipients email address

clear it_receivers.

refresh it_receivers.

it_receivers-receiver = p_email.

it_receivers-rec_type = 'U'.

it_receivers-com_type = 'INT'.

it_receivers-notif_del = 'X'.

it_receivers-notif_ndel = 'X'.

append it_receivers.

Call the FM to post the message to SAPMAIL

call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'

exporting

document_data = gd_doc_data

put_in_outbox = 'X'

importing

sent_to_all = gd_sent_all

tables

packing_list = it_packing_list

contents_txt = it_message

receivers = it_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.

Store function module return code

gd_error = sy-subrc.

Get it_receivers return code

loop at it_receivers.

endloop.

endform. " SEND_EMAIL_MESSAGE

&----

*& Form INITIATE_MAIL_EXECUTE_PROGRAM

&----

Instructs mail send program for SAPCONNECT to send email.

----

form initiate_mail_execute_program.

wait up to 2 seconds.

if gd_error eq 0.

submit rsconn01 with mode = 'INT'

with output = 'X'

and return.

endif.

endform. " INITIATE_MAIL_EXECUTE_PROGRAM

Thanks

Re: Sending external mail

Former Member — Tue, 04 Sep 2007 09:27:42 GMT

Hi Aarathi,

Use the below code

****************************************

Check the mail in T-code SBWP
To check the send mail status T-Code SOST

***********************************************

TABLES:pa0001.

DATA: v_ans,

v_body_lines TYPE i.

Local declarations

CONSTANTS:

c_note_00 TYPE solisti1 VALUE 'NOTE',

c_note_01 TYPE solisti1 VALUE

'Do not reply to this email, instead please contact the compensation ',

c_note_02 TYPE solisti1 VALUE

'specialist (see above for contact details). This will help avoid ',

c_note_03 TYPE solisti1 VALUE

'unnecessarily delaying your request.'.

DATA: it_packing_list TYPE TABLE OF sopcklsti1,

wa_packing_list LIKE LINE OF it_packing_list,

it_receivers TYPE TABLE OF somlreci1,

wa_receivers LIKE LINE OF it_receivers,

it_mailbody TYPE TABLE OF solisti1,

wa_mailbody LIKE LINE OF it_mailbody.

DATA: it_doc TYPE sodocchgi1.

DATA: v_sent_all TYPE boolean.

START-OF-SELECTION.

mail header

it_doc-obj_descr = 'Hello'.

Add the recipients email address

CLEAR wa_receivers.

REFRESH it_receivers.

wa_receivers-receiver = 'XXXXX@XXXX.COM'.

wa_receivers-rec_type = 'U'.

wa_receivers-com_type = 'INT'.

wa_receivers-notif_del = 'X'.

wa_receivers-notif_ndel = 'X'.

APPEND wa_receivers TO it_receivers.

wa_receivers-receiver = 'XXXXX@XXXX.COM'.

wa_receivers-rec_type = 'U'.

wa_receivers-com_type = 'INT'.

wa_receivers-notif_del = 'X'.

wa_receivers-notif_ndel = 'X'.

APPEND wa_receivers TO it_receivers.

Mail Body

CLEAR wa_mailbody.

REFRESH it_mailbody.

wa_mailbody-line = 'Hi All,'.