10-08-2007 9:40 AM
Hi All,
I have a requirement where i have to open the MS outlook editor from interactive with a attachment.
Thanks
Shafiq
10-08-2007 9:50 AM
Slightly modified version of program from thread:
INCLUDE ole2incl .
DATA: lr_outlook TYPE ole2_object,
lr_mi TYPE ole2_object,
lr_atts TYPE ole2_object,
lv_body TYPE string,
lv_sig type string.
CREATE OBJECT lr_outlook 'Outlook.Application'.
CALL METHOD OF lr_outlook 'CreateItem' = lr_mi
EXPORTING #1 = 0.
SET PROPERTY OF lr_mi 'To' = 'your@to.address'.
SET PROPERTY OF lr_mi 'CC' = 'your@cc.address'.
SET PROPERTY OF lr_mi 'Subject' = 'Your subject'.
GET PROPERTY OF lr_mi 'Attachments' = lr_atts.
CALL METHOD OF lr_atts 'Add'
exporting #1 = 'C:TPHKLOCK.TXT'.
GET PROPERTY OF lr_mi 'Body' = lv_sig.
CONCATENATE 'First line' cl_abap_char_utilities=>newline
INTO lv_body.
CONCATENATE lv_body 'Second line' cl_abap_char_utilities=>newline
INTO lv_body.
CONCATENATE lv_body 'Third line' cl_abap_char_utilities=>newline
INTO lv_body.
CONCATENATE lv_body lv_sig INTO lv_body.
SET PROPERTY OF lr_mi 'Body' = lv_body.
CALL METHOD OF lr_mi 'Display'.
FREE OBJECT lr_outlook.
10-08-2007 9:48 AM
Hi,
Check this link,
It may help you.
https://forums.sdn.sap.com/click.jspa?searchID=5758250&messageID=3871103
Thanks,
Reward If Helpful.
10-08-2007 9:50 AM
Slightly modified version of program from thread:
INCLUDE ole2incl .
DATA: lr_outlook TYPE ole2_object,
lr_mi TYPE ole2_object,
lr_atts TYPE ole2_object,
lv_body TYPE string,
lv_sig type string.
CREATE OBJECT lr_outlook 'Outlook.Application'.
CALL METHOD OF lr_outlook 'CreateItem' = lr_mi
EXPORTING #1 = 0.
SET PROPERTY OF lr_mi 'To' = 'your@to.address'.
SET PROPERTY OF lr_mi 'CC' = 'your@cc.address'.
SET PROPERTY OF lr_mi 'Subject' = 'Your subject'.
GET PROPERTY OF lr_mi 'Attachments' = lr_atts.
CALL METHOD OF lr_atts 'Add'
exporting #1 = 'C:TPHKLOCK.TXT'.
GET PROPERTY OF lr_mi 'Body' = lv_sig.
CONCATENATE 'First line' cl_abap_char_utilities=>newline
INTO lv_body.
CONCATENATE lv_body 'Second line' cl_abap_char_utilities=>newline
INTO lv_body.
CONCATENATE lv_body 'Third line' cl_abap_char_utilities=>newline
INTO lv_body.
CONCATENATE lv_body lv_sig INTO lv_body.
SET PROPERTY OF lr_mi 'Body' = lv_body.
CALL METHOD OF lr_mi 'Display'.
FREE OBJECT lr_outlook.
01-22-2016 5:47 AM
Dear Tomasz Mackowski,
I have seen your thread
As per my Requirement it is very useful to me .
i have another Question. is it possible Randomly Change the Sender Email Address.
Because in my System Outlook configured with my Name. But I need mails from Others Mail-Id.
Pls share me details at sureshtullimilli@gmail.com
Once again Thank you very much for your post.
Regards
Suresh