收到邮件后自动转发

zhuying0511

公司使用Outlook2010，因IT设置，规则转发仅限于内部邮箱。想利用vba或其他实现新邮件到达后自动转发到个人邮箱，在网上找了几串代码使用时发生混乱，求大神帮个忙，感恩。

zhuying0511

自己对照着帮助文件摸索着写了一段，总算实现了，
分享给有同样需求的小伙伴。

1. Sub tst()
   
2. Dim t
   
3. t = DateAdd("s", 10, Now)
   
4. Do Until Now > t
   
5. DoEvents
   
6. Loop
   
7. End Sub

复制代码

1. Private Sub Application_NewMail()
   
2. Dim myItem As Outlook.MailItem
   
3.     Dim myRecipient As Outlook.Recipient
   
4.     Call tst
   
5.     Set myItem = Application.CreateItem(olMailItem)
   
6.     Set myRecipient = myItem.Recipients.Add("zhuying0511@126.com")
   
7.     myItem.Subject = "office mail" & "-" & Date & " " & Time
   
8.     Application.ActiveExplorer.SelectAllItems
   
9.     myItem.Attachments.Add Application.ActiveExplorer.Selection.Item(1)
   
10.     myItem.Send
    
11. End Sub

复制代码

sal75300

晕，直接发送的啊，我复制了直接发邮件到你邮箱了。。。

tearsky621

新式木马，哈哈