Wrox Programmer Forums
|
Access VBA Discuss using VBA for Access programming.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Access VBA section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old March 6th, 2005, 04:24 PM
Authorized User
 
Join Date: Jun 2004
Posts: 15
Thanks: 0
Thanked 0 Times in 0 Posts
Default Automating Outlook Task

I'm trying to assign tasks to other users. I'm picking information off of a subform to make my message and provide the receprient's name. The receprient's email address is in a string.
http://www.access-programmers.co.uk...ead.php?t=79767
==================================
Public Function AssignTask()
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.Outlook.TaskRequestItem
Dim myDelegate As Outlook.Recipient
'Information from subform
Dim strReciprient As String, strResponsibleParty As String 'These are the same person
Dim strProject As String 'ActionDescription
Dim strFacility As String
Dim strFrequency As String
Dim strDueDate As String
Dim frm As Form
Dim sfN As Form 'Program Notification SubForm

Set frm = Forms!frmMainEntry.Form
Set sfN = frm.[fctlNotifications].Form
If sfN.[ProgramID] = sfN.[txtID] Then

strProject = sfN.ProgramDescription
strFacility = sfN.Facility
strDueDate = sfN.DueDate
strFrequency = sfN.FrequencyOfService
strReciprient = sfN.EmailAddress
strResponsibleParty = sfN.ResponsibleParty
strSender = frm!txtWelcome
Else
Exit Function
End If

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olTaskItem)

myItem.Assign
Set myDelegate = myItem.Recipients.Add(strReciprient)
myDelegate.Resolve
If myDelegate.Resolved Then
myItem.Subject = "Notification Of Compliance Requirement"
myItem.Body = vbCrLf & vbCrLf & vbCrLf & _
"To: " & strResponsibleParty & vbCrLf & vbCrLf & vbCrLf & _
"This is to notify you that the requirement for " & strProject & " at the " & _
strFacility & " is due on " & strDueDate & "." & vbCrLf & _
strProject & " is required " & strFrequency & "." & vbCrLf & vbCrLf & vbCrLf & _
"Keep On Track With Safety" & vbCrLf & strSender
myItem.DueDate = strDueDate
myItem.ReminderTime = DateAdd("ww", -1, strDueDate) 'Remind 1 Week before Due Date.
'myItem.Display
myItem. Importance = (olImportanceHigh)
myItem.Send
End If
End Function
==================================
MS Knowledge base
http://msdn.microsoft.com/library/d..._HV05247533.asp
http://support.microsoft.com/defaul...kb;en-us;209932

How do I use a variable for an e-mail address?

Thanks,
PC





Similar Threads
Thread Thread Starter Forum Replies Last Post
How to add task in Scheduled Task programatically amitjoshipune C# 2 July 31st, 2008 05:42 AM
Sending Outlook Task thru Web Application gadhiav ASP.NET 1.0 and 1.1 Professional 9 March 5th, 2007 10:36 AM
Execute Task from ActiveX Script Task PorcupineRabbit SQL Server DTS 1 January 10th, 2006 12:37 PM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.