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
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, 3776 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
Exchange Server
SBS 2011 - Outlook Web App - Kritischer Fehler im Script (4)

Frage von Antshit zum Thema Exchange Server ...

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

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

Microsoft Office
Outlook 2016 Fehler Link einfügen (6)

Frage von Florian86 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Systemdateien
NTFS und die Defragmentierung (26)

Frage von WinLiCLI zum Thema Windows Systemdateien ...

LAN, WAN, Wireless
Zwei Subnetze mit je eigenem Router und Internetzugang verbinden (18)

Frage von hannsgmaulwurf zum Thema LAN, WAN, Wireless ...

Windows Server
WIndows Server 2016 core auf dem Intel NUC NUC5i5RYK i5 5250U (17)

Frage von IxxZett zum Thema Windows Server ...