Sub EmailButton_Click() Dim bStarted As Boolean Dim oOutlookApp As Object Dim oItem As Object On Error Resume Next Set oOutlookApp = GetObject(, "Outlook.Application ...
Results that may be inaccessible to you are currently showing.
Hide inaccessible results
Feedback