excel 如何发自动送邮件和附件

youxiid

百度过的.是些代码.琢磨很久了 不知道用


http://club.excelhome.net/viewthread.php?tid=398850&extra=&page=2
这个帖子说的也看不懂..

Private Sub CommandButton1_Click()
Dim objOL As Object
Dim itmNewMail As Object
Dim i
i = 3
Do While Cells(i, 3) <> ""
    Set objOL = CreateObject("Outlook.Application")
    Set itmNewMail = objOL.CreateItem(olMailItem)
    With itmNewMail
        .Subject = Cells(i, 4)
        .Body = Cells(i, 3)
        .to = Cells(i, 2)
        .Attachments.Add "R:\1.txt "
        .Display
        .Send
    End With
    On Error GoTo continue
continue:
    On Error GoTo 0
    Set itmNewMail = Nothing
    Set objOL = Nothing
    i = i + 1
Loop
End Sub
加重装office

这个代码是不是 execel 菜单  工具→ 宏→visual basic 编辑器里 然后在模块里贴上这些代码


在然后呢..怎么用啊.

[ 本帖最后由 youxiid 于 2010-2-25 17:03 编辑 ]

ITD

EXCEL里面不是有一个发送邮件的按钮吗？

rmb_518

上面的还达不到你的要求。最好就是把内容生成附件，进行整个发送。