Compilierfehler im ausgeblendeten Modul: ModulOut
01.07.2016 08:38:11
Rainer
in einer älteren Excel Anwendung mit der man direkt Bestätigungsmail verschicken kann erscheint nach Verwendung auf einem neuen Rechner und damit dem Wechsel des Betriebssystems auf Windows 10 und Wechsel der Excelversion auf 2016 nachfolgende Fehlermeldung:
Compilierfehler im ausgeblendeten Modul: ModulOutlook
Dieser Fehler tritt normalerweise auf, wenn Code mit der Version, Plattform oder Architektur dieser Anwendung nicht kompatibel ist.
Informationen zum Beheben dieses Fehlers erhalten Sie, indem Sie auf "Hilfe" klicken.
Das ist der code dazu
Function GetFolder(ByVal FolderPath As String) As Outlook.folder
Dim TestFolder As Outlook.folder
Dim FoldersArray As Variant
Dim i As Integer
On Error GoTo GetFolder_Error
If Left(FolderPath, 2) = "\\" Then
FolderPath = Right(FolderPath, Len(FolderPath) - 2)
End If
'Convert folderpath to array
FoldersArray = Split(FolderPath, "\")
' Set TestFolder = Application.Session.Folders.Item(FoldersArray(0))
Set TestFolder = Outlook.Application.GetNamespace("MAPI").Folders(FoldersArray(0))
If Not TestFolder Is Nothing Then
For i = 1 To UBound(FoldersArray, 1)
Dim SubFolders As Outlook.Folders
Set SubFolders = TestFolder.Folders
Set TestFolder = SubFolders.Item(FoldersArray(i))
If TestFolder Is Nothing Then
Set GetFolder = Nothing
End If
Next
End If
'Return the TestFolder
Set GetFolder = TestFolder
Exit Function
GetFolder_Error:
Set GetFolder = Nothing
Exit Function
End Function