How to BA to send Email (outlook) with title of workbook

How to use VBA code to obtain date from cell, then calculate 3 months later

Solution:

The user is looking for the correct line of code that when button is clicked it will take the name of the workbook file the user is using and in the SUBJECT line of the email show " thefilename.xxx is now prepared for review".

BTW with the code I am using below, sending the email works perfectly upon button click. Just hoping to add the file name to subject.

Code:

Private Sub sendEmailtoIC_Click()



On Error GoTo ErrHandler
    
    ' SET Outlook APPLICATION OBJECT.
    Dim objOutlook As Object
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' CREATE EMAIL OBJECT.
    Dim objEmail As Object
    Set objEmail = objOutlook.CreateItem(olMailItem)


    With objEmail
        .To = "[email protected]"
        .cc = "[email protected]"
        .cc = "[email protected]"
        .Subject = "thefilename Report Prepared for Review"
        .Body = ""
        .Send
    End With
    
    ' CLEAR.
    Set objEmail = Nothing:    Set objOutlook = Nothing
        
ErrHandler:
    '
End Sub

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/149713-vba-to-send-email-outlook-with-title-of-workbook

Requirement:

Code:

Option Explicit


Sub EmailSend()
Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody1 As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)




    On Error Resume Next
    With OutMail
        .to = ""
        .CC = ""
        .BCC = ""
        .Subject = Application.ActiveWorkbook.Name & "  Report Prepared for Review"
        .Body = "Hi"
        .Display
        '.Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Logit.