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.
Sub SendDailyFxByEmailToServer() Application.ScreenUpdating = False ActiveWorkbook.Save ' Select the range of cells on the active worksheet and copy paste values Sheets("email").Select Range("FxData").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ' Show the envelope on the ActiveWorkbook. ActiveWorkbook.EnvelopeVisible = True ' Set the To and Subject lines and send out msg With ActiveSheet.MailEnvelope .Item.To = "firstname.lastname@example.org" .Item.Cc = "email@example.com" .Item.Subject = " Daily Fx Feed" .Item.Send End With ' closes the active workbook without saving any changes, exit application ActiveWorkbook.Close False Application.ScreenUpdating = True Application.Quit 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.