Code: Alles auswählen.
PROGRAM zdema_test.
TYPE-POOLS ole2 .
DATA : ooutapp TYPE ole2_object,
omail TYPE ole2_object,
lattach TYPE ole2_object,
lattachmsg TYPE ole2_object.
* Email Body, Subj, Text
CREATE OBJECT ooutapp 'Outlook.Application'.
IF sy-subrc NE 0.
EXIT.
ENDIF.
CALL METHOD OF ooutapp 'CreateItem' = omail
EXPORTING
#1 = 0.
IF sy-subrc NE 0.
EXIT.
ENDIF.
SET PROPERTY OF omail 'From' = 'anderes-Konto@mail.de'. "<-- Damit hat er ein Problem
SET PROPERTY OF omail 'To' = 'zieladresse@mail.de'.
SET PROPERTY OF omail 'Subject' = 'Betreff'.
SET PROPERTY OF omail 'Body' = 'Hier steht der Text...'.
CALL METHOD OF omail 'Send'.
FREE OBJECT omail.
COMMIT WORK AND WAIT.
Code: Alles auswählen.
PROGRAM zdema_test.
TYPE-POOLS ole2 .
DATA : ooutapp TYPE ole2_object,
omail TYPE ole2_object,
lattach TYPE ole2_object,
lattachmsg TYPE ole2_object.
* Email Body, Subj, Text
CREATE OBJECT ooutapp 'Outlook.Application'.
IF sy-subrc NE 0.
EXIT.
ENDIF.
CALL METHOD OF ooutapp 'CreateItem' = omail
EXPORTING
#1 = 0.
IF sy-subrc NE 0.
EXIT.
ENDIF.
*SET PROPERTY OF omail 'From' = 'anderes-Konto@mail.de'. "<-- Damit hat er ein Problem
SET PROPERTY OF omail 'To' = 'zieladresse@mail.de'.
SET PROPERTY OF omail 'Subject' = 'Betreff'.
SET PROPERTY OF omail 'Body' = 'Hier steht der Text...'.
*Neu
DATA str TYPE string.
str = 'anderes-Konto@mail.de'.
SET PROPERTY OF omail 'SentOnBehalfofName' = str.
* Ende Neu
CALL METHOD OF omail 'Display'.
FREE OBJECT omail.
COMMIT WORK AND WAIT.