关于群发邮件设置邮件权限的问题

xuhf0528

用VBA写了一段代码， 可以群发邮件，但是邮件需要设置权限，不知道代码怎么写，请问有高手帮忙解决吗？
如：如何通过VBA代码设置“不可转发”

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, 5) '收件人E-mail
    
20. myitem.cc = .Cells(i, 7)
    
21. myitem.subject = .Cells(i, 6) '标题
    
22. myitem.Body = " 薪金调整通知书" & vbNewLine & .Cells(i, 4) & "，好：" & vbNewLine & "结合2015年度公司整体业绩及个人绩效表现，自2015年10月1日起，您的岗位工资由原来的" & .Cells(i, 1) & "元调整为新的岗位工资:" & .Cells(i, 2) & "元，调整后工资总额：" & .Cells(i, 3) & "元，将在1月初发放12月工资时体现，并会对10月、11月的调薪差额进行补发放。特此通知！" & vbNewLine & "公司实行薪酬政策公开、个人薪资信息保密的原则，还望遵守。" & vbNewLine & "感谢辛勤付出，期待更精彩的业绩表现！" '正文
    
23. myitem.display '预览，如果想直接发送，把.display改为.send
    
24. 
    
25. i = i + 1
    
26. strg = ""
    
27. Loop
    
28. End With
    
29. Set myitem = Nothing
    
30. End Sub
    
31. 
    

复制代码

xuhf0528

没人回答吗？

xuhf0528

期待高手能帮忙解决，不胜感激。。。