How do I Bring a window to the foreground? *outlook warning

[gopher897]

Hello experts,

First of all.. " Stupind Windows security "

That being said...

I use the following bit of code.

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = Range("E2").Value
myItem.Subject = "A NEW PURCHASE ORDER HAS BEEN CREATED"
myItem.Body = "file:" & F & Chr(13) & Chr(13)
myItem.Body = myItem.Body & "This is an automated message"
myItem.Send

How do I make sure that the windows email security warning pops up in
the foreground and not behind the spreadsheet window?

 

[Tom Ogilvy]

Ron deBruin has sample code showing how to use CDO, which avoids using
outlook and avoids the message.

http://www.rondebruin.nl

 

[gopher]

Thanks but I need to keep it this way.