wannabepro
Registered User.
- Local time
- Today, 02:50
- Joined
- Jan 25, 2005
- Messages
- 102
I am trying to create a pop up calender kind of thing. What I want it to do is pick up the date from the 'follow up date' field and email it to me when my database starts. I know its an easy task, but for some reason after a long struggle I am still stuck with it. I can email the tasks using this script that I got from microsoft's site. How can I modify this script to fit my description. I just want it to pick up the date from the field and the note which has been written there and email it to me. Can this happen? how so? I am counting on you guys. Thanks in adv.
Option Compare Database
Option Explicit
Function fncAddOutlookTask()
Dim OutlookApp As Outlook.Application
Dim OutlookTask As Outlook.TaskItem
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookTask = OutlookApp.CreateItem(olTaskItem)
With OutlookTask
.Subject = "This is the subject of my task"
.Body = "Here is your task today."
.ReminderSet = True
.ReminderTime = DateAdd("n", 2, Now) 'Remind 2 minutes from now.
.DueDate = DateAdd("n", 5, Now) 'Due 5 minutes from now.
.ReminderPlaySound = True
.ReminderSoundFile = "C:\Windows\Media\Ding.wav" 'Modify path.
.Save
End With
End Function
Option Compare Database
Option Explicit
Function fncAddOutlookTask()
Dim OutlookApp As Outlook.Application
Dim OutlookTask As Outlook.TaskItem
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookTask = OutlookApp.CreateItem(olTaskItem)
With OutlookTask
.Subject = "This is the subject of my task"
.Body = "Here is your task today."
.ReminderSet = True
.ReminderTime = DateAdd("n", 2, Now) 'Remind 2 minutes from now.
.DueDate = DateAdd("n", 5, Now) 'Due 5 minutes from now.
.ReminderPlaySound = True
.ReminderSoundFile = "C:\Windows\Media\Ding.wav" 'Modify path.
.Save
End With
End Function
