send email in active window

[CAMinTheToon]

Hi,

I hope someone can help.

i am trying to send a email in the activewindow but i am getting errors.



Sub SendMyOpenMailNow()

Dim MyMailItem As Outlook.MailItem
Dim myOlApp As New Outlook.Application
If TypeName(myOlApp.ActiveWindow) = "Inspector" Then
Set MyMailItem = myOlApp.ActiveWindow

MyMailItem.Send
End If
End Sub


thank you for any help

Col

[Mavyak]

Inspector != MailItem

Try:
myOlApp.ActiveWindow.CurrentItem.Send

[CAMinTheToon]

Mavyak,

thank you for the help.

this worked..



Sub SendOpenItem()
'works!!!!
Dim myOlApp As New Outlook.Application
Dim myItem As Object
Set myItem = myOlApp.ActiveInspector.CurrentItem
myItem.Send
End Sub