Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 4295 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
Outlook Adressbuch Benutzerübergreifend??? (1)

Frage von achklein zum Thema Outlook & Mail ...

Webbrowser
gelöst Outlook 2010 Web App Adressbuch öffnet in Firefox 5x.x.x nicht (9)

Frage von Cr0nk3r zum Thema Webbrowser ...

Outlook & Mail
Outlook: 2. Kontakteordner in Adressbuch einblenden (3)

Frage von hallodri69 zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(3)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (41)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Off Topic
gelöst Fachzeitschriften als E-Book oder hardcoded? (11)

Frage von KowaKowalski zum Thema Off Topic ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...