Forward a selected Email on defined Adress with Button

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top