mercia
asked on
Synchronisation in Outlook?
Is it possible to run a Synchronisation within Outlook if you have imported data from a table from say an Access database? If so how?
ASKER
I have imported data from my Access database into my Calendar. However my database is regulary updated I do not want to keep importing the data every time I update the database, I would like to synchronise the database with my Calendar is it possible? The database is stored on my main file server.
ASKER
Adjusted points to 100
There are a few database <-> Outlook synchronization tools, but they're not cheap. See http://www.slipstick.com/dev/database.htm#sync.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Do you mean that I create a function in Access that clearfs a folder in Outlook? Do you have an example of the code required as my code writing skills are not as good as yours? If you do it would be appreciated as you seem to have cracked the problem I have. Thanks
This is a sample. I'm not a coder, more a support bod. But this works. Note that it is set to zap a personal folder, but it could just as well be an Exchange Folder. Also comment out the msgbox part. It was only there for debug purposes. If you don'y it will stop the auto run. Hope it helps. It clears, but doesn't delete the folder
========================== ========== ====
Function ZapTheFolder()
' Set up Outlook Objects.
Dim olns As Object ' Outlook Namespace.
Dim cf As Object ' Personal Folders.
Dim newcf As Object ' Branch Folder
Dim c As Object ' Contact item.
Dim Prop As Object ' User property.
Dim itms 'Items in folder
Dim ol As New Outlook.Application
Set olns = ol.GetNamespace("MAPI") 'Name Space
' Set the current folder to personal folders \ branches
Set cf = olns.Folders("Personal Folders").Folders("Branche s")
Set itms = cf.Items
If itms.Count = 0 Then
MsgBox "No items to delete"
ElseIf itms.Count <> 0 Then
Set c = cf.Items.GetFirst
c.Delete
Do While itms.Count <> 0
If itms.Count = 0 Then
MsgBox "No items to delete"
ElseIf itms.Count <> 0 Then
Set c = cf.Items.GetFirst
c.Delete
End If
Loop
End If
End Function
==========================
Function ZapTheFolder()
' Set up Outlook Objects.
Dim olns As Object ' Outlook Namespace.
Dim cf As Object ' Personal Folders.
Dim newcf As Object ' Branch Folder
Dim c As Object ' Contact item.
Dim Prop As Object ' User property.
Dim itms 'Items in folder
Dim ol As New Outlook.Application
Set olns = ol.GetNamespace("MAPI") 'Name Space
' Set the current folder to personal folders \ branches
Set cf = olns.Folders("Personal Folders").Folders("Branche
Set itms = cf.Items
If itms.Count = 0 Then
MsgBox "No items to delete"
ElseIf itms.Count <> 0 Then
Set c = cf.Items.GetFirst
c.Delete
Do While itms.Count <> 0
If itms.Count = 0 Then
MsgBox "No items to delete"
ElseIf itms.Count <> 0 Then
Set c = cf.Items.GetFirst
c.Delete
End If
Loop
End If
End Function
ASKER
Thank you
Where's the access database come into play here?