how to send mail with excel vba

  • Thread starter EXCEL$B!!(BNEWS
  • Start date
E

EXCEL$B!!(BNEWS

here is my sub ,

why .FoundFiles(i) are not objects,
------------------------
Sub Macro06()

Set fs = Application.FileSearch
With fs
.LookIn = "D:\temp\1Box-H22m-L4165m"
.Filename = "*.lzh"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
.FoundFiles(i).sendmail Recipients:="jyou"
Next i
Else
MsgBox "there is no files found"
End If
End With
Path
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

FileSearch misbehaving 8
Getting FileName from Search 4
Application.Filesearch FileCopy 2
application.filesearch error in office 2010 3
Open a .pdf file using vba in excel 2003 6
Open most recent file 10
List all files in a sub directory 4
File searh *.cab 2

Top