Groups > microsoft.public.excel.programming > #109662

Re: posting this here cuz the outlook programing group is very inactive...

From	Tslebyng224 <Txlebjng923@gmail.com>
Newsgroups	microsoft.public.excel.programming
Subject	Re: posting this here cuz the outlook programing group is very inactive...
Date	2016-11-24 00:03 +0000
Message-ID	<Tslebyng224.127bee79@excelbanter.com> (permalink)
Organization	ExcelBanter.com
References	<9cbcab3c-cb34-466d-a3a0-5886d311bf6a@googlegroups.com>

Show all headers | View raw

Matthew Dyer;1627237 Wrote: 
> hopefully with how active you guys are you can help! I apologize in
> advance for posting an outlook vba question in an excel vba group. I've
> got this loop that automatically detects for pdf file attachments in a
> selected range of email items, saves them to Temp so that I am able to
> then run a shell to print them. Since sometimes there ARENT pdf
> attachments, I want to only have the flag status change to complete if
> the e-mail has a pdf attachment. logically, where I have the flagstatus
> event occur in my loop makes sense to me, but it only changes the
> flagstatus for the first item in my selection. Here's to hoping someone
> smarter than me can figure out what's going on here. Public Sub
> SaveandPrintAttachments() Dim objOL As Outlook.Application Dim objMsg As
> Outlook.MailItem Dim objAttachments As Outlook.Attachments Dim
> objSelection As Outlook.Selection Dim i As Long Dim lngCount As Long Dim
> strFile As String Dim strFolderpath As String Dim strExePath As String '
> Get the path to your My Documents folder strFolderpath =
> &quot;c:\temp\&quot; Set objOL =
> CreateObject(&quot;Outlook.Application&quot;) Set objSelection =
> objOL.ActiveExplorer.Selection ' Set the Attachment folder. (Folder must
> exist.) strFolderpath = strFolderpath For Each objMsg In objSelection
> Set objAttachments = objMsg.Attachments lngCount = objAttachments.Count
> If lngCount &gt; 0 Then For i = lngCount To 1 Step -1 strFile =
> objAttachments.Item(i).FileName If Right(strFile, 3) = &quot;pdf&quot;
> Then strFile = strFolderpath &amp; 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, &quot;print&quot;, 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 It is in reality a great and helpful piece of info. I'm satisfied that
you shared this helpful info with us. Please keep us informed like this.
Thanks for sharing.




-- 
Tslebyng224

Thread

csiph-web