Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
make appointment in outlook and send email reminder - all data in excel 2000
Greetings,
I'm using excel 2000 and outlook 2000, my email address is in F2. Can I get outlook to send me an email reminder? Dim olApp As Outlook.Application Dim olApt As AppointmentItem Set olApp = New Outlook.Application Set olApt = olApp.CreateItem(olAppointmentItem) With olApt .Start = Range("A2") .End = Range("B2") .Subject = Range("C2") .Location = Range("D2") .Body = Range("E2") .ReminderMinutesBeforeStart = 120 .ReminderSet = True .Save End With Set olApt = Nothing Set olApp = Nothing -- Regards, DL |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
make appointment in outlook and send email reminder - all data in excel 2000
DL
You can create an email - http://www.dicks-clicks.com/excel/olSending.htm - then make use of the DeferredDeliveryTime property of the MailItem object to hold the message in your Outbox until your ready to send. Something like olMi.DeferredDeliveryTime = olApt.Start - (olApt.ReminderMinutesBeforeStart/24/60) Untested, but should work. -- Dick Kusleika MVP - Excel www.dicks-clicks.com Post all replies to the newsgroup. "DL" wrote in message ... Greetings, I'm using excel 2000 and outlook 2000, my email address is in F2. Can I get outlook to send me an email reminder? Dim olApp As Outlook.Application Dim olApt As AppointmentItem Set olApp = New Outlook.Application Set olApt = olApp.CreateItem(olAppointmentItem) With olApt .Start = Range("A2") .End = Range("B2") .Subject = Range("C2") .Location = Range("D2") .Body = Range("E2") .ReminderMinutesBeforeStart = 120 .ReminderSet = True .Save End With Set olApt = Nothing Set olApp = Nothing -- Regards, DL |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
make appointment in outlook and send email reminder - all data in excel 2000
a thousand thanks,
dl "Dick Kusleika" wrote in message ... DL You can create an email - http://www.dicks-clicks.com/excel/olSending.htm - then make use of the DeferredDeliveryTime property of the MailItem object to hold the message in your Outbox until your ready to send. Something like olMi.DeferredDeliveryTime = olApt.Start - (olApt.ReminderMinutesBeforeStart/24/60) Untested, but should work. -- Dick Kusleika MVP - Excel www.dicks-clicks.com Post all replies to the newsgroup. "DL" wrote in message ... Greetings, I'm using excel 2000 and outlook 2000, my email address is in F2. Can I get outlook to send me an email reminder? Dim olApp As Outlook.Application Dim olApt As AppointmentItem Set olApp = New Outlook.Application Set olApt = olApp.CreateItem(olAppointmentItem) With olApt .Start = Range("A2") .End = Range("B2") .Subject = Range("C2") .Location = Range("D2") .Body = Range("E2") .ReminderMinutesBeforeStart = 120 .ReminderSet = True .Save End With Set olApt = Nothing Set olApp = Nothing -- Regards, DL |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Outlook Email Send Dialog Boxes, Excel 2003 How to Turn Off or Rem | Excel Discussion (Misc queries) | |||
How to send a single page email from excel 2000 using outlook xp | Excel Worksheet Functions | |||
***** PLEASE HELP **** Send an email from Excel to outlook with an automatic macro | Excel Discussion (Misc queries) | |||
send email from Excel 2000 | Excel Discussion (Misc queries) | |||
make appointment in outlook using data in excel -- set recurrence | Excel Programming |