Access.2007.VBA.Bibl..

rstTarget![CompanyMainTelephoneNumber] = _

Nz(.CompanyMainTelephoneNumber)

rstTarget![HomeFaxNumber] = _

Nz(.HomeFaxNumber)

rstTarget![HomeTelephoneNumber] = _

Nz(.HomeTelephoneNumber)

rstTarget![Home2TelephoneNumber] = _

Nz(.Home2TelephoneNumber)

rstTarget![ISDNNumber] = Nz(.ISDNNumber)

rstTarget![MobileTelephoneNumber] = _

Nz(.MobileTelephoneNumber)

rstTarget![OtherFaxNumber] = _

Nz(.OtherFaxNumber)

rstTarget![OtherTelephoneNumber] = _

Nz(.OtherTelephoneNumber)

rstTarget![PagerNumber] = Nz(.PagerNumber)

rstTarget![PrimaryTelephoneNumber] = _

Nz(.PrimaryTelephoneNumber)

rstTarget![RadioTelephoneNumber] = _

Nz(.RadioTelephoneNumber)

rstTarget![TTYTDDTelephoneNumber] = _

Nz(.TTYTDDTelephoneNumber)

rstTarget![TelexNumber] = Nz(.TelexNumber)

rstTarget![Account] = Nz(.Account)

rstTarget![AssistantName] = Nz(.AssistantName)

Use special handling for a date field (a blank date in Outlook is actually a date of 1/1/4501):

If .Birthday <> #1/1/4501# Then

rstTarget![Birthday] = .Birthday

End If

If .Anniversary <> #1/1/4501# Then

rstTarget![Anniversary] = .Anniversary

End If

If .LastModificationTime <> #1/1/4501# Then

rstTarget![LastUpdated] = _

.LastModificationTime

End If

rstTarget![Categories] = Nz(.Categories)

rstTarget![Children] = Nz(.Children)

rstTarget![PersonalHomePage] = _

Nz(.PersonalHomePage)

rstTarget![Email1Address] = Nz(.Email1Address)

rstTarget![Email1DisplayName] = _

Nz(.Email1DisplayName)

rstTarget![Email2Address] = Nz(.Email2Address)

rstTarget![Email2DisplayName] = _

Nz(.Email2DisplayName)

rstTarget![Email3Address] = Nz(.Email3Address)

rstTarget![Email3DisplayName] = _

Part II Writing VBA Code to Exchange Data between Office Components