Exporting to Outlook

[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

 

[Bernie Deitrick]

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

 

[Una Murphy]

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,

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.