VBA自动发邮件，如何添加附件？

duckchen1

我也想知道，没人解答吗？

719404338

求高手写个完整代码，能插入附件。

商ふ君

可以在添加附件处做个循环就可以添加所有的附件，

1. On Error GoTo SendEmail_Error
   
2.                     With OutlookItem
   
3.                         .To = Receiver '收件人
   
4.                         .Subject = SubjectText '标题
   
5.                         .body = BodyText '内容
   
6.                         'MsgBox BodyText
   
7.                         .CC = CarbonCopy '抄送
   
8.                         '.Display
   
9.                         
   
10.                         Do
    
11.                             Fl = Dir(thisworkboook.Path & "\sendfile")
    
12.                             .Attachments.Add Fl
    
13.                             Fl = Dir
    
14.                         Loop While Fl = ""
    
15.                         .Send
    
16.                     End With

复制代码

tyxvba7529

1.   .Attachments.Add ActiveWorkbook.FullName

复制代码

-z-

dajiahaoxinku12 发表于 2014-4-3 19:26
With MailItem
    .To = "邮件地址"
    .CC = "邮件地址"

    .Attachments.Add ("附件所在本地地址")
这里一定要加括号吗？

-z-

dajiahaoxinku12 发表于 2014-4-3 19:25
MailItem.Attachments.Add ("附件所在本地地址")

如果我引用工作表上的数据     ，这个数据在第五列的单元格内，我的代码可以这些写吗？我这样写了，但却似乎发不出附件，为什么呢？      
.Attachments.Add Cells(rowCount, 5)