邮件群发 共用正文.doc问题

hyjianjian

各位好：
            如何让全部收件人正文 调用当前文件夹“邮件正文.doc”里面的内容！

1. Sub sendemail()
   
2. 
   
3.     Dim myOlApp As Object
   
4.     Dim myitem As Object
   
5.     Dim i As Integer, j As Integer
   
6.     Dim strg As String
   
7.     Dim atts As Object
   
8.     Dim mycc As Object
   
9.     Dim myfile As String
   
10. 
    
11.     Set myOlApp = CreateObject("Outlook.Application")
    
12.    
    
13.     With Sheets("Sheet1")
    
14.         i = 2
    
15. 
    
16.         Do While .Cells(i, 2) <> ""
    
17.             Set myitem = myOlApp.CreateItem(0)
    
18.            Set atts = myitem.Attachments
    
19.             myitem.To = .Cells(i, 2)              'TO 收件人E-mail
    
20.             myitem.cc = .Cells(i, 3)              'CC
    
21.             myitem.Subject = .Cells(i, 4)         '标题
    
22.             myitem.Body = .Cells(i, 5) & "，你好！" & vbNewLine & vbNewLine & vbNewLine & .Cells(i, 6)   '正文
    
23.             myfile = Dir(ThisWorkbook.Path & "\附件分发\*" & .Cells(i, 1) & "*.*")
    
24.             Do Until myfile = ""
    
25.                 myitem.Attachments.Add ThisWorkbook.Path & "\附件分发" & myfile, 1
    
26.                 myfile = Dir
    
27.             Loop
    
28.             myitem.display '预览，如果想直接发送，把.display改为.send
    
29. 
    
30.             i = i + 1
    
31.             strg = ""
    
32.         Loop
    
33.     End With
    
34.     Set myitem = Nothing
    
35. End Sub
    

复制代码

闻启学

邮件批量发送
http://club.excelhome.net/thread-781973-1-1.html
(出处: ExcelHome技术论坛)


参考这个帖子

hyjianjian

闻启学 发表于 2015-8-22 13:11
邮件批量发送
http://club.excelhome.net/thread-781973-1-1.html
(出处: ExcelHome技术论坛)

您能帮我直接写进去吗？ 不懂邮件的vba   现在只需要修改下 正文  即可！ 麻烦你了！ 怎么设置 每封邮件为重要标识  和 打开邮件回执呢？