RE: Insert/Embed outlook mail using vba Excel

[Keerthi03]

Hi Folks,

I would need your dearest help in vba code . For your kind info - I need urgent help on this query. Hence, I have already cross posted the same query in other forum earlier (refer link below):

Other Forum - Cross Post

I would need to perform additional task along with existing steps which i have mentioned below for your reference:

Existing step:
I would need to insert the outlook email message(saved in the same path as of my macro file as .msg format) as object into the excel worksheet.

Existing code of mine -( This code only insert email into worksheet as object - Need to make it dynamic to choose the email file name)

Sub test()

Dim XPath As String
Dim Email As String
XPath = Application.ActiveWorkbook.Path
Email = XPath & "\Monthly sales.msg"
ActiveSheet.OLEObjects.Add(Filename:=Email, Link:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINDOWS\system32\packager.dll", IconIndex:=2, IconLabel:= _
        "Monthly sales.msg").Select
    Range("K7").Select
    
    End Sub

Addiontal task:
1) I would need to attach 3 more files (it will be 3 different worksheet and one email) in the same email message which i am about to add as object in VBA excel worksheet.
2) Name of the email message and workbooks to be attached will be dynamic (all the files will be saved in same folder of macro file).

Please let me know if above task is possible using vba sooner