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?