Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > microsoft.public.excel.programming > #109649
| From | GS <gs@v.invalid> |
|---|---|
| Newsgroups | microsoft.public.excel.programming |
| Subject | Re: posting this here cuz the outlook programing group is very inactive... |
| Date | 2016-11-23 00:08 -0500 |
| Organization | A noiseless patient Spider |
| Message-ID | <o13883$mm5$1@dont-email.me> (permalink) |
| References | <9cbcab3c-cb34-466d-a3a0-5886d311bf6a@googlegroups.com> |
Edit as follows to reset lngCount before looping the messages...
>...
> For Each objMsg In objSelection
> Set objAttachments = objMsg.Attachments
>
lngCount = 0 'reset
> lngCount = objAttachments.Count
> If lngCount > 0 Then
>
> For i = lngCount To 1 Step -1
> strFile = objAttachments.Item(i).FileName
> If Right(strFile, 3) = "pdf" Then
> strFile = strFolderpath & strFile
> objAttachments.Item(i).SaveAsFile strFile
> 'use ShellExecute to open the file
> 'this may not work with zip extension if you use
> Compressed folders ShellExecute 0, "print", strFile,
> vbNullString, vbNullString, 0 objMsg.FlagStatus =
> olFlagComplete
>
> End If
> Next
> End If
> Next
>
> ExitSub:
>
> Set objAttachments = Nothing
> Set objMsg = Nothing
> Set objSelection = Nothing
> Set objOL = Nothing
> End Sub
--
Garry
Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
posting this here cuz the outlook programing group is very inactive... Matthew Dyer <matthew.e.dyer@gmail.com> - 2016-11-22 15:05 -0800
Re: posting this here cuz the outlook programing group is very inactive... phamhang29753 <phamhang29753@gmail.com> - 2016-11-23 03:07 +0000
Re: posting this here cuz the outlook programing group is very inactive... GS <gs@v.invalid> - 2016-11-23 00:08 -0500
Re: posting this here cuz the outlook programing group is very inactive... Matthew Dyer <matthew.e.dyer@gmail.com> - 2016-11-23 07:10 -0800
Re: posting this here cuz the outlook programing group is very inactive... GS <gs@v.invalid> - 2016-11-23 12:52 -0500
Re: posting this here cuz the outlook programing group is very inactive... Matthew Dyer <matthew.e.dyer@gmail.com> - 2016-11-23 10:54 -0800
Re: posting this here cuz the outlook programing group is very inactive... GS <gs@v.invalid> - 2016-11-23 14:19 -0500
Re: posting this here cuz the outlook programing group is very inactive... aokoa12 <aokoa12@gmail.com> - 2016-11-23 08:36 +0000
Re: posting this here cuz the outlook programing group is very inactive... Tvlebung396 <Tblebsng105@gmail.com> - 2016-11-23 15:03 +0000
Re: posting this here cuz the outlook programing group is very inactive... Tvlebung396 <Tblebsng105@gmail.com> - 2016-11-23 16:05 +0000
Re: posting this here cuz the outlook programing group is very inactive... Claus Busch <claus_busch@t-online.de> - 2016-11-23 22:05 +0100
Re: posting this here cuz the outlook programing group is very inactive... Tslebyng224 <Txlebjng923@gmail.com> - 2016-11-24 00:03 +0000
Re: posting this here cuz the outlook programing group is very inactive... Tslebyng224 <Txlebjng923@gmail.com> - 2016-11-24 03:04 +0000
Re: posting this here cuz the outlook programing group is very inactive... PhunuSEO <PhunuSEO@gmail.com> - 2016-11-24 06:05 +0000
csiph-web