• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Email Dashboard from Dept. wise to the concern person

Dear All,
Greetings for the Day!!
Hope you are doing well. I need your help to created email as an attachment to concern dept. wise.
1. I have created a macro which is creating the dept. wise file in a folder. (Already Created)
2. Now I wish to email that separate file to concern dept. head using mail through MS Outlook.
3. Summary of the each Dept. should be paste on mail body.
Need the help for point 3 & 4. Pls. guide me how can I do it. Your help is appreciated!
Thanks in advance. Excel Sheet is attached for your kind perusal.
Best Rgds,
Sukhdev Singh
 
Dear All,
Greetings for the Day!!
Hope you are doing well. I need your help to created email as an attachment to concern dept. wise.
1. I have created a macro which is creating the dept. wise file in a folder. (Already Created)
2. Now I wish to email that separate file to concern dept. head using mail through MS Outlook.
3. Summary of the each Dept. should be paste on mail body.
Need the help for point 3 & 4. Pls. guide me how can I do it. Your help is appreciated!
Thanks in advance. Excel Sheet is attached for your kind perusal.
Best Rgds,
Sukhdev Singh
Attachment ?
Here is the attachement. Pls. find the same.
 

Attachments

  • Create_New_Filtered.xlsm
    28.7 KB · Views: 6
.
Code:
Option Explicit
Sub Send_Email()

    Dim c As Range
    Dim OutLookApp As Object
    Dim OutLookMailItem As Object
    Dim i As Integer
   
    For Each c In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Cells
        Set OutLookApp = CreateObject("Outlook.application")
        Set OutLookMailItem = OutLookApp.CreateItem(0)
        With OutLookMailItem
                .To = c.Value
                .CC = "Your CC here"
                .Subject = "Your Subject here"
                .HTMLBody = "Your Body content here"
                .Attachments.Add c.Offset(i, 1).Value
                .Display
                '.Send
        End With
    Next c

End Sub

The above email macro : email addresses are listed in Col A, attachment
paths are listed in Col B.

Refer to attached files.


I made a few adjustments to your macro code by adding OPTION EXPLICIT and
a few DIM statements.
 

Attachments

  • WORKS Bulk Email w Separate Attachments.xlsm
    17.2 KB · Views: 14
  • Create_New_Filtered.xlsm
    23.9 KB · Views: 10
.
Code:
Option Explicit
Sub Send_Email()

    Dim c As Range
    Dim OutLookApp As Object
    Dim OutLookMailItem As Object
    Dim i As Integer
  
    For Each c In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Cells
        Set OutLookApp = CreateObject("Outlook.application")
        Set OutLookMailItem = OutLookApp.CreateItem(0)
        With OutLookMailItem
                .To = c.Value
                .CC = "Your CC here"
                .Subject = "Your Subject here"
                .HTMLBody = "Your Body content here"
                .Attachments.Add c.Offset(i, 1).Value
                .Display
                '.Send
        End With
    Next c

End Sub

The above email macro : email addresses are listed in Col A, attachment
paths are listed in Col B.

Refer to attached files.


I made a few adjustments to your macro code by adding OPTION EXPLICIT and
a few DIM statements.

Dear Sir,
Thanks for help. It is good and working for emailing and bulk email for department wise. but I am not able to copy and paste the dashboard(Summary) sheet's data in mail body of concern dept.
Can you pls. help me in it. Thanks once again for help me.

Rgds,
Sukhdev Singh
 
When running your other file (Create_New_Filtered.xlsm), it in turns creates several separate workbooks.

Are you wanting to attach the workbooks to the EMAIL or is there something else you want to paste into the body of the email ? Please be specific.

Thanks
Create_New_Filtered.xlsm
Create_New_Filtered.xlsm
 
Yes I want to paste the summary sheet of each dept. in mail body and rest of the file will be sent in attachment.. pls. guide and help.

thanks,
Best Rgds,
Sukhdev
 
I want to send it as an attachment and also wish to paste the summary sheets data in mail body.
Pls. guide how can I do it.
thanks,

When running your other file (Create_New_Filtered.xlsm), it in turns creates several separate workbooks.

Are you wanting to attach the workbooks to the EMAIL or is there something else you want to paste into the body of the email ? Please be specific.

Thanks
Create_New_Filtered.xlsm
Create_New_Filtered.xlsm
 
Back
Top