Sub EmailButton_Click() Dim bStarted As Boolean Dim oOutlookApp As Object Dim oItem As Object On Error Resume Next Set oOutlookApp = GetObject(, "Outlook.Application ...