MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|EXCHANGE 2010 - DATABASE CORRUPTION||11||42|
|Automating an Excel Template using VBA and Outlook||8||26|
|Outlook 2010: How to search sub-folders||3||19|
|MS Access Using VBA Split Word Docx file into separate Doc for Each Page||15||13|