Do You Know How Hackers Steal Your Credentials? Join us and Skyport Systems to learn how hackers steal your credentials and why Active Directory must be secure to stop them. Thursday, July 13, 2017 10:00 A.M. PDT
Option Explicit 'outlook objects Public oNameSpace As Outlook.NameSpace Public oInboxItem As Variant Public oFolder As Outlook.MAPIFolder Public oMsg As Object 'excel objects Public objexcel As Excel.Application Public objWB As Excel.Workbook Public objFSO As Scripting.FileSystemObject Public excel_filename As String Sub Extract_Reports() 'extracts reports for HomeExpert Set objFSO = CreateObject("Scripting.FileSystemObject") 'opens the excel workbook Call open_workbook Call extract_outlook_info Call close_workbook End Sub Public Sub open_workbook() 'opens the Excel workbook Dim excel_path As String excel_path = "C:\01 simplyspreadsheets\63 home expert\" excel_filename = "master file.xlsx" MsgBox excel_path & " " & excel_filename Set objexcel = CreateObject("excel.application") Set objWB = objexcel.Workbooks.Open(excel_path & excel_filename, ReadOnly:=False) objexcel.Visible = True objWB.Activate End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.