#ExcelVBA #ExcelMacroExcel VBA Macro: Attach All Files (in a Specific Folder) to an Email and Send. In this video, we write code in VBA to add all files in a folder to an email using a Do While Loop.
Code (KZfaq doesn't allow brackets; so LT and GT are used for less than and greater than, respectively):
Sub email_all_files_in_folder()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim myFldr As String
Dim myFile As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
myFldr = "C:\Users\greggowaffles\Documents\KZfaq Videos\Test\Sample Data Files\"
myFile = Dir(myFldr)
strbody = "LT BODY style = font-size:11pt; font-family:Arial GT" & _
"Hi Team, LT p GT Please see file(s) attached. LT p GT" & _
"Thanks, LT br GT Greg"
On Error Resume Next
With OutMail
.To = "123@abc.com"
.CC = ""
.BCC = ""
.Subject = "Daily File(s) " & Format(Date, "mm/dd/yyyy")
.Display
.HTMLBody = strbody & .HTMLBody
Do While myFile LT GT ""
.Attachments.Add myFldr & myFile
myFile = Dir
Loop
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
#ExcelVBA #ExcelMacro