|
|
|
Einmal automatisch aktualisieren, bitte.
|
Guten Tag.
Ich habe folgendes "Problem": Auf Rechner A ist Outlook 2007 installiert. Auf Rechner B auch. Auf Rechner A werden nun ab und an neue Kontakte in Outlook 2007 eingegeben. Rechner B soll nun so automatisch wie möglich auch direkt diese Kontakte haben.
Kann man eine Batchdatei schreiben, so dass der Benutzer von Rechner A nur noch einen doppelklick ausführen muss und die Kontakte dann exportiert werden? Und am besten auch irgendwie direkt in Rechner B erscheinen (Batchdatei fürs ikporiteren...?)?
Danke für eure Hilfe.
hacki
|
|
|
|
|
|
|
Kannst du nicht einfach .. das ... Adressbuchfile ... zum anderen Rechner kopieren?
Oder so? Hab mit Outlook wenig am Hut, sorry.
|
[Dieser Beitrag wurde 1 mal editiert; zum letzten Mal von Rufus am 31.01.2008 13:25]
|
|
|
|
|
|
Keine Ahnung ob es dir was hilft, aber ich hab hier ein VBS Script, welches aus einer Datenbank Ferieneinträge ausliest und in Outlook einträgt. Vielleicht lernst du über das etwas über die Objekte die zu verwenden sind.
|
Code: |
Dim ol
Dim olns
Dim cal
Dim db
Dim rs
Dim dbe, myCalendar, myItem, dummy
Dim Query
on error resume next
Set dbe = CreateObject("DAO.DBEngine.35")
if not isobject(dbe) then Set dbe = CreateObject("DAO.DBEngine.36")
on error goto 0
' Tabelle Ferienliste öffnen
Set db = dbe.Workspaces(0).OpenDatabase("irgendwas.db", 1, True)
Set rs = db.OpenRecordset("Ferien")
set ol = WScript.CreateObject("Outlook.Application")
Set olns = ol.GetNamespace("MAPI")
Set myCalendar = olns.GetDefaultFolder(9) ' opens calendarfolder
rs.MoveFirst
Do While (rs.EOF <> True)
Query = "[Subject] = """ & rs.Fields("WarumFrei") & " (HEG)" & """ and " & _
"[Start] = """ & CDate(rs.Fields("Datum")) & " 00:00"""
Set myItem = myCalendar.Items.Find(Query)
On Error Resume Next
dummy = myItem
If Err.Number = 91 Then ' if appointment doesn't exist, create a new one
Err.Clear
Set cal = ol.CreateItem(1) ' create appointment
cal.Subject = rs.Fields("WarumFrei") & " (HEG)"
cal.Start = CDate(rs.Fields("Datum"))
cal.AllDayEvent = True
cal.BusyStatus = 2 ' abwesend
cal.ReminderSet = False
cal.Save
End If
rs.MoveNext
Loop
Set olns = Nothing ' namespace aus dem Speicher löschen
Set ol = Nothing ' Outlook schliessen
MsgBox "Erfolg." |
|
|
|
|
|
|
|
|
| Zitat von Rufus
Kannst du nicht einfach .. das ... Adressbuchfile ... zum anderen Rechner kopieren?
Oder so? Hab mit Outlook wenig am Hut, sorry.
| |
Das ist die bisherige Lösung. Allerdings mache ich das immer manuell. Also ich geh an Rechner A, exportiere die Konakte. Renne zu Rechner B und importiere die Daten...
Und KIF, danke, aber ich hab mal NULL Ahnung davon
|
|
|
|
|
|
|
Rechner A und B sind natürlich nicht vernetzt, ja?
|
|
|
|
|
|
|
| Zitat von Rufus
Rechner A und B sind natürlich nicht vernetzt, ja?
| |
Doch, natürlich.
|
|
|
|
|
|
Thema: Batchdatei Outlook 2007 ( Einmal automatisch aktualisieren, bitte. ) |