終於解決了從郵件列表得到列表用戶的問題。留個記錄

stdmis

Private Sub lstMailList_Click() <br>Dim strListName As String<br>Dim itmX As ListItem<br>Dim i As Integer<br>strListName = lstMailList.Text<br>i = gMDUser.ListMemberCount(strListName)<br>labListMember.Caption = "MailList Members: " & Str(i)<br>Set gMDList = New MDList<br>gMDList.ListName = strListName<br>Set gMDListMember = New MDListMember<br>ListView1.ListItems.Clear<br>If gMDList.GetFirstMember(gMDListMember) Then<br>Set itmX = ListView1.ListItems.Add(, , gMDListMember.Email)<br>itmX.SubItems(1) = gMDListMember.RealName<br>Do While gMDList.GetNextMember(gMDListMember)<br>Set itmX = ListView1.ListItems.Add(, , gMDListMember.Email)<br>itmX.SubItems(1) = gMDListMember.RealName<br>Loop<br>End If <br>
End Sub

stdmis

基本功能已經寫好了。不過還有很多不完善的地方。<br>
最近半個多月沒時間再寫了。有事要請假回家一段時間。<br>
先生成 一個EXE文件給大家看看，再提點意見。<br>
如果運行提示缺少文件，大家可自行上網找VB6的運行庫安裝即可。<br>
<br>
<a target=_blank href=http://blog.5dmail.net/blog.asp?name=stdmis>http://blog.5dmail.net/blog.asp?name=stdmis</a>

asionliang

什么语言?

stdmis

VB6寫的

asionliang

怎样使用。能不能贴出来。我加精~嘻

stdmis

還沒全部完成。現在要處理寫入磁盤的部分。寫的速度會比較慢。多等等吧！

asionliang

嗯。完成让大家分享下~~ 哈

U-Mail

列表用户可以用数据库处理，速度大大的提高，尤其是列表用户多的时候。