For n = 2 To xlsbook.Sheets.Count
        xlsbook.Sheets(n).Copy
        ActiveWorkbook.SaveAs "D:\test" & "\" & xlsbook.Sheets(n).Name & ".xlsx"
        
        mailadd = xlsbook.Sheets(n).Cells(2, 10)
        
        With objmail
            .To = mailadd                         '目标地址，收件人地址
            .Subject = "test"                          '主题
            .AlternateRecipientAllowed = True              '邮件可以转发
            .DeleteAfterSubmit = True                      '发送后保存副本
            .Body = ""                        '正文
            .Attachments.Add "D:\test" & "\" & xlsbook.Sheets(n).Name & ".xlsx"     '添加附件
            .Send                            '发送邮件
            
        End With
Next n

把excel表中的所有sheet，以附件的形式发送出去
问题一：执行到send的时候，邮件在发件箱中，需要手动点一下发送接收邮件，才能顺利发出去
问题二：为什么只发送sheet2表中内容，其他sheet表不发送
谢谢

把所有的sheet，另存为工作薄，作为附件分别发送出去

[ 本帖最后由 qcc0322 于 2013-3-11 10:36 编辑 ]

发整个工作簿啊

已上传，帮忙看下

....没人啊