[mso] Re: Access to Outlook

  • From: "Colli, Anthony G" <Anthony.Colli@xxxxxxx>
  • To: "'mso@xxxxxxxxxxxxx'" <mso@xxxxxxxxxxxxx>
  • Date: Tue, 6 Aug 2002 09:58:26 -0400

Jason-

 There a probably a bunch of ways to do what you want, mostly depending on
which will be the "master" list. I have some code that from Access will
create a contact in Outlook. It can easily be modified to read from an
Access database and insert contacts into Outlook. It does not check to see
if the item exists, but that can be changed too. 

 Open the VBA editor in Access and paste in the code. Go to tools references
and select Outlook 9.0 Object Library. In the immediate window type
?NewOutlookContact you should then have a new contact in Outlook


Public Function NewOutlookContact()
    Dim olkApp As New Outlook.Application
    Dim ThisContact As ContactItem
    
    Set olkApp = CreateObject("Outlook.application")
    Set ThisContact = olkApp.CreateItem(olContactItem)
    
    With ThisContact
        .FirstName = "Bernie"
        .LastName = "Sanders"
        .Save
    End With

End Function







-----Original Message-----
From: Jason H. Warren [mailto:jason@xxxxxxxxxxxxxxxxxx]
Sent: Monday, August 05, 2002 9:33 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Access to Outlook



I have Outlook 2000 and Access 2000. I have a contact database in Access
that I would like to have in Outlook in order to have my palm sync the
information. However, I don't want to have to worry about updating all 3
locations with Client information. I would like to keep one of them current.
And then with the pressing of a few buttons, have the others current (able
to accept the changes).

I would appreciate any advice on the easiest way to make this happen.

Jason H. Warren
Jtech Solutions
http://www.jtechsolutions.com

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx?Subject=unsubscribe

Or, visit the group's homepage and use the dropdown menu.  This will also
allow you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation
with instructions.  Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx?Subject=unsubscribe

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: