I need a Macro in Excel by which I can send Email with Attachments

[AsceTic!]

I have a worksheet, which has the following:

1. Column A have the name of the files of the attachments;
2. Column B have the email addresses;
3. Column C have the path where the attachment are saved;

I want a macro which can email all the attachments with the name as in Column A to there corresponding email address as mentioned in Column B. All attachments are saved in the same folder, path is mentioned in Column C. I want these mails to be displayed and not sent directly. All excel/macro gurus, please help.

[Koman]

Thankfully I had created similar code for a previous post recently. This macro goes into Outlook, and requires the Excel file with the attachment names and addresses to be open to work. Firstly, copy and paste the following code into Outlook. You can do this by selecting Tools/Macro/Visual Basic Editor and pasting in the following code. In the code, you will notice that I have also added in the commands for you to put in a subject and send the emails, but these are remarked out as your request was just to add the address and attachment and not send the email. You can adjust these as required later.

Sub ReadExcel()
    Dim ExcelObject As Object
    Dim OutlookApp As Outlook.Application
    Dim NewMessage As Outlook.MailItem
    Dim OutlookNamespace As Outlook.NameSpace
    Dim fName, fLoc, eAddress As String
    Dim fNameAddress, fLocAddress, eAddressAddress As String
    
    ' Set up the spreadsheet you want to read
    On Error Resume Next
    Set ExcelObject = GetObject(, "Excel.Application")
    If Not Err.Number = 0 Then
        MsgBox "You need to have Excel running with the appropriate spreadsheet open first", vbCritical, "Excel Not Running"
        End
    End If
    
    ' Read in the data and create a new message with attachment for each Excel entry
    CellRow = 1
    Set OutlookApp = Outlook.Application
    Do Until ExcelObject.Range(fNameAddress) = ""
        fNameAddress = "A" & CellRow
        eAddressAddress = "B" & CellRow
        fLocAddress = "C" & CellRow
        fName = ExcelObject.Range(fNameAddress)
        fLoc = ExcelObject.Range(fLocAddress)
        eAddress = ExcelObject.Range(eAddressAddress)
        fName = fLoc & "\" & fName
        Set OutlookApp = Outlook.Application
        Set NewMessage = OutlookApp.CreateItem(olMailItem)
        Set myAttachments = NewMessage.Attachments
        myAttachments.Add fName
        With NewMessage
            .Recipients.Add eAddress
            .Attachments = fName
            .Display
            ' .Subject = "Put your subject here"
            ' .Send
        End With
        CellRow = CellRow + 1
        fNameAddress = "A" & CellRow
    Loop
End Sub

[AnitG]

You can use sendmail. Example below:

 Sub EnvoiMail () Workbooks ("xxxxx"). SendMail Recipients: = "xyz@xyz.com", _ Subject: = "Test sending workbook", _ ReturnReceipt: = True End Sub

This macro sends, via the default browser, a mail recipient whose address is here xyz @xyz.com. The subject is indicated in Subject. You can put ReturnReceipt to True to request a return receipt (optional). Attached, the specified workbook that is sent to Sendmail. It could be the workbook containing the macro (ThisWorkbook), or the active workbook (ActiveWorkbook), etc..