Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
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.