Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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
GELÖST

Outlook Client vorgang Fehlgeschglagen - Fehler im VB-Script

Frage Entwicklung VB for Applications

Mitglied: koluschkiB

koluschkiB (Level 1) - Jetzt verbinden

05.09.2012, aktualisiert 09:10 Uhr, 3820 Aufrufe, 2 Kommentare

Vermehrt haben wir Probleme mit dem Outlook Client in unserem Unternehmen.
Beim versuch Anhänge in einer Email zu öffnen bekommen die Anwender die Fehlermeldung das ein Client Vorgang fehlgeschlagen ist. Passieren tut es bei PDF, XLS und bei DOC Dateien.
Beim durchforsten von dem INternet fand ich das unten aufgeführte Script. Leider wird ein Fehler in Zeile 10 ausgegeben, welche ich nicht nach vollziehen kann...
Villeicht kann einer von euch mal drüber schauen und erkennt auch den Fehler, ich selbst bin kein Programmierspezi...

Sorry für die Formatierung, war schon lange nicht mehr auf dieser Platform, wo sich ja alles geändert hat.

Option Explicit
Private Sub Application_Quit()

'

' Löscht den Inhalt des OLK-Ordner beim Beenden von Outlook
'



Dim objFSO As Object
Dim objWsh As Object
Dim objFolder As Object
Dim strRegKey As String
Dim strOLK As String

On Error Resume Next

'---------------------------------------------------------------------
' Um Daten aus der Registrierung zu lesen
'---------------------------------------------------------------------
Set objWsh = CreateObject("WScript.Shell")

'---------------------------------------------------------------------
' Schlüssel zusammenstellen
'---------------------------------------------------------------------
strRegKey = "HKCU\Software\Microsoft\Office\%.0\Outlook\Security\OutlookSecureTempFolder"

'---------------------------------------------------------------------
' OLK-Ordner aus der Registrierung auslesen
'---------------------------------------------------------------------
Select Case Left(Outlook.Version, 2)
Case "9.": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "9"))
Case "10": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "10"))
Case "11": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "11"))
Case "12": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "12"))
Case "14": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "14"))
Case Else
MsgBox "Kann Outlook-Version nicht bestimmen.", vbCritical + _
vbOKOnly, "Delete OLK"

Exit Sub
End Select

'---------------------------------------------------------------------
' VBA bietet keine komfortable Möglichkeit, um Dateien zu löschen,
' daher wird VB-Script verwendet.
'---------------------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")

'---------------------------------------------------------------------
' Alle Dateien im OLK-Ordner löschen (True = Löschen erzwingen)
'---------------------------------------------------------------------
Call objFSO.DeleteFile(strOLK & "*.*", True)

'---------------------------------------------------------------------
' OLK-Ordner refernzieren
'---------------------------------------------------------------------
Set objFolder = objFSO.GetFolder(strOLK)

'---------------------------------------------------------------------
' Ist etwas übrig geblieben, dann Ordner öffnen
'---------------------------------------------------------------------
If objFolder.Files.Count Then Call Shell("explorer.exe " & strOLK)

'---------------------------------------------------------------------
' Clean Up
'---------------------------------------------------------------------
Set objFolder = Nothing Set objFSO = Nothing Set objWsh = Nothing

End Sub
Mitglied: 60730
05.09.2012 um 09:12 Uhr
abba das man anderen nen gruß vorm fragestellen reinschieben tutet und das die code tags immer noch die code tags sind, daran hat sich nix geändert...

PS:
Tolle Überschrift
Bitte warten ..
Mitglied: askando
05.09.2012, aktualisiert um 10:27 Uhr
mmh vba zeigt dir eigentlich die falsche Zeile rot an ;)

und woher sollen wir wissen was Zeile 10 ist ? bitte Code in Tag pls geht so nicht...
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

Exchange Server
SBS 2011 - Outlook Web App - Kritischer Fehler im Script (4)

Frage von Antshit zum Thema Exchange Server ...

Windows Update
WSUS - Fehler 0x8024401c am Client (7)

Frage von PN-Schrauber zum Thema Windows Update ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Infineon TPMs unsicher!

Information von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Firewall

PfSense Repository für Version 2.3.x

(2)

Information von Dobby zum Thema Firewall ...

LAN, WAN, Wireless

WPA-2 hat erste Risse: KRACK

(5)

Information von the-buccaneer zum Thema LAN, WAN, Wireless ...

Hardware

GPD Pocket: Winziger Laptop für Wenig Tipper

(1)

Information von pelzfrucht zum Thema Hardware ...

Heiß diskutierte Inhalte
Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (20)

Frage von sunics zum Thema Hosting & Housing ...

Windows 7
gelöst Windows 7 Anmeldedomäne festlegen (13)

Frage von flotaut zum Thema Windows 7 ...