vb 在局域网内做邮件群发，怎么做呀，帮帮忙

Question

我现在只要做完这个就可以交上去了，
就是在局域网内做邮件群发，用什么做呢，用JMAIL,还是用MAPI，还是用WINSORK，
谁做过吗，发个源代码给我，可以吗
我真的很感谢，我给多点分了

Answer 1

随便你用什么咯
jmail代码：
Private Sub cmdCommand1_Click()
    objectname = "你好吗"
    bodycontent ="呵呵" 
    SendMail objectname, bodycontent, "附件文件哦，自己填"
    MsgBox "OK"
    
End SubSub SendMail(Optional ByVal sSubject As String, _
             Optional ByVal sBody As String, _
             Optional ByVal sFileName As String)    Dim Jmail
    Set Jmail = CreateObject("jmail.Message")
    If sFileName <> "" Then Jmail.AddAttachment sFileName             '附件    Jmail.Charset = "gb2312"
    Jmail.ContentType = "text/html"
    Jmail.Silent = False
    Jmail.Priority = 1  '邮件状态,1-5 1为最高
    Jmail.MailServerUserName = "[email protected]"        'Email帐号
    Jmail.MailServerPassWord = "123"          'Email密码
    
    Jmail.FromName = "邮件"            '发信人姓名
    Jmail.From = "[email protected]"     '发邮件地址地址    Jmail.Subject = sSubject                  '主题
    Jmail.AddRecipient "[email protected]"        '收信人地址
    Jmail.Body = sBody                      '信件正文    Jmail.Send ("192.168.0.124")      'SMTP服务器，如smtp.sohu.com    Set Jmail = Nothing
End Sub

Answer 2

Winsock源码下载
http://sansanmao.blog.hexun.com/4866510_d.html#comment

Answer 3

Jmail和MAPI下载地址：
http://free5.ys168.com/?hot1kang1