📄 ch9.htm
字号:
<b><p>Listing 9.10. Adding the <tt><font FACE="Courier">SubEdit</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub SubEdit()<br>
'<br>
Dim lReturn As Long<br>
Dim cEditor As String<br>
Dim cFile As String<br>
'<br>
ControlsLoad<br>
If bErr <> True Then<br>
cFile =
ControlSetting("ListSubs") <br>
cEditor =
ControlSetting("Editor") <br>
Status "Loading Subscriber List
[" & cFile & "]..."<br>
lReturn = Shell(cEditor & "
" & cFile, 1)<br>
Status "Closing Subscriber
List..."<br>
End If<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>Normally you will not need to pre-build the subscriber file. It will be created as you
add new subscribers to your mailing list via e-mail requests. However, for testing
purposes, open up Notepad and enter the values shown in Listing 9.11. When you are done,
save the file as <tt><font FACE="Courier">MLMSUBS.TXT</font></tt> in the same folder as
the Visual Basic project. </p>
<hr>
<blockquote>
<b><p>Listing 9.11. Creating the test <tt><font FACE="Courier">MLMSUBS.TXT</font></tt>
file.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>; ==================================================== <br>
; Mailing List Subscriber File<br>
; ====================================================<br>
;<br>
; Read by MLM.EXE<br>
;<br>
; format:name^address^transport<br>
;<br>
; where:name = display name<br>
; address = e-mail address <br>
; transport = MAPI transport<br>
;<br>
; example:Mike Amundsen^mamund@iac.net^SMTP <br>
;<br>
; ====================================================<br>
;<br>
Michael C. Amundsen^mamund@iac.net^SMTP<br>
Mike Amundsen^102461,1267^COMPUSERVE</font></tt> </p>
</blockquote>
<hr>
<p>The addresses in the file may not be valid e-mail addresses on your system, but they
illustrate the format of the file. Each address entry has three parts:
<ul>
<li><i>Name</i>-This is the display name that appears in address books. </li>
<li><i>Address</i>-This is the full e-mail address of the recipient. </li>
<li><i>Type</i>-This is the transport type code. </li>
</ul>
<p>As users request to be on your mailing list, their mailing information is added to this
file. Later in the chapter, you'll add yourself to this list by sending yourself an e-mail
request. </p>
<p>The next control file needed for the MLM application is the schedule file. This control
file contains information on the display name, complete filename, and scheduled delivery
date of messages to be sent by MLM. Create a new routine called <tt><font FACE="Courier">SkedEdit</font></tt>,
and add the code in Listing 9.12. </p>
<hr>
<blockquote>
<b><p>Listing 9.12. Adding the <tt><font FACE="Courier">SkedEdit</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub SkedEdit()<br>
'<br>
Dim rtn As Long<br>
Dim cFile As String<br>
Dim cEditor As String<br>
'<br>
ControlsLoad<br>
If bErr <> True Then<br>
cFile =
ControlSetting("ListSchedule") <br>
cEditor =
ControlSetting("Editor") <br>
Status "Opening Schedule ["
& cFile & "]..."<br>
rtn = Shell(cEditor & " "
& cFile, 1)<br>
Status "Closing Schdule..."<br>
End If<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>You'll need to create a default schedule file for this project. Listing 9.13 shows the
schedule file format. Use <tt><font FACE="Courier">NOTEPAD.EXE</font></tt> to build this
file and save it in the project directory as <tt><font FACE="Courier">MLMSKED.TXT</font></tt>.
</p>
<hr>
<blockquote>
<b><p>Listing 9.13. Building the <tt><font FACE="Courier">MLMSKED.TXT</font></tt> file.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>; ================================================== <br>
; Mailing List Schedule file<br>
; ==================================================<br>
;<br>
; read by MLM.EXE<br>
;<br>
; format: YYMMDD,uafn,title<br>
;<br>
; where: YYMMDD = Year, Month, Day <br>
; uafn = unambiguous file name<br>
; title = descriptive title<br>
;<br>
; example: 960225,MLMFAQ.txt,MLM FAQ Document <br>
;<br>
; ==================================================<br>
<br>
960225,mlmhello.txt,Hello and Welcome to MLM!<br>
960226,mlmbye.txt,Goodbye - We'll Miss You!</font></tt> </p>
</blockquote>
<hr>
<p>You can see from the sample file that there are three control values for each entry:
<ul>
<li><i>YYMMDD</i>-The year, month, and day that the message should be sent. </li>
<li><i>UAFN</i>-An unambiguous filename. The contents of this text file will be placed in
the body of the message to be sent. </li>
<li><i>Title</i>-This is the title of the message. This value will be placed on the subject
line of the message that is sent. </li>
</ul>
<p>As you build your mailing list message base, you can add lines to this control file. </p>
<p>The last edit routine to add to the project is the one used to edit the archive list.
Add a new subroutine called <tt><font FACE="Courier">ArchEdit</font></tt> to the project,
and enter the code shown in Listing 9.14. </p>
<hr>
<blockquote>
<b><p>Listing 9.14. Adding the <tt><font FACE="Courier">ArchEdit</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub ArchEdit()<br>
'<br>
Dim rtn As Long<br>
Dim cEditor As String<br>
Dim cArchFile As String<br>
'<br>
ControlsLoad<br>
If bErr <> True Then<br>
cEditor =
ControlSetting("Editor") <br>
cArchFile =
ControlSetting("ArchiveFile") <br>
'<br>
Status "Opening Archive File ["
& cArchFile & "]..."<br>
rtn = Shell(cEditor & " "
& cArchFile, 1)<br>
Status "Closing Archive File..."<br>
End If<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>Again, you'll need to create an initial archive listing file before you first run your
project. Use <tt><font FACE="Courier">NOTEPAD.EXE</font></tt> to build a file called <tt><font
FACE="Courier">MLMARch.TXT</font></tt> and enter the data shown in Listing 9.15. Save this
file in the project directory. </p>
<hr>
<blockquote>
<b><p>Listing 9.15. Creating the <tt><font FACE="Courier">MLMARch.TXT</font></tt> file.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>; ================================================== <br>
; Mailing List Archive File<br>
; ==================================================<br>
;<br>
; read by MLM.EXE<br>
;<br>
; format: YYMMDD,uafn,title<br>
;<br>
; where: YYMMDD = Year, Month, Day<br>
; uafn =
unambiguous file name<br>
; title =
descriptive name<br>
;<br>
; example: 960225,MLMFAQ.txt,MLM FAQ Document <br>
;<br>
; ==================================================<br>
<br>
960225,mlmhello.txt,Hello and Welcome to MLM!<br>
960226,mlmbye.txt,Goodbye - We'll Miss You!</font></tt> </p>
</blockquote>
<hr>
<p>This file format is identical to the one used in the <tt><font FACE="Courier">MLMSKED.TXT</font></tt>
file. The contents of this file can be requested by subscribers when they want to retrieve
an old message in the database. By passing a <tt><font FACE="Courier">GET YYMMDD</font></tt>
line in the message subject, subscribers can get a copy of the archive file sent to them
automatically. </p>
<p>This is the last of the edit routines for the project. Be sure to save this project
before you continue. </p>
<h3><b><a NAME="CodingtheMAPIStartandMAPIEndroutine">Coding the <tt><font SIZE="4"
FACE="Courier">MAPIStart</font></tt><font SIZE="4"> and </font><tt><font SIZE="4"
FACE="Courier">MAPIEnd</font></tt><font SIZE="4"> routines</font></a></b></h3>
<p>Before you can start processing messages, you need to build the routines that will
start and end your MAPI sessions. Add a new subroutine called <tt><font FACE="Courier">MAPIStart</font></tt>
to the project, and enter the code that appears in Listing 9.16. </p>
<hr>
<blockquote>
<b><p>Listing 9.16. Adding the <tt><font FACE="Courier">MAPIStart</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub MAPIStart()<br>
'<br>
On Error GoTo MAPIStartErr<br>
'<br>
Dim cProfile As String<br>
Dim cPassword As String<br>
Status "Starting MAPI Session..." <br>
'<br>
Set objMAPISession = CreateObject("MAPI.Session") <br>
cProfile = ControlSetting("MAPIUserName") <br>
cPassword = ControlSetting("MAPIPassword") <br>
objMAPISession.Logon profilename:=cProfile,
profilePassword:=cPassword<br>
Exit Sub<br>
'<br>
MAPIStartErr:<br>
MsgBox "Unable to Start a MAPI Session", vbCritical,
"MAPIStart Error"<br>
bErr = True<br>
'<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>Note the use of the OLE Messaging Library as the means of access into the MAPI system.
Now add the <tt><font FACE="Courier">MAPIEnd</font></tt> subroutine to your project and
enter the code from Listing 9.17. </p>
<hr>
<blockquote>
<b><p>Listing 9.17. Adding the <tt><font FACE="Courier">MAPIEnd</font></tt> routine.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Sub MAPIEnd()<br>
On Error Resume Next<br>
Status "Closing MAPI Session..." <br>
objMAPISession.Logoff<br>
End Sub</font></tt> </p>
</blockquote>
<hr>
<p>These two routines are the start and end of the <tt><font FACE="Courier">ReadMail</font></tt>
and <tt><font FACE="Courier">SendMail</font></tt> routines you'll add in the next two
sections. </p>
<h3><b><a NAME="CodingtheSendMailRoutines">Coding the <tt><font SIZE="4" FACE="Courier">SendMail</font></tt><font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -