stdmis 发表于 2005-9-22 15:47:24

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

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 发表于 2005-9-23 16:36:49

re:基本功能已經寫好了。不過還有很多不完善的...

基本功能已經寫好了。不過還有很多不完善的地方。<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 发表于 2005-9-22 15:52:17

re:什么语言?

什么语言?

stdmis 发表于 2005-9-22 15:56:22

re:VB6寫的

VB6寫的

asionliang 发表于 2005-9-22 15:57:40

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

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

stdmis 发表于 2005-9-22 18:55:08

re:還沒全部完成。現在要處理寫入磁盤的部分。...

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

asionliang 发表于 2005-9-23 13:37:05

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

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

U-Mail 发表于 2005-9-25 14:30:40

re:列表用户可以用数据库处理，速度大大的提高...

列表用户可以用数据库处理，速度大大的提高，尤其是列表用户多的时候。
页: [1]
查看完整版本: 終於解決了從郵件列表得到列表用戶的問題。留個記錄