I have this code......
Private Sub CommandButton1_Click()

'E-mail
Dim myOutlook As Object
Dim myMailItem As Object
Set myOutlook = CreateObject("Outlook.Application")
Set myMailItem = myOutlook.createitem(0)
myMailItem.Recipients.Add "
myMailItem.Subject = "ProjectStockEstimate-Suggestions and Problems"
myMailItem.body = TextBox1
myMailItem.send
Set myOutlook = Nothing

End Sub

Now I have tried to insert this to let not go through the security warnings
in outlook with no luck....

..Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%S"
Can someone help?

Hi
You cannot bypass the security warning in Outlook. It is to stop the
automated emailing of viruses.
You can use a library called CDO, which may be listed in your
references. If you at work, your technicians might not allow
installation of this library as it does have security risks.
Google this group or one of the outlook groups on using the CDO
library.
regards
Paul

Mr.G wrote:

I have this code......
Private Sub CommandButton1_Click()

'E-mail
Dim myOutlook As Object
Dim myMailItem As Object
Set myOutlook = CreateObject("Outlook.Application")
Set myMailItem = myOutlook.createitem(0)
myMailItem.Recipients.Add "
myMailItem.Subject = "ProjectStockEstimate-Suggestions and Problems"
myMailItem.body = TextBox1
myMailItem.send
Set myOutlook = Nothing

End Sub

Now I have tried to insert this to let not go through the security warnings
in outlook with no luck....

.Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%S"
Can someone help?

Even when it is only internal mail?

" wrote:

Hi
You cannot bypass the security warning in Outlook. It is to stop the
automated emailing of viruses.
You can use a library called CDO, which may be listed in your
references. If you at work, your technicians might not allow
installation of this library as it does have security risks.
Google this group or one of the outlook groups on using the CDO
library.
regards
Paul

Mr.G wrote:

I have this code......
Private Sub CommandButton1_Click()

'E-mail
Dim myOutlook As Object
Dim myMailItem As Object
Set myOutlook = CreateObject("Outlook.Application")
Set myMailItem = myOutlook.createitem(0)
myMailItem.Recipients.Add "
myMailItem.Subject = "ProjectStockEstimate-Suggestions and Problems"
myMailItem.body = TextBox1
myMailItem.send
Set myOutlook = Nothing

End Sub

Now I have tried to insert this to let not go through the security warnings
in outlook with no luck....

.Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%S"
Can someone help?

Hi Mr. G, go to the site below, i used it and it works great....


http://www.contextmagic.com/express-clickyes/

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

http://www.dimastr.com/redemption/

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Mr.G" wrote in message
...
I have this code......
Private Sub CommandButton1_Click()

'E-mail
Dim myOutlook As Object
Dim myMailItem As Object
Set myOutlook = CreateObject("Outlook.Application")
Set myMailItem = myOutlook.createitem(0)
myMailItem.Recipients.Add "
myMailItem.Subject = "ProjectStockEstimate-Suggestions and
Problems"
myMailItem.body = TextBox1
myMailItem.send
Set myOutlook = Nothing

End Sub

Now I have tried to insert this to let not go through the security
warnings
in outlook with no luck....

.Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%S"
Can someone help?

This is all good if the program was running only on my PC.But I need it to be
in my VBE code.

Thanx

"Bob Phillips" wrote:

http://www.dimastr.com/redemption/

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Mr.G" wrote in message
...
I have this code......
Private Sub CommandButton1_Click()

'E-mail
Dim myOutlook As Object
Dim myMailItem As Object
Set myOutlook = CreateObject("Outlook.Application")
Set myMailItem = myOutlook.createitem(0)
myMailItem.Recipients.Add "
myMailItem.Subject = "ProjectStockEstimate-Suggestions and
Problems"
myMailItem.body = TextBox1
myMailItem.send
Set myOutlook = Nothing

End Sub

Now I have tried to insert this to let not go through the security
warnings
in outlook with no luck....

.Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%S"
Can someone help?