📄 ch9.htm
字号:
SIZE="4"> Routines</font></a></b></h3>
<p>The next set of routines will check the schedule control file for the message of the
day and automatically format and send messages to all subscribers on the mailing list.
This is handled with three routines. The first is the high-level routine that is called
from the command button routine. The other two routines handle the details of reading the
schedule file, reading the subscriber file, and composing and sending the messages. </p>
<p>Create a new routine called <tt><font FACE="Courier">SendMail</font></tt> and add the
code shown in Listing 9.18. </p>
<hr>
<blockquote>
<b><p>Listing 9.18. Adding the <tt><font FACE="Courier">SendMail</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub SendMail()<br>
'<br>
' read mail<br>
'<br>
Status ""<br>
ControlsLoad<br>
MAPIStart<br>
ProcessSubList<br>
MAPIEnd<br>
Status "Outbound processing complete." <br>
MsgBox "Outbound processing complete", vbInformation,
"SendMail"<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>The <tt><font FACE="Courier">SendMail</font></tt> routine first clears the status box
and loads the master control file. Then the <tt><font FACE="Courier">MAPIStart</font></tt>
routine is called. Once the MAPI session is established, the routine calls <tt><font
FACE="Courier">ProcessSubList</font></tt> to handle all processing of the subscriber list.
After the list is processed, the <tt><font FACE="Courier">MAPIEnd</font></tt> routine is
called and the status box is updated along with message to the user announcing the
completion of the processing. </p>
<p>Next add the <tt><font FACE="Courier">ProcessSubList</font></tt> subroutine, and enter
the code shown in Listing 9.19. </p>
<hr>
<blockquote>
<b><p>Listing 9.19. Adding the <tt><font FACE="Courier">ProcessSubList</font></tt>
routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub ProcessSubList()<br>
'<br>
' read sublist to send messages<br>
'<br>
Dim cErr As String<br>
'<br>
If bErr <> 0 Then<br>
Exit Sub<br>
Else<br>
bErr = False<br>
End If<br>
'<br>
Dim cSubList As String<br>
Dim nSubList As Integer<br>
Dim cListSked As String<br>
Dim nListSked As Integer<br>
Dim cSkedFile As String<br>
Dim cFileDate As String<br>
Dim cFileName As String<br>
Dim cFileTitle As String<br>
Dim cLine As String<br>
Dim nPos1 As Integer<br>
Dim nPos2 As Integer<br>
'<br>
cSubList = ControlSetting("ListSubs") <br>
cListSked = ControlSetting("ListSchedule") <br>
cSkedFile = Format(Now, "YYMMDD") <br>
'<br>
Status "Opening Schedule File [" & cListSked &
"]..."<br>
nListSked = FreeFile<br>
Open cListSked For Input As nListSked <br>
'<br>
On Error Resume Next<br>
Do While Not EOF(nListSked)<br>
Line Input #nListSked, cLine<br>
nPos1 = InStr(cLine, ",")<br>
If nPos1 <> 0 Then<br>
cFileDate =
Left(cLine, nPos1 - 1)<br>
End If<br>
nPos2 = InStr(nPos1 + 1, cLine,
",")<br>
If nPos2 <> 0 Then<br>
cFileName =
Mid(cLine, nPos1 + 1, nPos2 - (nPos1 + 1))<br>
End If<br>
If nPos2 + 1 < Len(cLine) Then<br>
cFileTitle =
Mid(cLine, nPos2 + 1, 255)<br>
Else<br>
cFileTitle =
cFileName<br>
End If<br>
If cFileDate = cSkedFile Then<br>
Exit Do<br>
End If<br>
Loop<br>
Close nListSked<br>
'<br>
Status "Opening Subscriber List [" & cSubList &
"]..."<br>
nSubList = FreeFile<br>
Listing 9.19. continued<br>
Open cSubList For Input As nSubList<br>
'<br>
Do While Not EOF(nSubList)<br>
Line Input #nSubList, cLine<br>
If Left(cLine, 1) <> ";"
Then<br>
ProcessSubListMsg
cLine, cFileName, cFileTitle<br>
End If<br>
Loop<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>The main job of the <tt><font FACE="Courier">ProcessSubList</font></tt> routine is to
open the schedule file, and see if there is a message to send for today's date. If one is
found, the routine opens the subscriber control file and calls the <tt><font
FACE="Courier">ProcessSubListMsg</font></tt> routine to compose and send the message. </p>
<p>Finally, add the <tt><font FACE="Courier">ProcessSubListMsg</font></tt> routine and
enter the code that appears in Listing 9.20. </p>
<hr>
<blockquote>
<b><p>Listing 9.20. Adding the <tt><font FACE="Courier">ProcessSubListMsg</font></tt>
routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub ProcessSubListMsg(cListAddr As String, cFile As
String, cTitle As <font FACE="ZAPFDINGBATS">Â</font>String)<br>
'<br>
' send out message<br>
'<br>
Dim nFile As Integer<br>
Dim cLine As String<br>
Dim cMsgBody As String<br>
Dim cType As String<br>
Dim cAddr As String<br>
Dim cName As String<br>
Dim objMsg As Object<br>
Dim objRecip As Object<br>
Dim nPos1 As Integer<br>
Dim nPos2 As Integer<br>
'<br>
' parse address line<br>
nPos1 = InStr(cListAddr, "^") <br>
If nPos1 <> 0 Then<br>
cName = Left(cListAddr, nPos1 - 1)<br>
Else<br>
Exit Sub<br>
End If<br>
'<br>
nPos2 = InStr(nPos1 + 1, cListAddr, "^") <br>
If nPos2 <> 0 Then<br>
cAddr = Mid(cListAddr, nPos1 + 1, nPos2 -
(nPos1 + 1))<br>
Else<br>
Exit Sub<br>
End If<br>
'<br>
cType = Mid(cListAddr, nPos2 + 1, 255) <br>
'<br>
' now create message<br>
Status "Sending Msg to " & cName &
"..."<br>
'<br>
' get message text<br>
nFile = FreeFile<br>
'<br>
Open cFile For Input As nFile<br>
While Not EOF(nFile)<br>
Line Input #nFile, cLine<br>
cMsgBody = cMsgBody & EOL & cLine<br>
Wend<br>
Close #nFile<br>
'<br>
' now build a new message<br>
Set objMsg = objMAPISession.Outbox.Messages.Add <br>
objMsg.subject = ControlSetting("ListName") & "
[" & cTitle & "]"<br>
objMsg.Text = cMsgBody<br>
' create the recipient<br>
Set objRecip = objMsg.Recipients.Add<br>
If cType = "MS" Then<br>
objRecip.Name = cName ' handle local users<br>
objRecip.Type = mapiTo<br>
objRecip.Resolve <br>
Else<br>
objRecip.Name = cType & ":"
& cAddr<br>
objRecip.address = cType &
":" & cAddr<br>
objRecip.Type = mapiTo<br>
End If<br>
' send the message<br>
objMsg.Update<br>
objMsg.Send showDialog:=False<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>The most important part of the <tt><font FACE="Courier">ProcessSubListMsg</font></tt>
routine is the last section of code that composes and addresses the message. There are two
main processes in this part of the routine. The first process is the creation of a new <tt><font
FACE="Courier">Message</font></tt> object: </p>
<blockquote>
<tt><font FACE="Courier"><p> ' now build a new message <br>
Set objMsg = objMAPISession.Outbox.Messages.Add <br>
objMsg.subject = ControlSetting("ListName") & "
[" & cTitle & "]"<br>
objMsg.Text = cMsgBody</font></tt> </p>
</blockquote>
<p>The second process is the creation of a new <tt><font FACE="Courier">Recipient</font></tt>
object and the addressing of the message: </p>
<blockquote>
<tt><font FACE="Courier"><p>' create the recipient<br>
Set objRecip = objMsg.Recipients.Add<br>
If cType = "MS" Then<br>
objRecip.Name = cName ' handle local users<br>
objRecip.Type = mapiTo<br>
objRecip.Resolve <br>
Else<br>
objRecip.Name = cType & ":"
& cAddr<br>
objRecip.address = cType &
":" & cAddr<br>
objRecip.Type = mapiTo<br>
End If</font></tt> </p>
</blockquote>
<p>Notice that addressing is handled a bit differently for <tt><font FACE="Courier">MS</font></tt>-type
messages. Messages with the address type of <tt><font FACE="Courier">MS</font></tt> are
addresses within the Microsoft addressing scheme-they're local addresses. To handle these
items, you only need to load the <tt><font FACE="Courier">Name</font></tt> property, set
the recipient type (<tt><font FACE="Courier">To:</font></tt>), and then call the MAPI <tt><font
FACE="Courier">Resolve</font></tt> method to force MAPI to look up the name in the address
book(s). When the name is found, MAPI loads the <tt><font FACE="Courier">Address</font></tt>
property with the complete transport and e-mail address for routing. This is how most MAPI
messages are usually sent. </p>
<p>However, for messages of type other than <tt><font FACE="Courier">MS</font></tt>, it is
likely that they are not in the locally available address books. These messages can still
be sent if you load the <tt><font FACE="Courier">Address</font></tt> property of the
message with both the transport type and the user's e-mail address. This is the way to
handle processing for messages that were sent to you from someone who is not in your
address book. This is known as <i>one-off addressing</i>. One-off addressing ignores the <tt><font
FACE="Courier">Name</font></tt> property and uses the <tt><font FACE="Courier">Address</font></tt>
property to route the message. </p>
<p>That is all the code you need to send out daily messages to your subscriber list. The
next set of routines will allow your application to scan incoming messages for mailing
list-related items and process them as requested. </p>
<div align="center"><center>
<table BORDERCOLOR="#000000" BORDER="1" WIDTH="80%">
<tr>
<td><b>Tip</b></td>
</tr>
<tr>
<td><blockquote>
<p>It is a good idea to save your project as you go along. The next set of routines are a
bit longer and you may want to take a break before continuing.</p>
</blockquote>
</td>
</tr>
</table>
</center></div>
<h3><b><a NAME="CodingtheInboxRoutines">Coding the <tt><font SIZE="4" FACE="Courier">Inbox</font></tt><font
SIZE="4"> Routines</font></a></b></h3>
<p>The next set of routines handles the process of scanning the subject line of incoming
messages for mailing-list commands. These commands are then processed and subscribers are
added or dropped from the list and archive items are sent to subscribers as requested. </p>
<p>The <tt><font FACE="Courier">Inbox</font></tt> processing can recognize four different
commands on the subject line. These commands are:
<ul>
<li><tt><font FACE="Courier">SUB</font></tt>-When this command appears in the subject line
of a message, the sender's name and address are added to the subscriber control file. </li>
<li><tt><font FACE="Courier">UNSUB</font></tt>-When this command appears in the subject line
of a message, the sender's name and address are removed from the subscriber control file. </li>
<li><tt><font ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -