how to send mail with excel vba

[=?iso-2022-jp?B?RVhDRUwbJEIhIRsoQk5FV1M=?=]

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

 

[Ron de Bruin]

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

 

[=?iso-2022-jp?B?RVhDRUwbJEIhIRsoQk5FV1M=?=]

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

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

 

[=?iso-2022-jp?B?RVhDRUwbJEIhIRsoQk5FV1M=?=]

thanks,
but how to use outlookexpress,

addin what,
thanks

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

 

[Ron de Bruin]

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

thanks,
but how to use outlookexpress,

addin what,
thanks