Send emails through VBA but skip outlook "Yes" button

[itsyash]

Hi All,

I am using the following code to send emails from VBA. However, where I
do so, an outlook box opens up saying "A program is trying to
automatically send email on your behalf. Do you want to allow this?"

After this unless the user clicks on "Yes" button the email is not
sent.

ActiveWorkbook.EnvelopeVisible = True
Worksheets("Template").Activate
With ActiveSheet.MailEnvelope
.Item.To = "(e-mail address removed)"
.Item.Cc = emailadd
.Item.Subject = "Appraisal Form for " & TextBox5.Value
.Item.Send
End With

Is there a way to skip this step as I need to code a macro which
identifies deviations in a continous loop and sends emails as and when
it finds some deviations.

Thanks in advance,
Yash

 

[Varadharajan]

Hi

Give a try with Application.SendKeys method in ur Code.

U will be able to send various key combinations to the application ur
initiation

for complete details check the HELP on sendkeys method.

thanks
Varadhan

 

[itsyash]

Hi Varadharajan,

Thanks for the suggestion. However, my code will have to check various
conditions every minute and sendkeys may not the best option for this.

Please let me know if there are other options too.

Thanks,

 

[Sriram]

Yash,

Please tell me are you going to send the file as soon as it reaches some
sort of values. You'va mentioned some sort of deviations occur in the loop
then it should get automaticallt mailed.

Please tell me what sort of deviations you want to verify, whether those are
in code or in some cells of an excel sheet?

Please tell me, so that I can proceed further in giving you a solution.

If you wish, you can send a sample mail to me on the below mail id.
(e-mail address removed)

Regards,
Sriram

 

[Ron de Bruin]

See
http://www.rondebruin.nl/mail/prevent.htm