Help...Automate send e-mail code....

[Guest]

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 "(e-mail address removed)"
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?

 

[paul.robinson]

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

 

[Guest]

Even when it is only internal mail?

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

 

[Les Stout]

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


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

Les Stout

 

[Bob Phillips]

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

--

HTH

Bob Phillips

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

 

[Guest]

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

Thanx