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?