📄 ch36.htm
字号:
<hr>
<p>Two short MAPI routines are <tt><font FACE="Courier">MAPIAddrBook</font></tt> and <tt><font
FACE="Courier">MAPIDeleteMsg</font></tt>. These two routines give the user access to the
MAPI address book and delete a selected message, respectively. Add these two subroutines
to your project from Listings 36.4 and 36.5. </p>
<hr>
<blockquote>
<b><p>Listing 36.4. Adding the <tt><font FACE="Courier">MAPIAddrBook</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub MAPIAddrBook()<br>
'<br>
On Error GoTo LocalErr<br>
'<br>
objSession.AddressBook<br>
Exit Sub<br>
'<br>
LocalErr:<br>
MsgBox ErrMsg(Err), vbCritical, "MAPIAddrBook" <br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>The <tt><font FACE="Courier">MAPIDeleteMsg</font></tt> routine will remove a selected
message object from the collection. Add the code from Listing 36.5 to your project. </p>
<hr>
<blockquote>
<b><p>Listing 36.5. Adding the <tt><font FACE="Courier">MAPIDeleteMsg</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub MAPIDeleteMsg(cMsgID As String) <br>
'<br>
' delete selected message<br>
'<br>
On Error GoTo LocalErr<br>
'<br>
Dim iAns As Integer<br>
'<br>
Set objMsg = objSession.GetMessage(cMsgID) <br>
'<br>
iAns = MsgBox(objMsg.Subject, vbExclamation + vbYesNo,
"Delete Talk Mail <font FACE="ZAPFDINGBATS">Â</font>Message")<br>
If iAns = vbYes Then<br>
objMsg.Delete <br>
End If<br>
'<br>
Exit Sub<br>
'<br>
LocalErr:<br>
MsgBox ErrMsg(Err), vbCritical, "MAPIDeleteMsg" <br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>Next you need to add two routines that call the <tt><font FACE="Courier">tmRead</font></tt>
and <tt><font FACE="Courier">tmNew</font></tt> dialog boxes to read or create new
messages. These two routines are almost identical. The only difference is the name of the
form that is launched. Add the <tt><font FACE="Courier">MAPINewMsg</font></tt> subroutine
and enter the code form Listing 36.6. </p>
<hr>
<blockquote>
<b><p>Listing 36.6. Adding the <tt><font FACE="Courier">MAPINewMsg</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub MAPINewMsg()<br>
'<br>
' allow user to compose a message<br>
'<br>
frmTMView.CMDialog1.Filter = "WaveForm File
(*.wav)|*.wav"<br>
frmTMNew.MMControl1.DeviceType = "WaveAudio" <br>
frmTMNew.Show<br>
frmTMView.Hide<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>Note that this routine (and the <tt><font FACE="Courier">MAPIReadMsg</font></tt>
routine) both just hide the main form rather than unloading it. This is necessary because
the project has some values that must be shared between forms. Now add the <tt><font
FACE="Courier">MAPIReadMsg</font></tt> routine shown in Listing 36.7. </p>
<hr>
<blockquote>
<b><p>Listing 36.7. Adding the <tt><font FACE="Courier">MAPIReadMsg</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub MAPIReadMsg(cMsgID As String) <br>
'<br>
' allow user to view a message<br>
'<br>
frmTMView.CMDialog1.Filter = "WaveForm File
(*.wav)|*.wav"<br>
frmTMRead.MMControl1.DeviceType = "WaveAudio" <br>
frmTMRead.Show<br>
frmTMView.Hide<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>The next routine is the largest one in the module. The <tt><font FACE="Courier">MAPISendMsg</font></tt>
routine is the one that builds the MAPI message object and makes sure it is sent off to
the recipient(s). Add the <tt><font FACE="Courier">MAPISendMsg</font></tt> subroutine to
the project and enter the code from Listing 36.8. </p>
<hr>
<blockquote>
<b><p>Listing 36.8. Adding the <tt><font FACE="Courier">MAPISendMsg</font></tt> routine.<br>
<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub MAPISendMsg(objRecipList As Object, cSubject As
String, cBody As String, <font FACE="ZAPFDINGBATS">Â</font>cWavFile As String)<br>
'<br>
' construct a message and send it off <br>
'<br>
On Error GoTo LocalErr<br>
'<br>
Dim x As Integer<br>
'<br>
' build new message<br>
Set objMsg = objOutBox.Messages.Add<br>
objMsg.Type = "IPM.Note.TalkMail" <br>
objMsg.Subject = cSubject<br>
objMsg.Text = " " & cBody <br>
'<br>
' add wav file as attachment<br>
If Len(cWavFile) <> 0 Then<br>
Set objAttach = objMsg.Attachments.Add<br>
objAttach.Name = "Talk Mail.WAV"
'cWavFile<br>
objAttach.position = 0<br>
objAttach.Type = mapiFileData<br>
objAttach.Source = cWavFile<br>
objAttach.ReadFromFile cWavFile<br>
End If<br>
'<br>
' load recipient(s)<br>
If objRecipList Is Nothing Then<br>
MsgBox "No Recipients!"<br>
Else<br>
For x = 1 To objRecipList.Count <br>
Set objRecip =
objMsg.Recipients.Add<br>
objRecip.Name =
objRecipList.Item(x).Name<br>
Next x<br>
End If<br>
'<br>
' send it out quietly<br>
On Error Resume Next<br>
objMsg.Update ' update all the collections <br>
objMsg.Send showdialog:=False<br>
'<br>
' let everyone know<br>
MsgBox "Message Sent", vbInformation, "Talk
Mail"<br>
'<br>
Exit Sub<br>
'<br>
LocalErr:<br>
MsgBox ErrMsg(Err), vbCritical, "MAPISendMsg" <br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>There are four main tasks performed by this routine. First, the message body is
assembled. Note the use of <tt><font FACE="Courier">IPM.Note.TalkMail</font></tt> in the <tt><font
FACE="Courier">Type</font></tt> property. You'll use this value as a search criterion when
you refresh the list of available Talk Mail messages. </p>
<p>Next, the recorded WAV audio file is added to the package as an attachment. There are a
couple of important points to make here. First, it is important that you use
".WAV" as the suffix of the <tt><font FACE="Courier">Name</font></tt> property
of the attachment object. This will make sure you can click the object, and Windows will
call up the audio player automatically. Also, when you are attaching data to the message
(not just linking, but attaching), you need to invoke the <tt><font FACE="Courier">ReadFromFile</font></tt>
method to actually load the selected file into the message package. Unlike the OCX
controls, OLE does not do this for you. </p>
<p>Third, you need to add the recipients from the collection returned by the address book
into the collection for the message. This requires iterating through the source object and
using the results to insert into the message's receipt object. </p>
<p>Lastly, the routine updates all its child objects and quietly sends the MAPI package to
the MAPI spooler for delivery. </p>
<p>There are three general helper functions that need to be added to the <tt><font
FACE="Courier">LibTalkMail</font></tt> module. The first one is the <tt><font
FACE="Courier">FindSubject</font></tt> function. This is used to return a unique MAPI
message ID using the UDT you built at the start of this section. Add the <tt><font
FACE="Courier">FindSubject</font></tt> function and enter the code shown in Listing 36.9. </p>
<hr>
<blockquote>
<b><p>Listing 36.9. Adding the <tt><font FACE="Courier">FindSubject</font></tt> function.<br>
<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Function FindSubject(cSubject As String) As String<br>
'<br>
' takes subject line, returns MsgID<br>
'<br>
Dim x As Integer<br>
Dim cRtn As String<br>
'<br>
cRtn = "" ' start empty<br>
For x = 1 To iMsgCount<br>
If UCase(cSubject) =
UCase(uMsgP(x).Subject) Then<br>
cRtn = uMsgP(x).ID<br>
Exit For<br>
End If<br>
Next x<br>
'<br>
FindSubject = cRtn<br>
'<br>
End Function</font></tt> </p>
</blockquote>
<hr>
<p>Another very valuable helper function is the <tt><font FACE="Courier">GetRecipients</font></tt>
function. This routine accepts a collection of recipients and extracts the display name
into a single string for producing an onscreen list of the message recipients. After
adding the new <tt><font FACE="Courier">GetRecipients</font></tt> function to the project,
enter the code shown in Listing 36.10. </p>
<hr>
<blockquote>
<b><p>Listing 36.10. Adding the new <tt><font FACE="Courier">GetRecipients</font></tt>
function.<br>
<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Function GetRecipients(objRecipColl As Object) As
String<br>
'<br>
' pull qualified recipients from object collection<br>
'<br>
Dim cRtn As String<br>
Dim x As Integer<br>
'<br>
cRtn = ""<br>
'<br>
If objRecipColl Is Nothing Then<br>
GoTo LeaveHere <br>
End If<br>
'<br>
For x = 1 To objRecipColl.Count<br>
Set objRecip = objRecipColl.Item(x)<br>
cRtn = cRtn & objRecip.Name &
";"<br>
Next x<br>
'<br>
If Len(cRtn) > 0 Then<br>
cRtn = Left(cRtn, Len(cRtn) - 1)<br>
End If<br>
'<br>
LeaveHere:<br>
GetRecipients = cRtn<br>
'<br>
End Function</font></tt> </p>
</blockquote>
<hr>
<p>The last helper function you need to add to the <tt><font FACE="Courier">LibTalkMail</font></tt>
module is the <tt><font FACE="Courier">ErrMsg</font></tt> function. This routine uses the
new Visual Basic 4.0 <tt><font FACE="Courier">Err</font></tt> object to build an
informative message concerning the name, type, and originator of the message. Add the code
in Listing 36.11 to your project. </p>
<hr>
<blockquote>
<b><p>Listing 36.11. Add the <tt><font FACE="Courier">ErrMsg</font></tt> function.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Function ErrMsg(ErrObj As Object) As String<br>
'<br>
' return formatted message<br>
'<br>
Dim cMsg As String<br>
'<br>
cMsg = "ErrCode:" & Chr(9) & CStr(ErrObj.Number)
& Chr(13)<br>
cMsg = cMsg & "ErrMsg:" & Chr(9) &
ErrObj.Description & Chr(13)<br>
cMsg = cMsg & "Source:" & Chr(9) &
ErrObj.Source<br>
'<br>
ErrMsg = cMsg<br>
'<br>
End Function</font></tt> </p>
</blockquote>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -