（分享）转发邮件

tyxvba7529

转发邮件， 并在 原邮件基础上增加文字， 再发出。

1. Sub 转发邮件()
   
2.    '//选中的邮件全部转发
   
3.     'On Error Resume Next
   
4.      Dim myOlApp As New Outlook.Application
   
5.      Dim myOlExp As Outlook.Explorer
   
6.      Dim myOlSel As Outlook.Selection
   
7.      Dim myItem As Outlook.MailItem
   
8.      Dim myForwardItem As Outlook.MailItem
   
9.      Dim x As Integer
   
10.      Set myOlExp = myOlApp.ActiveExplorer
    
11.      Set myOlSel = myOlExp.Selection
    
12. 
    
13.      For x = 1 To myOlSel.Count
    
14.          If (myOlSel.Item(x).Class = 43) Then
    
15.          Set myItem = myOlSel.Item(x)
    
16.          Set myForwardItem = myItem.Forward
    
17.             With myForwardItem
    
18.                .Recipients.Add "123456789@qq.com"
    
19.                .CC = "111111111@qq.com"
    
20.                 .HTMLBody = "<Font Face=微软雅黑 size=3>" & "Dear  xxx,<BR><BR>Replied, Please go on.<BR>" & _
    
21.                                       .HTMLBody
    
22.                .Display
    
23.             End With
    
24.          End If
    
25.      Next x
    
26. 
    
27. End Sub
    

复制代码