Dougalsworld
Paul
- Local time
- Today, 10:10
- Joined
- Jul 29, 2005
- Messages
- 62
Hi Folks,
Have dug around in the forum for an answer to this question but to no avail.
i have a training database that is used to book training courses. On booking a course it sends out a meeting request in Outlook using the code below...
My question is that for each training course I have a zip file with course materials and pre-course work. What i want to do is add this Zip file from a std location on to the email, my initial thought was something like...
...to add a new field to tbl_Courses
I wanted to add a field [Coursework]
In which I would put the file location "G:\EDAG\Test\Test.zip" etc
Then get the vba code for the meetingrequest to read this, something like...
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Dim stDocName As String
Set outobj = CreateObject("outlook.Application")
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = [txtCourseDate] & " 09:00"
.Duration = [txtDuration]
.Subject = [txtSubject]
.MeetingStatus = olMeeting
.Attachments = [Coursework]
but this does not seem to work, does anyone have any ideas?
Cheers
Have dug around in the forum for an answer to this question but to no avail.
i have a training database that is used to book training courses. On booking a course it sends out a meeting request in Outlook using the code below...
My question is that for each training course I have a zip file with course materials and pre-course work. What i want to do is add this Zip file from a std location on to the email, my initial thought was something like...
...to add a new field to tbl_Courses
I wanted to add a field [Coursework]
In which I would put the file location "G:\EDAG\Test\Test.zip" etc
Then get the vba code for the meetingrequest to read this, something like...
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Dim stDocName As String
Set outobj = CreateObject("outlook.Application")
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = [txtCourseDate] & " 09:00"
.Duration = [txtDuration]
.Subject = [txtSubject]
.MeetingStatus = olMeeting
.Attachments = [Coursework]
but this does not seem to work, does anyone have any ideas?
Cheers
