REPORT yknctest01 NO STANDARD PAGE HEADING.
INCLUDE ole2incl.
* handles for OLE objects
DATA: h_olook TYPE ole2_object,
h_email TYPE ole2_object,
h_attch TYPE ole2_object.
DATA: h_wshel TYPE ole2_object.
*Sub SendMailWithOutlook()
*
* 'variables
* Set OApp = CreateObject("Outlook.Application")
* Set OMail = OApp.CreateItem(olMailItem)
*
* With OMail
*
* .Subject = "Pay Slip for " & PayMonth & " Attached as XLS File"
*
* .To = EmailId
*
* .Body = "Dear " & Name & "," & vbCrLf & vbCrLf & _
* "Please find enclosed the salary slip" & vbCrLf & _
* "for the month of " & PayMonth & "." & vbCrLf & vbCrLf & _
* "Regards," & vbCrLf & vbCrLf & _
* "HR Girl" & vbCrLf & vbCrLf & _
* "Assistant Manager - HR" & vbCrLf & _
* "Mobile: +91 98888 77777" & vbCrLf & _
* "Email: hrgirl@pcbl.com" & vbCrLf
*
* .Attachments.Add (DirName & "\" & NewWbk)
*
* .Importance = olImportanceHigh
*
* .BodyFormat = olFormatRichText
*
* .Save
*
* .Display
*
* Application.Wait (Now + TimeValue("00:00:02"))
*
* 'this bypasses the security mechanism so that a mail goes out immediately
* Set WshShell = CreateObject("WScript.Shell")
* WshShell.AppActivate OMail
* WshShell.SendKeys ("%s") ' sends a CTRL-S as if the user himself typed it in the application
* Application.Wait (Now + TimeValue("00:00:03"))
* End With
*
* Set OMail = Nothing
*
* Set OApp = Nothing
*
* Exit Sub
*
*End Sub
*&---------------------------------------------------------------------*
*& Event START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.
* start Outlook
CREATE OBJECT h_olook 'Outlook.Application'.
PERFORM err_hdl.
CALL METHOD OF h_olook 'CreateItem' = h_email EXPORTING #1 = 0. " olMailItem=0
PERFORM err_hdl.
SET PROPERTY OF h_email 'Subject' = 'Test Subject'.
SET PROPERTY OF h_email 'To' = 'vinoddwivedi81@gmail.com;ssscal@gmail.com;vinod.dwivedi@rediffmail.com;vinod_developer2004@yahoo.com'.
SET PROPERTY OF h_email 'Body' = 'Hi! Hello this is test mail'.
GET PROPERTY OF h_email 'Attachments' = h_attch.
PERFORM err_hdl.
CALL METHOD OF h_attch 'Add' = h_attch EXPORTING #1 = 'C:\gt_struct.xls'.
SET PROPERTY OF h_email 'Importance' = 2. "olImportanceHigh
CALL METHOD OF h_email 'Save'.
CALL METHOD OF h_email 'Display'.
WAIT UP TO 2 SECONDS.
CREATE OBJECT h_wshel 'WScript.Shell'.
PERFORM err_hdl.
CALL METHOD OF h_wshel 'AppActivate' EXPORTING #1 = 'Test Subject'. " As SUBJECT is Title of Window
PERFORM err_hdl.
CALL METHOD OF h_wshel 'SendKeys' EXPORTING #1 = '%s'.
PERFORM err_hdl.
WAIT UP TO 2 SECONDS.
FREE OBJECT h_attch.
PERFORM err_hdl.
FREE OBJECT h_email.
PERFORM err_hdl.
FREE OBJECT h_olook.
PERFORM err_hdl.
FREE OBJECT h_wshel.
PERFORM err_hdl.
*&---------------------------------------------------------------------*
*& Form ERR_HDL
*&---------------------------------------------------------------------*
FORM err_hdl.
IF sy-subrc <> 0.
WRITE: / 'Fehler bei OLE-Automation:'(010), sy-subrc.
STOP.
ENDIF.
ENDFORM. " ERR_HDL