Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Outlook from a macro
I have a code to send(email) a range of a worksheet to an email addres on
the sheet. But if Outlook is not opened it simply sits in the OUTBOX until Outlook is opened. Is ther a line i can add to open Outlook if Not already. This way it Will send immediately ? Corey... |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Outlook from a macro
Check out this site...
http://www.rondebruin.nl/sendmail.htm -- HTH... Jim Thomlinson "Corey" wrote: I have a code to send(email) a range of a worksheet to an email addres on the sheet. But if Outlook is not opened it simply sits in the OUTBOX until Outlook is opened. Is ther a line i can add to open Outlook if Not already. This way it Will send immediately ? Corey... |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Outlook from a macro
Thanks for the reply,
But Ron's site is very helpful, yet does not assist me with the OPENING on Outlook from a Macro. Corey.... "Jim Thomlinson" wrote in message ... Check out this site... http://www.rondebruin.nl/sendmail.htm -- HTH... Jim Thomlinson "Corey" wrote: I have a code to send(email) a range of a worksheet to an email addres on the sheet. But if Outlook is not opened it simply sits in the OUTBOX until Outlook is opened. Is ther a line i can add to open Outlook if Not already. This way it Will send immediately ? Corey... |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Outlook from a macro
It should do.
To start Outlook, just test it and open it On Error Resume Next Set AppOL = GetObject(,"Outlook.Application") If AppOL Is Nothing Then Set AppOL = CreateObject("Outlook.Application") If AppOL Is Nothing Then MsgBox "Something's up" Exit Sub Else AppOL.Visible = True End If End If -- --- HTH Bob (change the xxxx to gmail if mailing direct) "Corey" wrote in message ... Thanks for the reply, But Ron's site is very helpful, yet does not assist me with the OPENING on Outlook from a Macro. Corey.... "Jim Thomlinson" wrote in message ... Check out this site... http://www.rondebruin.nl/sendmail.htm -- HTH... Jim Thomlinson "Corey" wrote: I have a code to send(email) a range of a worksheet to an email addres on the sheet. But if Outlook is not opened it simply sits in the OUTBOX until Outlook is opened. Is ther a line i can add to open Outlook if Not already. This way it Will send immediately ? Corey... |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Outlook from a macro
Thanks for the reply Bob.
Am I suppose to any more than to test the code you posted than to run it from a macro? It thinks but does nothing?? Corey.... "Bob Phillips" wrote in message ... It should do. To start Outlook, just test it and open it On Error Resume Next Set AppOL = GetObject(,"Outlook.Application") If AppOL Is Nothing Then Set AppOL = CreateObject("Outlook.Application") If AppOL Is Nothing Then MsgBox "Something's up" Exit Sub Else AppOL.Visible = True End If End If -- --- HTH Bob (change the xxxx to gmail if mailing direct) "Corey" wrote in message ... Thanks for the reply, But Ron's site is very helpful, yet does not assist me with the OPENING on Outlook from a Macro. Corey.... "Jim Thomlinson" wrote in message ... Check out this site... http://www.rondebruin.nl/sendmail.htm -- HTH... Jim Thomlinson "Corey" wrote: I have a code to send(email) a range of a worksheet to an email addres on the sheet. But if Outlook is not opened it simply sits in the OUTBOX until Outlook is opened. Is ther a line i can add to open Outlook if Not already. This way it Will send immediately ? Corey... |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Outlook from a macro
I just gave you code to test whether Outlook was started, if not start it.
You would add this to some code to send the mail. -- --- HTH Bob (change the xxxx to gmail if mailing direct) "Corey" wrote in message ... Thanks for the reply Bob. Am I suppose to any more than to test the code you posted than to run it from a macro? It thinks but does nothing?? Corey.... "Bob Phillips" wrote in message ... It should do. To start Outlook, just test it and open it On Error Resume Next Set AppOL = GetObject(,"Outlook.Application") If AppOL Is Nothing Then Set AppOL = CreateObject("Outlook.Application") If AppOL Is Nothing Then MsgBox "Something's up" Exit Sub Else AppOL.Visible = True End If End If -- --- HTH Bob (change the xxxx to gmail if mailing direct) "Corey" wrote in message ... Thanks for the reply, But Ron's site is very helpful, yet does not assist me with the OPENING on Outlook from a Macro. Corey.... "Jim Thomlinson" wrote in message ... Check out this site... http://www.rondebruin.nl/sendmail.htm -- HTH... Jim Thomlinson "Corey" wrote: I have a code to send(email) a range of a worksheet to an email addres on the sheet. But if Outlook is not opened it simply sits in the OUTBOX until Outlook is opened. Is ther a line i can add to open Outlook if Not already. This way it Will send immediately ? Corey... |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Outlook from a macro
This works for me:
Sub ShowOutlook() Dim olApp As OutLook.Application Dim olNs As NameSpace On Error Resume Next Set olApp = GetObject(, "Outlook.Application") If Err.Number = 429 Then Set olApp = CreateObject("Outlook.Application") End If On Error GoTo 0 Set olNs = olApp.GetNamespace("MAPI") If olApp.ActiveExplorer Is Nothing Then olApp.Explorers.Add _ (olNs.GetDefaultFolder(olFolderCalendar)).Activate Else Set olApp.ActiveExplorer.CurrentFolder = _ olNs.GetDefaultFolder(olFolderCalendar) olApp.ActiveExplorer.Display End If Set olNs = Nothing Set olApp = Nothing End Sub I found it at: http://www.dicks-clicks.com/excel/olBinding.htm Remember to activate the reference in the Visual Basic Editor, Tools References... Happy Excelling!! -- RyGuy "Bob Phillips" wrote: I just gave you code to test whether Outlook was started, if not start it. You would add this to some code to send the mail. -- --- HTH Bob (change the xxxx to gmail if mailing direct) "Corey" wrote in message ... Thanks for the reply Bob. Am I suppose to any more than to test the code you posted than to run it from a macro? It thinks but does nothing?? Corey.... "Bob Phillips" wrote in message ... It should do. To start Outlook, just test it and open it On Error Resume Next Set AppOL = GetObject(,"Outlook.Application") If AppOL Is Nothing Then Set AppOL = CreateObject("Outlook.Application") If AppOL Is Nothing Then MsgBox "Something's up" Exit Sub Else AppOL.Visible = True End If End If -- --- HTH Bob (change the xxxx to gmail if mailing direct) "Corey" wrote in message ... Thanks for the reply, But Ron's site is very helpful, yet does not assist me with the OPENING on Outlook from a Macro. Corey.... "Jim Thomlinson" wrote in message ... Check out this site... http://www.rondebruin.nl/sendmail.htm -- HTH... Jim Thomlinson "Corey" wrote: I have a code to send(email) a range of a worksheet to an email addres on the sheet. But if Outlook is not opened it simply sits in the OUTBOX until Outlook is opened. Is ther a line i can add to open Outlook if Not already. This way it Will send immediately ? Corey... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to open Excel in different windows AND open from Outlook? | Setting up and Configuration of Excel | |||
SendMail without open Outlook | Excel Programming | |||
excel open in outlook if outlook is running | Excel Discussion (Misc queries) | |||
Open Outlook | Excel Programming | |||
open outlook contact | Excel Discussion (Misc queries) |