Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Dim olkApp As Object Dim strSubject As String Dim strTo As String Dim strBody As String Dim strAtt As String ActiveDocument.Save strSubject = "Plant 2 Downtime document" strBody = "Please see attached File" ' strTo = "email@example.com" strTo = "firstname.lastname@example.org" If ActiveDocument.FullName = "" Then MsgBox "activedocument not saved, exiting" Exit Sub Else If ActiveDocument.Saved = False Then If MsgBox("Activedocument NOT saved, Proceed?", vbYesNo, "Error") <> vbYes Then Exit Sub End If End If strAtt = ActiveDocument.FullName Set olkApp = CreateObject("outlook.application") With olkApp.createitem(0) .to = strTo .Subject = strSubject .body = strBody .attachments.Add strAtt .send '.Display End With Set olkApp = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.