UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
 
   Reply to this topicStart new topic
> Merge Outlook contacts with Access Contacts    
 
   
SimonCleaver
post Jan 9 2006, 06:29 AM
Post#1



Posts: 136
Joined: 24-March 03
From: Spain


Hi all,
wonder if anyone could give me some advice.
I have an Access database with "contacts" details and an Outlook pst with Contacts.
I would like to merge the two so I end up with one master list to be used in Outlook. There will be many duplicates as many contacts are duplicated in both databases, but I should end up with a list of about 500 contacts.
Can anyone advise of a effective way of doing this.
Go to the top of the page
 
dallr
post Jan 9 2006, 08:39 AM
Post#2


UtterAccess VIP
Posts: 3,080
Joined: 4-November 04
From: The Land of the Access Ninja's


I have never done this but, I am thinking something along these lines would work. I am using office 2003
(A)I would first try and get all my information in one place (Access).
1. In outlook go to FILE ------> IMPORT AND EXPORT----------->. To export your contacts to an excell file.
2. In your access db import the contacts information into the contacts table. (relevant fields of course).
3. Build your query to filter out the duplicate information.
(B)Export the information to Outlook contacts
1. Use a recordset to loop through your query and put your information into outlook.
Take a look at some code i used to loop through a table and email the relevant companies. This should act as a guide for part (B). Of course instead of emailing you would need to use the outlook.contactitem
CODE

Sub Email_Loop()
Dim Conn As ADODB.Connection
Dim rec As ADODB.Recordset
Dim SQL, MailBody As String
Dim OutApp As Outlook.Application
Dim Mail As Outlook.MailItem
Dim Placement As Integer
Dim TimeStart, TimeEnd, Result As Single
[color="green"]  'Open the necessary connections[/color]
Set OutApp = New Outlook.Application
Set Conn = CurrentProject.Connection
Set rec = New ADODB.Recordset
SQL = "SELECT * FROM tblEmployers WHERE (((tblEmployers.EmailAdd) Is Not Null) AND ((tblEmployers.DateEmailSent) Is Null));"
MailBody = " To Whom it May concern."
Placement = CInt(Len(MailBody) + 3)
rec.Open SQL, Conn, adOpenKeyset, adLockOptimistic
TimeStart = Timer 'to time the event
Do Until rec.EOF
    Set Mail = OutApp.CreateItem(olMailItem)
        With Mail
            .Attachments.Add "C:\Oliver.doc", , Placement
            .Body = MailBody
            .Subject = "New Recruitment Agency in Trinidad."
            .To = rec.Fields("EmailAdd")
            .Send
        End With
        
    rec.Fields("DateEmailSent") = Date  'Record the date the email was sent.
    rec.Update
    Debug.Print rec.Fields("emailAdd")  ' for testing purposes only.
    rec.MoveNext
Loop
[color="green"]' To time how long it took to email the records and Number of records. This is not necessarily needed but i had it in for my informtion purposes. [/color]
TimeEnd = Timer
Result = Format(TimeEnd - TimeStart, "0.000")
MsgBox rec.RecordCount & " records were update in;" & Chr(13) & Chr(13) & "Seconds " & Result & Chr(13) _
        & "Minutes " & Round((Result / 60), 2)
rec.Close
Set rec = Nothing
Conn.Close
Set Conn = Nothing
End Sub

Hope this helps
Go to the top of the page
 
MicroE
post Jan 9 2006, 08:42 AM
Post#3


UtterAccess VIP
Posts: 4,034
Joined: 22-February 05
From: NY - USA


Search the code archives for “Outlook” to find working examples of using Access with Outlook.
Go to the top of the page
 
SimonCleaver
post Jan 11 2006, 10:44 AM
Post#4



Posts: 136
Joined: 24-March 03
From: Spain


Thanks a lots for the advice
Go to the top of the page
 
dfgfbd
post Mar 4 2019, 06:11 AM
Post#5



Posts: 1
Joined: 4-March 19



You can also try out PST Merge Software. I have used the free version and let me tell you the software is a ground-breaking tool integrated with the intelligent scanning algorithms that allow you to merge an unlimited number of PST files into a single PST file in no moment of time. This utility merges various MS outlook contacts, outlook emails, and outlook calendars into one PST file with great ease. To know more about the usability and its feature of this incredible tool.
Visit here :- softakensoftware.com/merge-outlook-PST.html
Go to the top of the page
 


Custom Search


RSSSearch   Top   Lo-Fi    23rd March 2019 - 10:17 AM