问通过VBA附加多个文件

EN

Sub AttachandSendEmail()
Dim obMail As Outlook.MailItem
Dim irow As Integer
Dim dpath As String
Dim pfile As String

'file path
dpath = "C:\Users\filelocation"

'looping through all the files and sending an mail

irow = 1

Do While Cells(irow, 3) <> Empty


'pikcing up file name from column C
 pfile = Dir(dpath & "\*" & Cells(irow, 3) & "*")


'checking for file exist in a folder and if its a pdf file

If pfile <> "" And Right(pfile, 3) = "pdf" Then

    Set obMail = Outlook.CreateItem(olMailItem)

    With obMail
        .To = "email@comapny.com"
        .Subject = "O/S Blanace"
        .BodyFormat = olFormatPlain
        .Body = "Please see attached files"
        .Attachments.Add (dpath & "\" & pfile)
        .Send
    End With

End If

'go to next file listed on the C column
 irow = irow + 1

Loop


End Sub