Aman Semwal
Member
Dear Team,
Please help me with the code below :
<< Use Code -tags >>
I need to create a code where it attach file with name return in Column I.
But the scenario is the file name given in column I should search in multiple sub folder and then it should attach the file.
Sample has been shared with this.
Please help me with the code below :
<< Use Code -tags >>
Code:
Sub Drafts()
Dim oMSOutlook As Object
Dim oEmail As Object
Dim i As Integer
Dim strBody As String
Dim Pth As String
Pth = "I:\computer\"
Set oMSOutlook = CreateObject("Outlook.Application")
For i = 2 To Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
Set oEmail = oMSOutlook.CreateItem(olMailItem)
With oEmail
.To = Cells(i, 2)
.Cc = Cells(i, 3)
.Bcc = Cells(i, 4)
.Subject = Cells(i, 5)
.Body = Cells(i, 6)
.Attachments.Add Pth & Dir(Pth & Range("H" & i) & ".xlsb")
End With
Next i
Set oMSOutlook = Nothing
Set oEmail = Nothing
End SubI need to create a code where it attach file with name return in Column I.
But the scenario is the file name given in column I should search in multiple sub folder and then it should attach the file.
Sample has been shared with this.
Last edited by a moderator:
