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
|Link Excel Spreadsheet to Access, not using Transferspreadsheet||5||26|
|Hiding column macro||10||28|
|Mac Excel column treating text as date||2||30|
|Comparison between two sheet and addition of an item from second sheet - Excel Query AP||5||15|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!