View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default Sending Mail from within Excel

Hi Don

In Outlook you can count the mails in the Outbox

Set myOlApp = CreateObject("Outlook.Application")
Set myOlNS = myOlApp.GetNamespace("MAPI")
Set myFolder = myOlNS.GetDefaultFolder(olFolderOutbox)
MsgBox myFolder.Items.Count

If you need more info about Outlook programming go to the
Outlook newsgroups.


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


"Don Lloyd" wrote in message ...
Hi,

With the help of code obtained from Ron De Bruin's excellent examples I have
code to send a copy of a worksheet directly from Excel.

Conditions
If there is an internet connection the sheet is sent automatically.
If not, a connection dialogue box is shown.
If the user decides to NOT connect the post is placed in the Outbox.

Query
How can I, using code following the SendMail . . . . instruction, arrange
for a message to be displayed, saying that either the Mail has been sent or
has been placed in the Outbox, whichever is the case.

Regards,
Don Lloyd