邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: 終於解決了從郵件列表得到列表用戶的問題。留個記錄 [打印本页]

作者: stdmis 时间: 2005-9-22 15:47
标题: 終於解決了從郵件列表得到列表用戶的問題。留個記錄
Private Sub lstMailList_Click() Dim strListName As String Dim itmX As ListItem Dim i As Integer strListName = lstMailList.Text i = gMDUser.ListMemberCount(strListName) labListMember.Caption = "MailList Members: " & Str(i) Set gMDList = New MDList gMDList.ListName = strListName Set gMDListMember = New MDListMember ListView1.ListItems.Clear If gMDList.GetFirstMember(gMDListMember) Then Set itmX = ListView1.ListItems.Add(, , gMDListMember.Email) itmX.SubItems(1) = gMDListMember.RealName Do While gMDList.GetNextMember(gMDListMember) Set itmX = ListView1.ListItems.Add(, , gMDListMember.Email) itmX.SubItems(1) = gMDListMember.RealName Loop End If 
End Sub

作者: asionliang 时间: 2005-9-22 15:52
标题: re:什么语言?
什么语言?

作者: stdmis 时间: 2005-9-22 15:56
标题: re:VB6寫的
VB6寫的

作者: asionliang 时间: 2005-9-22 15:57
标题: re:怎样使用。能不能贴出来。我加精~嘻
怎样使用。能不能贴出来。我加精~嘻

作者: stdmis 时间: 2005-9-22 18:55
标题: re:還沒全部完成。現在要處理寫入磁盤的部分。...
還沒全部完成。現在要處理寫入磁盤的部分。寫的速度會比較慢。多等等吧！

作者: asionliang 时间: 2005-9-23 13:37
标题: re:嗯。完成让大家分享下~~ 哈
嗯。完成让大家分享下~~ 哈

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

作者: U-Mail 时间: 2005-9-25 14:30
标题: re:列表用户可以用数据库处理，速度大大的提高...
列表用户可以用数据库处理，速度大大的提高，尤其是列表用户多的时候。

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.net/)