Access.2007.VBA.Bibl..

Resume Next Else MsgBox “Error No: “ & Err.Number _ & “; Description: “ & Err.Description Resume ErrorHandlerExit En ...

FIGURE 8.20 The Outlook “Publish Form As” dialog box, showing the message class of a custom Outlook form. Working with Outlook A ...

Set dbs = CurrentDb Set rst = dbs.OpenRecordset(“tblEvents”) With rst Do While Not .EOF Check that there is an appointment subje ...

Outlook is not running; open Outlook with CreateObject. If Err.Number = 429 Then Set appOutlook = CreateObject(“Outlook.Applicat ...

Clear table of old data. strSQL = “DELETE * FROM tblImportedCalendar” DoCmd.SetWarnings False DoCmd.RunSQL strSQL Set dbs = Curr ...

Outlook is not running; open Outlook with CreateObject. If Err.Number = 429 Then Set appOutlook = CreateObject(“Outlook.Applicat ...

Set fldCalendar = nms.GetDefaultFolder(olFolderCalendar) Set dbs = CurrentDb Set rst = dbs.OpenRecordset(“tblContactsWithProject ...

Figure 8.23 shows one of the appointments created by the procedure. FIGURE 8.23 A project meeting appointment created from data ...

Dim strPriority As String Dim lngPriority As Long Dim strDescription As String Set appOutlook = GetObject(, “Outlook.Application ...

Convert the text Priority value to a number for Outlook. strPriority = Nz(![Priority]) lngPriority = Switch(strPriority = “(1) H ...

FIGURE 8.24 Tasks in the Outlook To Do List exported from an Access table. To import tasks from your local Outlook Tasks folder ...

With tsk strTaskName = Nz(.Subject) dteStartDate = Nz(.StartDate) dteDueDate = Nz(.DueDate) lngStatus = Nz(.Status) lngPriority ...

.Update End With End If Next itm rst.Close DoCmd.OpenTable “tblImportedTasks” ErrorHandlerExit: Exit Function ErrorHandler: Outl ...

For a more realistic scenario, in which you want to create tasks based on data in an Outlook table, see the CreateProjectTasksfu ...

ErrorHandlerExit: Exit Function ErrorHandler: Outlook is not running; open Outlook with CreateObject. If Err.Number = 429 Then S ...

If you have a set of linked Access tables of contact data, and you want to keep the data in the tables synchronized with matchin ...

Set fld = nms.Folders(“Personal Folders”) Set fldContacts = fld.Folders(“Contacts from Access”) If fldContacts Is Nothing Then S ...

& IIf(Nz(![WorkExtension]) <> “”, “ x “ _ & ![WorkExtension], “”) strMobilePhone = Nz(![MobilePhone]) strFaxNumber ...

Outlook is not running; open Outlook with CreateObject. If Err.Number = 429 Then Set appOutlook = CreateObject(“Outlook.Applicat ...

To import contacts from your local Outlook Contacts folder into an Access table (tblImportedContacts), use the following functio ...