📄 ch10.htm
字号:
ctrl = Null<br>
bLoadCtrl = False <br>
Else<br>
bLoadCtrl = True <br>
End If<br>
'<br>
gnIndentlevel = 0<br>
cStoreID = ""<br>
'<br>
' get collection of information stores <br>
Set objInfoStoreColl = objSession.InfoStores <br>
nStoreCount = objInfoStoreColl.Count<br>
'<br>
' walk through all stores to get folders <br>
For nIter = 1 To nStoreCount<br>
iFldrCnt = iFldrCnt + 1<br>
ReDim Preserve FolderRec(iFldrCnt)<br>
FolderRec(iFldrCnt).StoreID =
objInfoStoreColl.Item(nIter).ID<br>
FolderRec(iFldrCnt).FolderID =
"" ' no folder for a store!<br>
FolderRec(iFldrCnt).Name =
objInfoStoreColl.Item(nIter).Name<br>
cStoreID = FolderRec(iFldrCnt).StoreID '
hold this for the other folders<br>
'<br>
' add to display control<br>
If bLoadCtrl = True Then<br>
ctrl.AddItem
FolderRec(iFldrCnt).Name ' add to display<br>
End If<br>
'<br>
' point to top of store and start loading<br>
Set objRootFolder =
objInfoStoreColl.Item(nIter).RootFolder<br>
Set objFolderColl = objRootFolder.Folders<br>
Set lobjFolders = objFolderColl<br>
LoadFolder lobjFolders, ctrl<br>
gnIndentlevel = 0<br>
Next nIter<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>You'll see that the routine in Listing 10.3 walks through all the attached message
stores and calls the <tt><font FACE="Courier">LoadFolders</font></tt> routine to actually
collect all the folders in a message store. This routine also allows you to pass an option
list control (list box, combo box, or outline control). The routine will use this control
to build an onscreen pick list of the available folders. </p>
<p>Now add the <tt><font FACE="Courier">LoadFolders</font></tt> routine from Listing 10.4
to your project. </p>
<hr>
<blockquote>
<b><p>Listing 10.4. Adding the <tt><font FACE="Courier">LoadFolders</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Sub LoadFolder(aFolders As Object, Optional ctrl As Variant)<br>
'<br>
' look for folders in the collection<br>
'<br>
Dim mobjFolder As Object<br>
Dim mFolderCol As Object<br>
Dim bLoadCtrl As Boolean<br>
'<br>
gnIndentlevel = gnIndentlevel + 1<br>
'<br>
If IsMissing(ctrl) Or IsNull(ctrl) Then <br>
bLoadCtrl = False <br>
Else<br>
bLoadCtrl = True <br>
End If<br>
'<br>
Set mobjFolder = aFolders.GetFirst<br>
While Not mobjFolder Is Nothing<br>
iFldrCnt = iFldrCnt + 1<br>
ReDim Preserve FolderRec(iFldrCnt)<br>
'<br>
FolderRec(iFldrCnt).StoreID = cStoreID<br>
FolderRec(iFldrCnt).FolderID =
mobjFolder.ID<br>
FolderRec(iFldrCnt).Name = mobjFolder.Name<br>
'<br>
' optionally load screen display<br>
If bLoadCtrl = True Then<br>
ctrl.AddItem
Space(gnIndentlevel * 5) & FolderRec(iFldrCnt).Name<br>
End If<br>
'<br>
' look for nested folders<br>
Set mFolderCol = mobjFolder.Folders<br>
LoadFolder mFolderCol, ctrl<br>
'<br>
' done with nested folders<br>
gnIndentlevel = gnIndentlevel - 1<br>
Set mobjFolder = aFolders.GetNext<br>
Wend<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>Notice that this routine is called recursively in order to collect all the folders that
might be found <i>within</i> a folder. Since MAPI places no restrictions on how many
levels of folders may be defined, you need to use a recursive routine to locate all the
available folders. </p>
<p>Once you have built the folder collection, you'll need a method for pulling information
out of the collection. Listing 10.5 shows a function that will take the friendly name of a
folder and return the unique folder ID and store ID. Add this to your project. </p>
<hr>
<blockquote>
<b><p>Listing 10.5. Adding the <tt><font FACE="Courier">GetFolderRec</font></tt> function.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Function GetFolderRec(cFolderName As String) As
FolderType<br>
'<br>
' take name, return structure<br>
'<br>
Dim x As Integer<br>
Dim y As Integer<br>
'<br>
' start w/ a blank return<br>
GetFolderRec.StoreID = ""<br>
GetFolderRec.FolderID = ""<br>
GetFolderRec.Name = ""<br>
'<br>
y = UBound(FolderRec) ' get total recs in array<br>
'<br>
' walk through array<br>
For x = 0 To y - 1<br>
If Trim(UCase(FolderRec(x).Name)) =
Trim(UCase(cFolderName)) Then<br>
GetFolderRec =
FolderRec(x)<br>
Exit Function<br>
End If<br>
Next x<br>
'<br>
End Function</font></tt> </p>
</blockquote>
<div align="center"><center>
<table BORDERCOLOR="#000000" BORDER="1" WIDTH="80%">
<tr>
<td><b>Warning</b></td>
</tr>
<tr>
<td><blockquote>
<p>This routine will return the folder record of the first folder with the name you
request. Because MAPI allows users to define two folders with the same name, this routine
may not always return the results expected. This works fine for most projects, but you
should keep it in mind when developing MAPI search tools.</p>
</blockquote>
</td>
</tr>
</table>
</center></div>
<p>You also need some tools for collecting and accessing all the discussion messages in a
folder. Listing 10.6 shows the routine that you can use to collect all messages into a
local user-defined type. Add the routine to your project. </p>
<hr>
<blockquote>
<b><p>Listing 10.6. Adding the <tt><font FACE="Courier">OLEMAPIGetMsgs</font></tt>
routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub OLEMAPIGetMsgs(cFolderName As String, Optional ctrl
As Variant)<br>
'<br>
' get all the discussion messages<br>
'<br>
Dim uFolder As FolderType<br>
ReDim MsgRec(0)<br>
Dim bLoadCtrl As Boolean<br>
'<br>
Set objFolder = Nothing<br>
Set objMsgColl = Nothing<br>
Set objMsg = Nothing<br>
'<br>
iMsgCnt = 0<br>
uFolder = GetFolderRec(cFolderName)<br>
'<br>
' check for optional control<br>
If IsMissing(ctrl) Or IsNull(ctrl) Then <br>
ctrl = Null<br>
bLoadCtrl = False <br>
Else<br>
bLoadCtrl = True <br>
ctrl.Clear<br>
End If<br>
'<br>
' now walk through folder to find discussion msgs<br>
If uFolder.Name = "" Then<br>
MsgBox "Unable to locate
folder!", vbExclamation, uFolder.Name<br>
Exit Sub<br>
End If<br>
'<br>
' open store, folder<br>
Set objFolder = objSession.GetFolder(uFolder.FolderID,
uFolder.StoreID)<br>
If objFolder Is Nothing Then<br>
MsgBox "Unable to open folder!",
vbExclamation, uFolder.Name<br>
Exit Sub<br>
End If<br>
'<br>
' get message collection<br>
Set objMsgColl = objFolder.Messages<br>
If objMsgColl Is Nothing Then<br>
MsgBox "No messages in folder",
vbExclamation, uFolder.Name<br>
Exit Sub<br>
End If<br>
'<br>
' ok, get first message<br>
On Error Resume Next<br>
Set objMsg = objMsgColl.GetFirst<br>
'<br>
' now walk through folder to get all discussion msgs<br>
Do Until objMsg Is Nothing<br>
If objMsg.Type = "IPM.Discuss"
Then<br>
iMsgCnt =
iMsgCnt + 1<br>
ReDim
Preserve MsgRec(iMsgCnt)<br>
MsgRec(iMsgCnt).Subject
= objMsg.Subject<br>
MsgRec(iMsgCnt).Topic
= objMsg.ConversationTopic<br>
MsgRec(iMsgCnt).ConvIndex
= objMsg.ConversationIndex<br>
MsgRec(iMsgCnt).MsgID
= objMsg.ID<br>
MsgRec(iMsgCnt).Date
= objMsg.TimeReceived<br>
' <br>
' optionally
load control<br>
If bLoadCtrl
= True Then<br>
ctrl.AddItem
objMsg.ConversationIndex<br>
End If<br>
End If<br>
Set objMsg = objMsgColl.GetNext <br>
Loop<br>
'<br>
Beep ' tell 'em you're done!<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -