As I have been deluged with requests for the code...here it is...
<?xml version="1.0" ?>
- <WebPart>
<Title>Inbox</Title>
<Description>Uses outlook view control to view your inbox</Description>
- <Content>
- <![CDATA[
<table border="0" cellpadding="0" cellspacing="0"
style="width:100%;">
<tr>
<td nowrap valign="bottom"><span class="topBarSpan">
<span id="spanMessages1_WPQ_"
onclick="MyMessages_WPQ_.folder='Inbox';MyMessages_WPQ_.view='Messages with
AutoPreview'; changeMessagesTab_WPQ_(this);"
style="font-weight:bold">Messages</span>
<span id="spanMessages2_WPQ_"
onclick="MyMessages_WPQ_.folder='Inbox';MyMessages_WPQ_.view='Unread
Messages'; changeMessagesTab_WPQ_(this);">Unread</span>
<span id="spanMessages3_WPQ_"
onclick="MyMessages_WPQ_.folder='Drafts';MyMessages_WPQ_.view='Messages with
AutoPreview'; changeMessagesTab_WPQ_(this);">Drafts</span>
<span id="spanMessages4_WPQ_"
onclick="MyMessages_WPQ_.folder='Sent Items';MyMessages_WPQ_.view='Messages
with AutoPreview'; changeMessagesTab_WPQ_(this);">Sent Items</span>
</span>
</td>
<td width="8%" align="left" valign="bottom">
<span id="NewItem_WPQ_" style="cursor:hand"
onClick="new_Message_WPQ_()">
New
</span>
</td>
<td width="8%" align="left" valign="bottom">
<span id="DelItem_WPQ_" style="cursor:hand"
onClick="delete_Message_WPQ_()">
Delete
</span>
</td>
</tr>
</table>
<object ID="MyMessages_WPQ_"
CLASSID="CLSID:0006F063-0000-0000-C000-000000000046"
style="width:100%;height:100%"
codebase="http://activex.microsoft.com/activex/controls/office/outlctlx.CAB#
ver=9,0,2814">
<param NAME="View" VALUE>
<param NAME="Folder" VALUE="Inbox">
<param NAME="Namespace" VALUE="MAPI">
<param NAME="Restriction" VALUE="">
<param NAME="DeferUpdate" VALUE="0">
</object>
</body>
<script language="javascript">
function changeMessagesTab_WPQ_(currentdiv)
{
spanMessages1_WPQ_.style.fontWeight="normal"
spanMessages2_WPQ_.style.fontWeight="normal"
spanMessages3_WPQ_.style.fontWeight="normal"
spanMessages4_WPQ_.style.fontWeight="normal"
currentdiv.style.fontWeight="bold"
}
</script>
<script language = "vbscript">
sub new_Message_WPQ_()
MyMessages_WPQ_.NewDefaultItem
end sub
sub delete_Message_WPQ_()
MyMessages_WPQ_.Delete
end sub
</script>
]]>
</Content>
<ContentLink />
<ContentType>0</ContentType>
<IsVisible>1</IsVisible>
<AllowRemove>1</AllowRemove>
<HasFrame>1</HasFrame>
<AllowMinimize>1</AllowMinimize>
<FrameState>0</FrameState>
<RequiresIsolation>0</RequiresIsolation>
<RefreshInterval>0</RefreshInterval>
<CacheBehavior>0</CacheBehavior>
<CacheTimeout>0</CacheTimeout>
<Width />
<Height>300px</Height>
<DetailLink />
<CustomizationLink />
<XSL />
<XSLLink />
<Namespace />
<LastModified>Sat, 24 Jun 2000 23:10:17 GMT</LastModified>
<IsIncluded>1</IsIncluded>
<MasterPartLink />
<PartOrder>0</PartOrder>
<PartStorage />
<Zone>3</Zone>
</WebPart>
------------------------------------------------------------------------------
Archives: http://www.mail-archive.com/[email protected]/
To Unsubscribe visit
http://www.houseoffusion.com/index.cfm?sidebar=lists&body=lists/cf_talk or send a
message to [EMAIL PROTECTED] with 'unsubscribe' in the body.
