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.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Dim OutApp As Object Dim OutMail As Object Dim StrBody As String Dim filePath As String Dim XPath As String StrBody = Line1 & "<br>" & _ Line2 & "<br>" & _ Line3 & "<br>" & _ Line4 & "<br>" & _ Line5 & "<br>" & _ Line6 & "<br>" & _ Line7 & "<br>" & _ Line8 & "<br>" & _ Line9 & "<br>" & _ Line10 & "<br><br><br>" filePath = Sheets("Configuration").Range("B5").Value & "\" & FolderSave XPath = filePath & "\" & Range("G4").Value & ".pdf" Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = Range("D9").Value .CC = "" .BCC = "" .Subject = EMailSub .ReadReceiptRequested = True .Importance = 2 .HTMLBody = StrBody If (filePath) <> "" Then .Attachments.Add XPath End If
|a slight change to the code written by Brad Yundt||2||33|
|finding cells where the formula results in no entry ("") and delete those cells using VBA||9||27|
|Extracting from Outlook Email to Excel Using Multiple RegEx Patterns||7||31|
|Application.FileSearch does not work in excel 2016||2||17|