邮件分发，求大神查下代码，看有哪些错误

wfansp

工作中需要给不同的分公司发送不同的对账单，所有的对账单都在一个表中，论坛上找了段代码，可是好像不太成功，求大神帮忙检查代码并修改

环境：win10+office（2016 or 2007）

wfansp

真是着急用，有朋友给解决一下吗？

wfansp

在线等啊，捉急，谢谢

wfansp

求教各位了！！！！

小花鹿

这个要分两步走，第一步是拆分工作薄，第二步是发送邮件，拆分工作薄搜索一下，有很多代码，发送邮件，信息不全，没有主题和正文
我学习过群发邮件，用的是JMAIL，最好是用163发，用QQ可能出问题

wfansp

小花鹿 发表于 2017-2-20 14:13
这个要分两步走，第一步是拆分工作薄，第二步是发送邮件，拆分工作薄搜索一下，有很多代码，发送邮件，信息 ...

那求教一下JMAIL有关的方法？谢谢，最好给上链接，或者发我个附件试试

小花鹿

wfansp 发表于 2017-2-20 14:35
那求教一下JMAIL有关的方法？谢谢，最好给上链接，或者发我个附件试试

给你段代码，自己修改一下，应该能用：
Private Sub Test()
    Dim Smail, Pword, Tmail, zhuti, zhengwen, fujian
    Shell "regsvr32 /s " & ThisWorkbook.Path & "\Jmail.dll"
    SendMail Smail, Pword, Tmail, zhuti, zhengwen, fujian
End Sub
Sub SendMail(username, password, SendTo, ByVal sSubject As String, ByVal sBody As String, ByVal sFileName As String)
    Dim email
    Set email = CreateObject("jmail.Message")
    email.Charset = "gb2312"
    email.Silent = False
    email.Priority = 1
    email.MailServerUserName = username
    email.MailServerPassWord = password
    email.FromName = username
    email.From = username
    email.Subject = sSubject
    email.AddRecipient SendTo
    email.body = sBody
    If sFileName <> "" Then email.AddAttachment sFileName
    email.send ("smtp.163.com")
    email.Close
    Set email = Nothing
End Sub