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.
Public Sub SendMailCCPT() 'Late binding Dim olapp As Object Dim olmail As Object Const olmailitem As Long = 0 Set olapp = CreateObject("outlook.application") If olapp Is Nothing Then MsgBox "Outlook is not open. Please open Outlook and try again." Else Set olmail = olapp.CreateItem(olmailitem) With olmail .To = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" .Subject = "Project or Training Impacting " & Forms!EditSchPT!txtMyDept & " on " & Forms!EditSchPT!txtDate .body = Forms!EditSchPT!txtMyName & vbNewLine & Forms!EditSchPT!cPTDesc1 & ": " & Forms!EditSchPT!txtPTDesc1 & vbNewLine & "Start: " & Forms!EditSchPT!txtPT1St & vbNewLine & "End: " & Forms!EditSchPT!txtPT1End .Send End With End If Set olapp = Nothing Set olmail = Nothing 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.