how to send mail with excel vba
 

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
----------------------------

thanks

how to send mail with excel vba
 

With SendMail it is only possible to send a open workbook and not other files.
Try to use the Outlook object model.

See
http://www.rondebruin.nl/sendmail.htm

Maybe you can use this
http://www.rondebruin.nl/mail/folder2/files.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"EXCEL$B!!(BNEWS" wrote in message ...
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
----------------------------

thanks

how to send mail with excel vba
 

Thanks for your advice.
i would like to have a try

"Ron de Bruin" wrote in message
...
With SendMail it is only possible to send a open workbook and not other
files.
Try to use the Outlook object model.

See
http://www.rondebruin.nl/sendmail.htm

Maybe you can use this
http://www.rondebruin.nl/mail/folder2/files.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"EXCEL$B!!(BNEWS" wrote in message
...
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
----------------------------

thanks

how to send mail with excel vba
 

thanks,
but how to use outlookexpress,

addin what,
thanks

"Ron de Bruin" wrote in message
...
With SendMail it is only possible to send a open workbook and not other
files.
Try to use the Outlook object model.

See
http://www.rondebruin.nl/sendmail.htm

Maybe you can use this
http://www.rondebruin.nl/mail/folder2/files.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"EXCEL$B!!(BNEWS" wrote in message
...
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
----------------------------

thanks

how to send mail with excel vba
 

Hi EXCEL NEWS

Your only option is to the CDO code on my site if you not want to use Outlook
http://www.rondebruin.nl/cdo.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"EXCEL$B!!(BNEWS" wrote in message ...
thanks,
but how to use outlookexpress,

addin what,
thanks

"Ron de Bruin" wrote in message
...
With SendMail it is only possible to send a open workbook and not other
files.
Try to use the Outlook object model.

See
http://www.rondebruin.nl/sendmail.htm

Maybe you can use this
http://www.rondebruin.nl/mail/folder2/files.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"EXCEL$B!!(BNEWS" wrote in message
...
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
----------------------------

thanks