Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Email from vba
What if a user does not have Outlook?
If a user has Outlook Express, would it work? I want to place the auto emailing code in with my error sub so I get an email when a user getsan error in the office. Clip from code: Sub Mail_small_Text_Outlook() ' Is working in Office 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) -------------------------------------------------------------- |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Email from vba
here's a snippet of what i use for my clients with oe:
Sub test() fpath = ThisWorkbook.Path & "\" msg = fpath & "Inventory_Low.xls" Recipient = " Recipientcc = "" Recipientbcc = "" Subj = "Inventory Alert." HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc & "&" & "bcc=" & Recipientbcc & "&" HLink = HLink & "subject=" & Subj & "&" HLink = HLink & "body=" & msg ActiveWorkbook.FollowHyperlink (HLink) Application.Wait (Now + TimeValue("0:00:01")) Application.SendKeys "%s" End Sub -- Gary "ADK" wrote in message ... What if a user does not have Outlook? If a user has Outlook Express, would it work? I want to place the auto emailing code in with my error sub so I get an email when a user getsan error in the office. Clip from code: Sub Mail_small_Text_Outlook() ' Is working in Office 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) -------------------------------------------------------------- |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Email from vba
See
http://www.rondebruin.nl/mail/oebody.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "ADK" wrote in message ... What if a user does not have Outlook? If a user has Outlook Express, would it work? I want to place the auto emailing code in with my error sub so I get an email when a user getsan error in the office. Clip from code: Sub Mail_small_Text_Outlook() ' Is working in Office 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) -------------------------------------------------------------- |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Email from vba
that's where i got mine. thanks
-- Gary "Ron de Bruin" wrote in message ... See http://www.rondebruin.nl/mail/oebody.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "ADK" wrote in message ... What if a user does not have Outlook? If a user has Outlook Express, would it work? I want to place the auto emailing code in with my error sub so I get an email when a user getsan error in the office. Clip from code: Sub Mail_small_Text_Outlook() ' Is working in Office 2000-2007 Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) -------------------------------------------------------------- |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using Macro how to create email link for the email addresses in aRange or Selection | Excel Worksheet Functions | |||
how do you email a portion of a worksheet (range) as an insert into the body of an email? | Excel Programming | |||
can I copy a column of email addresses, paste into email address? | New Users to Excel | |||
Transfer Email addresses from spreadsheet to email address book | Excel Discussion (Misc queries) | |||
Email editor closes when forwarding Excel-embedded email | Setting up and Configuration of Excel |