Im using the SendMail code (shown below) in my VBA program to send Excel
workbooks. The code (provided by this board) works great except for the
fact that Outlook has the dialog box that says "A program is trying to
automatically send an email on your behalf? Do you want to allow this?"
Normally this isn't a problem, however my program is looping thru a
spreadsheet of about 500 names and email addresses so of course this is
cumbersome.
Can this feature be disabled from within Excel or from Outlook?

Sheets(Array("Sheet1", "Sheet2")).Copy
'ActiveWindow.SelectedSheets.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "C:\Documents and Settings\"
.SendMail "email address here", _
"comment here"
.ChangeFileAccess xlReadOnly
'Kill .FullName
.Close False
End With

much thanks.

Hi Bret

If you use Outlook Express you can turn it of but not in Outlook.

Look at my CDO page, maybe you can use that
http://www.rondebruin.nl/cdo.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Bret" wrote in message ...
Im using the SendMail code (shown below) in my VBA program to send Excel
workbooks. The code (provided by this board) works great except for the
fact that Outlook has the dialog box that says "A program is trying to
automatically send an email on your behalf? Do you want to allow this?"
Normally this isn't a problem, however my program is looping thru a
spreadsheet of about 500 names and email addresses so of course this is
cumbersome.
Can this feature be disabled from within Excel or from Outlook?

Sheets(Array("Sheet1", "Sheet2")).Copy
'ActiveWindow.SelectedSheets.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "C:\Documents and Settings\"
.SendMail "email address here", _
"comment here"
.ChangeFileAccess xlReadOnly
'Kill .FullName
.Close False
End With

much thanks.

Ron,
first thank you for your site and support. You've been a great resource to
me as an Excel VBA developer over the past years, much much appreciated.
the CDO works fine though I need to find out my SMTP server, thats my only
hold up. thanks again.

"Ron de Bruin" wrote:

Hi Bret

If you use Outlook Express you can turn it of but not in Outlook.

Look at my CDO page, maybe you can use that
http://www.rondebruin.nl/cdo.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Bret" wrote in message ...
Im using the SendMail code (shown below) in my VBA program to send Excel
workbooks. The code (provided by this board) works great except for the
fact that Outlook has the dialog box that says "A program is trying to
automatically send an email on your behalf? Do you want to allow this?"
Normally this isn't a problem, however my program is looping thru a
spreadsheet of about 500 names and email addresses so of course this is
cumbersome.
Can this feature be disabled from within Excel or from Outlook?

Sheets(Array("Sheet1", "Sheet2")).Copy
'ActiveWindow.SelectedSheets.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "C:\Documents and Settings\"
.SendMail "email address here", _
"comment here"
.ChangeFileAccess xlReadOnly
'Kill .FullName
.Close False
End With

much thanks.

Hi Bret

Randy Birch have code for OE and Outlook

Check out
http://vbnet.mvps.org/


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Bret" wrote in message ...
Ron,
first thank you for your site and support. You've been a great resource to
me as an Excel VBA developer over the past years, much much appreciated.
the CDO works fine though I need to find out my SMTP server, thats my only
hold up. thanks again.

"Ron de Bruin" wrote:

Hi Bret

If you use Outlook Express you can turn it of but not in Outlook.

Look at my CDO page, maybe you can use that
http://www.rondebruin.nl/cdo.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Bret" wrote in message ...
Im using the SendMail code (shown below) in my VBA program to send Excel
workbooks. The code (provided by this board) works great except for the
fact that Outlook has the dialog box that says "A program is trying to
automatically send an email on your behalf? Do you want to allow this?"
Normally this isn't a problem, however my program is looping thru a
spreadsheet of about 500 names and email addresses so of course this is
cumbersome.
Can this feature be disabled from within Excel or from Outlook?

Sheets(Array("Sheet1", "Sheet2")).Copy
'ActiveWindow.SelectedSheets.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "C:\Documents and Settings\"
.SendMail "email address here", _
"comment here"
.ChangeFileAccess xlReadOnly
'Kill .FullName
.Close False
End With

much thanks.

Can this feature be disabled from within Excel or from Outlook?

You can also use the Outlook Redemption - for more detail look at:
http://www.dimastr.com/redemption/
Regards. S!@w.

thanks for Randy's vb.net source. For the life of me I cant narrow down on
this site disabling Outlook Security per my needs, sorry to bother Ron but
can you assist please. thanks again.



"Ron de Bruin" wrote:

Hi Bret

Randy Birch have code for OE and Outlook

Check out
http://vbnet.mvps.org/


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Bret" wrote in message ...
Ron,
first thank you for your site and support. You've been a great resource to
me as an Excel VBA developer over the past years, much much appreciated.
the CDO works fine though I need to find out my SMTP server, thats my only
hold up. thanks again.

"Ron de Bruin" wrote:

Hi Bret

If you use Outlook Express you can turn it of but not in Outlook.

Look at my CDO page, maybe you can use that
http://www.rondebruin.nl/cdo.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Bret" wrote in message ...
Im using the SendMail code (shown below) in my VBA program to send Excel
workbooks. The code (provided by this board) works great except for the
fact that Outlook has the dialog box that says "A program is trying to
automatically send an email on your behalf? Do you want to allow this?"
Normally this isn't a problem, however my program is looping thru a
spreadsheet of about 500 names and email addresses so of course this is
cumbersome.
Can this feature be disabled from within Excel or from Outlook?

Sheets(Array("Sheet1", "Sheet2")).Copy
'ActiveWindow.SelectedSheets.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "C:\Documents and Settings\"
.SendMail "email address here", _
"comment here"
.ChangeFileAccess xlReadOnly
'Kill .FullName
.Close False
End With

much thanks.

I need to find out my SMTP server
You find that on Randy's site


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Bret" wrote in message ...
thanks for Randy's vb.net source. For the life of me I cant narrow down on
this site disabling Outlook Security per my needs, sorry to bother Ron but
can you assist please. thanks again.



"Ron de Bruin" wrote:

Hi Bret

Randy Birch have code for OE and Outlook

Check out
http://vbnet.mvps.org/


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Bret" wrote in message ...
Ron,
first thank you for your site and support. You've been a great resource to
me as an Excel VBA developer over the past years, much much appreciated.
the CDO works fine though I need to find out my SMTP server, thats my only
hold up. thanks again.

"Ron de Bruin" wrote:

Hi Bret

If you use Outlook Express you can turn it of but not in Outlook.

Look at my CDO page, maybe you can use that
http://www.rondebruin.nl/cdo.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Bret" wrote in message ...
Im using the SendMail code (shown below) in my VBA program to send Excel
workbooks. The code (provided by this board) works great except for the
fact that Outlook has the dialog box that says "A program is trying to
automatically send an email on your behalf? Do you want to allow this?"
Normally this isn't a problem, however my program is looping thru a
spreadsheet of about 500 names and email addresses so of course this is
cumbersome.
Can this feature be disabled from within Excel or from Outlook?

Sheets(Array("Sheet1", "Sheet2")).Copy
'ActiveWindow.SelectedSheets.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "C:\Documents and Settings\"
.SendMail "email address here", _
"comment here"
.ChangeFileAccess xlReadOnly
'Kill .FullName
.Close False
End With

much thanks.