Email with Attachment using Excel VBA

One of my friend ask me, is it possible to send multiple emails with attachments using Excel VBA. I said YES, everything is possible. Below is just small code that can help you to do it.

Note: Before you apply following code you need to add reference of OutLook Private Sub SendEmailWithAttachment() Dim outlookApp As Outlook.Application Dim eMail As Outlook.MailItem Dim sourceFile, toEmail as String Set outlookApp = New Outlook.Application Set eMail = outlookApp.CreateItem(olMailItem) For i = 2 To 10 ' this is a loop where you will fatch the data from excel rows sourceFile = Cells(i, 2) ' getting path of the file you added in your sheet eMail.Attachments.Add sourceFile toEmail = Cells(i, 1) & ";" eMail.To = toEmail eMail.Subject = "Add your Fix Subject Line or you can get data from the excel" eMail.Body = "Hi," & vbNewLine & "This is your body area" & vbNewLine & "Thanks" eMail.Send Next i End Sub

Happy Coding :)

Datatables - Keeping selected page number after callback

I save the DataTable state in the local storage to avoid passing the page number all over my app. This is how I do it:

$('#offersTable').dataTable({ "bStateSave": true, "fnStateSave": function (oSettings, oData) { localStorage.setItem('offersDataTables', JSON.stringify(oData)); }, "fnStateLoad": function (oSettings) { return JSON.parse(localStorage.getItem('offersDataTables')); } });

This is very useful when you go to another page and you want to go back (using the back button) to the last selected page.

reference