Exporting to Outlook

  • Thread starter Thread starter Una
  • Start date Start date
U

Una

Hi

I am wondering if it is possible for Excel to fire out a
task activity into outlook Calendar so it can remind you
to pay someone? I am drawing up a payment schedule
workbook which highlights when payments are due but would
be really good is if somehow I can be reminded of these
payments nearer the time externally i.e. using something
like outlook calendar, without having to go into the
spreadsheet three/fours time a month. Is there a way
anybody?

Thanks a million

Úna
 
Una,

With the Appointment's Title in the activecell (Cell A1, for example), the location in B1, the data and time in C1, and the duration
in D1, the code below will add an appointment to Outlook. A reference to the outlook object is required.

HTH,
Bernie
Excel MVP


Sub CreateOutlookAppointment()
Dim ol As Object
Dim objItem As AppointmentItem

Set ol = CreateObject("outlook.application")

Set objItem = ol.CreateItem(olAppointmentItem)
With objItem
.Subject = ActiveCell.Value
.Location = ActiveCell.Offset(0, 1).Value
.Start = ActiveCell.Offset(0, 2).Value
.Duration = ActiveCell.Offset(0, 3).Value
.ReminderSet = True
.ReminderMinutesBeforeStart = 20
.Save
End With

Set objItem = Nothing
Set ol = Nothing
End Sub



Hi

I am wondering if it is possible for Excel to fire out a
task activity into outlook Calendar so it can remind you
to pay someone? I am drawing up a payment schedule
workbook which highlights when payments are due but would
be really good is if somehow I can be reminded of these
payments nearer the time externally i.e. using something
like outlook calendar, without having to go into the
spreadsheet three/fours time a month. Is there a way
anybody?

Thanks a million

Úna
 
Hi Bernie

Thanks I really appreciate your help, I other questions I
hope you don't mind me asking before I start writing the
code. Can the active cell be Merged cells? Also it has
been a while since i have touched VB and therefore would
need more clarification on the reference to the outlook
object,is this entered between the brackets of, Sub
CreateOutlookAppointment()and could you give an example of
this object? Thanks again for your help.

Cheers

Una
-----Original Message-----
Una,

With the Appointment's Title in the activecell (Cell A1,
Click to expand...
for example), the location in B1, the data and time in C1,
and the duration
in D1, the code below will add an appointment to
Click to expand...
Outlook. A reference to the outlook object is required.
 
Back
Top