转发选中的邮件

dsd999

Sub RecipMail()
  '//选中的邮件全部转发
    On Error Resume Next   
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    Dim myItem As Outlook.MailItem
    Dim myForwardItem As Outlook.MailItem
    Dim x As Integer
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection

    For x = 1 To myOlSel.Count
        If (myOlSel.Item(x).Class = 43) Then
        Set myItem = myOlSel.Item(x)
        Set myForwardItem = myItem.Forward
        myForwardItem.Recipients.Add "34122840@qq.com"
        myForwardItem.Send
        End If
    Next x

End Sub

闻启学

多谢分享

有个不明解  为啥这样不行的

  For Each myForwardItem In myOlExp.Selection
'        If myForwardItem.Class = olMail Then
'
'            Set myForwardItem = myItem.Forward
'            myForwardItem.Recipients.Add "lyhschool@163.com"
'            myForwardItem.Send
'
'        End If
'
'    Next

Ashley1102

你好 楼主  最近用outlook碰到一个转发带附件的困扰，正好在网上看到你的办法，很是感动 尽然有人已经在解决的这个问题。 你能发这2个安装包发给我吗? 非常感谢
1）        vstor.exe
2）        O2003PIA.MSI