Skip to Content
0
Oct 25, 2005 at 02:49 PM

Send mail to internet address using SO_NEW_DOCUMENT_SEND_API1

52 Views

Hi all.

I want to use the FM: SO_NEW_DOCUMENT_SEND_API1 to send emails to internet address(e.g mail@company.com), this function executes without exceptions but the mail is not sent.

I'm doing something like this:

DATA:

IT_I0105_DB TYPE STANDARD TABLE OF PA0105 WITH HEADER LINE,

IT_PA0032 TYPE STANDARD TABLE OF TY_PA0032 WITH HEADER LINE,

IT_DESTINO LIKE SOMLRECI1 OCCURS 1 WITH HEADER LINE,

IT_TEXTO LIKE SOLI OCCURS 10 WITH HEADER LINE,

IT_TITULO LIKE SODOCCHGI1 OCCURS 0 WITH HEADER LINE,

V_USNAME LIKE SY-UNAME,

V_NAME LIKE ESS_EMP-NAME,

V_SHORT LIKE P1000-SHORT,

V_STEXT LIKE P1000-STEXT,

V_EMPLEADO TYPE STRING,

V_UNIORG TYPE STRING,

V_UBICACION TYPE STRING,

V_EXTENSION TYPE STRING,

V_MAIL TYPE HRWPC_S_CONTACT-EMAIL.

  • Receiver

MOVE: V_MAIL TO IT_DESTINO-RECEIVER,

'U' TO IT_DESTINO-REC_TYPE,

' ' TO IT_DESTINO-EXPRESS.

APPEND IT_DESTINO.

  • Title

IT_TITULO-OBJ_NAME = 'EMAIL'.

IT_TITULO-OBJ_DESCR = 'PRUEBA DEL MAIL'.

APPEND IT_TITULO.

  • Content

IT_TEXTO-LINE = V_EMPLEADO.

APPEND IT_TEXTO.

IT_TEXTO-LINE = V_UBICACION.

APPEND IT_TEXTO.

IT_TEXTO-LINE = V_EXTENSION.

APPEND IT_TEXTO.

IT_TEXTO-LINE = P_PERIODO.

APPEND IT_TEXTO.

IT_TEXTO-LINE = V_UNIORG.

APPEND IT_TEXTO.

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'

EXPORTING

DOCUMENT_DATA = IT_TITULO

DOCUMENT_TYPE = 'RAW'

PUT_IN_OUTBOX = ''

TABLES

OBJECT_CONTENT = IT_TEXTO

RECEIVERS = IT_DESTINO

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.

I dont know whats happening.

I hope somebody can helps me to solve my problem.

Thx

Regards.

Gregory