2
Outlook Client vorgang Fehlgeschglagen - Fehler im VB-Script
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 190719
Url: https://administrator.de/contentid/190719
Printed on: April 24, 2024 at 19:04 o'clock
2 Comments
Latest comment
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
PS:
Tolle Überschrift
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...
und woher sollen wir wissen was Zeile 10 ist ? bitte Code in Tag pls geht so nicht...
