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:
[VBA]myOlApp.ActiveWindow.CurrentItem.Send[/VBA]

[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