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?

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

http://www.rondebruin.nl

--
Regards,
Tom Ogilvy


wrote in message
oups.com...
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?

Thanks but I need to keep it this way.