VBA - Mail whole workbook to multiple people seperately

[AKAvenger]

Hello Hello Excel Geniuses

I have found MANY answers to the first part of my problem.....
I would like to email my full workbook to multiple users [solved] BUT...I would like to e-mail it to each individual separately.....

the below is working for multiple and 1 e-mail recipient if you are sending 1 e-mail. this is from Ron de Bruins excel tips....

Sub Mail_workbook_Outlook_1()
'Working in Excel 2000-2016
'This example send the last saved version of the Activeworkbook
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
    Dim OutApp As Object
    Dim OutMail As Object


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)


    On Error Resume Next
    With OutMail
        .to = “e-mail address is placed here”
        .CC = ""
        .BCC = ""
        .Subject = "MEA | Product-Sales Opportunity Joint Pipeline"
        .Body = "Dear Colleagues, find attached, updated pipeline."
        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
        End With
    On Error GoTo 0


    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[AKAvenger]

hey Logit

This works!!, thank you...but I need to ask....could you make adjustments to your code that will allow the e-mails to be sent directly without a preview?

 

[Macropod]

AKAvenger: There is no need to keep re-posting the same code over and over. And, when you do post code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had (see your initial post, to which I've added the code tags).

 

[Logit]

.
In the macro code, comment out .Display by placing a quote mark in front of it: '.Display

Then immediately below, place : .Send

 

[AKAvenger]

Logit...thank you kindly!! it works....

One more question if I may...if I wanted to include a recipient that could be cc'd...would you know how I could possibly get this done?

 

[Logit]

.
To add one CC'd :

.To = cell.Value
.CC = "In quotes place their email aqdress here" '<--------------------- add this
.Subject = Cells(cell.Row, "A") & " ACH Remittance"

 

[AKAvenger]

Logit, works perfectly. Thank you!!

 

[Logit]

You are welcome