We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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 = "email@example.com" .Item.Cc = "firstname.lastname@example.org" .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.
|Follow up to previous question Accepted Solutionby:Ejgil Hedegaard ID: 406884912015-03-25||18||67|
|Excel hyperlinks - add custom and dynamic text to email body||2||33|
|How do I combine these two formulas in one cell in Excel 2007 to get them to work?||4||33|