how to forward 6000 mails with VBA in OUTLOOK??

  • Thread starter Thread starter Dong Gaofeng
  • Start date Start date
D

Dong Gaofeng

dear all,

inbox
|--mailbox_A
|--mailbox_B
|--mailbox_C

how can I use VBA to forward all mails in mailbox_C to another email??

thank you~
 
Here's a macro that's folder independant. Just select the messages that you
want to forward and run it:

Sub ForwardSelectedMessages()
On Error Resume Next

Dim objItem As Object
Dim objForward As Outlook.MailItem

For Each objItem In ActiveExplorer.Selection
If objItem.Class = olmail Then
Set objForward = objItem.Forward
objForward.To = "(e-mail address removed)"
objForward.Send
Set objItem = Nothing
Set objForward = Nothing
End If
Next

Set objItem = Nothing
Set objForward = Nothing
End Sub
 
Back
Top