| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Bypass: A program is trying to send mail using Item.Send prompt | Excel Discussion (Misc queries) | |||
| Is their any way to set Excel to send an e-mail on date | Excel Discussion (Misc queries) | |||
| Send mail from Excel | Excel Programming | |||
| Not using send button on excel e-mail | Excel Programming | |||
| how to send e-mail from excel | Excel Programming | |||
Hybrid Mode
