<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
		>
<channel>
	<title>Comments on: Strip selected attachments and save to folder</title>
	<atom:link href="http://www.codeforexcelandoutlook.com/blog/2009/12/strip-selected-attachments-and-save-to-folder/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.codeforexcelandoutlook.com/blog/2009/12/strip-selected-attachments-and-save-to-folder/</link>
	<description>Automation and VBA code for Microsoft® Excel and Outlook</description>
	<lastBuildDate>Fri, 03 Sep 2010 11:28:24 +0000</lastBuildDate>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.0.1</generator>
<xhtml:meta xmlns:xhtml="http://www.w3.org/1999/xhtml" name="robots" content="noindex" />
	<item>
		<title>By: JP</title>
		<link>http://www.codeforexcelandoutlook.com/blog/2009/12/strip-selected-attachments-and-save-to-folder/#comment-2217</link>
		<dc:creator>JP</dc:creator>
		<pubDate>Fri, 18 Dec 2009 11:51:26 +0000</pubDate>
		<guid isPermaLink="false">http://www.codeforexcelandoutlook.com/blog/?p=762#comment-2217</guid>
		<description>Tim,

It might be that you don&#039;t have the function. Here it is. If you add the function and it still doesn&#039;t work, set a breakpoint and try stepping through it.

[cc lang=&#039;vb&#039;]Function GetFileType(ByVal fileName As String) As String
&#039; get file extension

GetFileType = Mid$(fileName, InStrRev(fileName, &quot;.&quot;), Len(fileName))

End Function[/cc]</description>
		<content:encoded><![CDATA[<p>Tim,</p>
<p>It might be that you don't have the function. Here it is. If you add the function and it still doesn't work, set a breakpoint and try stepping through it.</p>
<div class="codecolorer-container vb default" style="overflow:auto;white-space:nowrap;border:1px solid #9F9F9F;width:630px;"><div class="vb codecolorer" style="padding:5px;font:normal 12px/1.4em Monaco, Lucida Console, monospace;white-space:nowrap"><span style="color: #000080;">Function</span> GetFileType(<span style="color: #000080;">ByVal</span> fileName <span style="color: #000080;">As</span> <span style="color: #000080;">String</span>) <span style="color: #000080;">As</span> <span style="color: #000080;">String</span><br />
<span style="color: #008000;">' get file extension<br />
</span><br />
GetFileType = Mid$(fileName, InStrRev(fileName, <span style="color: #800000;">&quot;.&quot;</span>), Len(fileName))<br />
<br />
<span style="color: #000080;">End</span> <span style="color: #000080;">Function</span></div></div>
]]></content:encoded>
	</item>
	<item>
		<title>By: Tim buckingham</title>
		<link>http://www.codeforexcelandoutlook.com/blog/2009/12/strip-selected-attachments-and-save-to-folder/#comment-2216</link>
		<dc:creator>Tim buckingham</dc:creator>
		<pubDate>Fri, 18 Dec 2009 02:24:02 +0000</pubDate>
		<guid isPermaLink="false">http://www.codeforexcelandoutlook.com/blog/?p=762#comment-2216</guid>
		<description>Hi JP,

Have been very impressed with these posts on email management and could really use this code to strip mail and add link to file.  I am having errors with GetFileType and not sure why?  Are you able to advise how to resolve?

Tim Buckingham
codeforexcelandoutlook fanboy!</description>
		<content:encoded><![CDATA[<p>Hi JP,</p>
<p>Have been very impressed with these posts on email management and could really use this code to strip mail and add link to file.  I am having errors with GetFileType and not sure why?  Are you able to advise how to resolve?</p>
<p>Tim Buckingham<br />
codeforexcelandoutlook fanboy!</p>
]]></content:encoded>
	</item>
</channel>
</rss>
