Getting the active window in outlook model

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I've created the following code in Outlook 2003 for automatically forwarding
email's to a specific person. It selects the first email in the list.
However, I would like to assign it to a toolbar and have it send the email
opened in the active window rather than the first in the list of emails in
the In Box.

Do you have an example of code I can use to modify my code.

Public Sub DSchmidt()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myForward = myFolder.Items(1).Forward
myForward.Recipients.Add "DSchmidt"
myForward.Send
End Sub
 
Hi Dennis,

the current opened window is accessable via the ActiveInspector object.
 

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

Similar Threads

Want e-mail addresses from items in my inbox 5
email sent fron VB Com Addin with empty .body 2
Reveiw the VB Code for Macro 3
Want to forward a template email with an email address contained inthe trigger email 1
Macro to create folder in PST file 4
vba to vbs script 8
Auto forward new email 0
Save Excel Attachment Using VBA 2

Back
Top