E
erostore
hi!
i have more time problem, as cant write a code in my outlook vba that
work finely so will.
i have a code, thats delete the orginal email and sent a new mail fo
me, and on my defined address.
i would like a code, thats work fine same as manual forward to
address in my addressbook. the blue arrow at right side and below th
email in folder input.
please help me!
here is my code - work not properly:
Code
-------------------
Sub ForwardItems()
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim objMailItem As MailItem
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
For Each objMailItem In myOlSel
With objMailItem
.Forward
.Recipients.Add "(e-mail address removed)"
.Send
End With
Next
End Su
i have more time problem, as cant write a code in my outlook vba that
work finely so will.
i have a code, thats delete the orginal email and sent a new mail fo
me, and on my defined address.
i would like a code, thats work fine same as manual forward to
address in my addressbook. the blue arrow at right side and below th
email in folder input.
please help me!
here is my code - work not properly:
Code
-------------------
Sub ForwardItems()
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim objMailItem As MailItem
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
For Each objMailItem In myOlSel
With objMailItem
.Forward
.Recipients.Add "(e-mail address removed)"
.Send
End With
Next
End Su