Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Outlook Adressbuch - Import per vbs

Frage Entwicklung

Mitglied: copro

copro (Level 1) - Jetzt verbinden

06.05.2010, aktualisiert 07.05.2010, 4343 Aufrufe

Hallo zusammen

Folgendes Script macht nichts weiter als ein PST mounten bestimmten inhalt kopieren und wieder trennen.
Grund: Wir haben keinen Exchange und ich will ein globales adressbuch...

Bisher scheint das auch ganz gut zu klappen... nur bei einem user werden die adressbücher nicht sauber deaktivert... Wenn Sie gelöscht werden bleiben Sie
anschliessen als leichen in der adressbuchübersicht.

Kennt jemand ne möglichkeit alle aktiven adressbücher per vbs zu deaktivieren?

Bin für jeden tipp zu dem script dankbar... Outlook Steuerung per vbs ist nicht meine Welt...
Nehme also auch gerne bessere ideen entgegen ;)

01.
Set oWSHNetwork = CreateObject("WScript.Network") 
02.
sUser = oWSHNetwork.UserName 
03.
 
04.
If sUser = "test" Then 
05.
 
06.
 
07.
'Deklarationen 
08.
'------------------------------------------------------------------------------------------------- 
09.
Set oOutlook = CreateObject("Outlook.Application") 
10.
Set oNameSpace = oOutlook.GetNamespace("MAPI") 
11.
Set oFolderpath = oOutlook.GetNamespace("MAPI") 
12.
Set oListFolder = oNameSpace.Folders("Persönliche Ordner") 
13.
 
14.
Dim arrbooks(1) 
15.
arrbooks(0) = ("Adressbuch") 
16.
 
17.
 
18.
pstpath = "X:\adressbook.pst" 
19.
 
20.
lcount = 0 
21.
 
22.
'Funktion zum erstellen des Pfades in dem das Adressbuch liegt. 
23.
'------------------------------------------------------------------------------------------------- 
24.
Function cpath(itemname, pathname) 
25.
 
26.
For Each item In oListFolder.Folders 
27.
    pos=Instr(item, itemname) 
28.
    if pos > 0 Then 
29.
    fpath = (item.folderpath) 
30.
    Exit for 
31.
    end If 
32.
Next 
33.
 
34.
If fpath = "" Then 
35.
exit Function 
36.
End If 
37.
 
38.
fpath = Right(fpath, Len(fpath) - 2) 
39.
parray = Split(fpath, "\") 
40.
 
41.
For Each item In parray 
42.
Set oFolderpath = oFolderpath.folders(item) 
43.
Next 
44.
 
45.
Set pathname = oFolderpath 
46.
 
47.
Set oFolderpath = oOutlook.GetNamespace("MAPI") 
48.
Set parray = Nothing 
49.
 
50.
End Function 
51.
 
52.
Do Until lcount = 1 
53.
Set fs = CreateObject("Scripting.FileSystemObject") 
54.
If fs.DriveExists("P:") Then 
55.
lcount = 1 
56.
End If 
57.
Set fs = Nothing 
58.
loop 
59.
 
60.
'Bestehende Adressbücher deaktivieren & löschen 
61.
'------------------------------------------------------------------------------------------------- 
62.
cpath "Adressbuch", bbgab 
63.
 
64.
If Not bbgab = "" Then 
65.
 
66.
bookcount = bbgab.folders.count 
67.
If bookcount < 12 Then 
68.
MsgBox ("Die Struktur des Adressbuches wurde verändert. Melden Sie sich beim Support!") 
69.
WScript.Quit 
70.
End if 
71.
 
72.
bbgab.showasoutlookab = False 
73.
 
74.
For count = 1 To UBound(arrbooks,1) -1 
75.
bbgab.folders(arrbooks(count)).showasoutlookab = False 
76.
Next 
77.
 
78.
bbgab.delete() 
79.
oNameSpace.Folders("Persönliche Ordner").Folders("Gelöschte Objekte").Folders("Adressbuch").delete() 
80.
 
81.
End if 
82.
 
83.
'Import von Adressbuch aus PST 
84.
'------------------------------------------------------------------------------------------------- 
85.
oNameSpace.AddStore(pstpath) 
86.
 
87.
Set oKontaktordner = oNameSpace.Folders("Adressbuch").Folders("Adressbuch") 
88.
Set oDestination = oNameSpace.Folders("Persönliche Ordner") 
89.
oKontaktordner.CopyTo(oDestination) 
90.
 
91.
oNameSpace.RemoveStore oNameSpace.Folders("Adressbuch") 
92.
 
93.
'Aktivieren der Adressbücher 
94.
'------------------------------------------------------------------------------------------------- 
95.
cpath "Adressbuch", bbgab 
96.
bbgab.showasoutlookab = True 
97.
For count = 1 To UBound(arrbooks,1) -1 
98.
bbgab.folders(arrbooks(count)).showasoutlookab = True 
99.
Next 
100.
 
101.
End if 
102.
 
Ähnliche Inhalte
Outlook & Mail
Kontakte Export aus Outlook 2010 Import in Outlook 2013 Kontakte fehlen nach Import
Frage von scout71Outlook & Mail1 Kommentar

Hallo Forum, nach dem Export von Kontakten aus Outlook 2010 und dem Import in Outlook 2013 fehlen einige Kontakte. ...

Outlook & Mail
Anzeigereihenfolge im Outlook-Adressbuch ändern
Frage von FraDomOutlook & Mail2 Kommentare

Hallo liebe Mit-Admins, gibt es eine Möglichkeit, die Anzeigereihenfolge des Outlook-Adressbuchs (hier 2013 - ist aber vermutlich versionsunabhängig) zu ...

Outlook & Mail
Outlook 2010 - Adressbuch Aktualisiert sich nicht
Frage von ShnuuuOutlook & Mail2 Kommentare

Hallo, bei einem User habe ich das Problem, dass sich das Adressbuch nicht mehr aktualisiert. (Outlook 2010, Exchange Server ...

Outlook & Mail
Outlook, Durchsuchen des Adressbuches ohne auf An... zu klicken
gelöst Frage von fckoelleOutlook & Mail4 Kommentare

Hallo zusammen, ich öffne das Fenster für eine neue Mail und klicke in das Feld neben dem Knopf "An", ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 50 MinutenMac OS X

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser ereichbar sind. Leider fehlt ...

Datenschutz

Weitere Inforamtionen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 7 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 9 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 12 StundenMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1017 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...