Outlook 2007 - Makroprogrammierung; Sub or Funtion not defined

[dhjgv]

Hi Leute,

habe mich die letzten Tage mal dran gemacht ein Marko (mein erstes) zu programmieren, das mir ermöglicht mehrere PST Files auf einmal einzubinden.

Der Code sieht so aus:

Sub PST_Import()

Dim sFileName$
Dim Dateityp As String
Dim Dateiname As String
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String

Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
Pfad = BrowseDir.Items().Item().Path + "\"

Dateityp = "*.pst"
Dateiname = Dir(Pfad & Dateityp)


Do While Dateiname <> ""
sFileName = (Pfad & Dateiname)
OpenFolder sFileName
Dateiname = Dir
Loop



End Sub

Sub OpenFolder(strFileName As String)
Dim oOutlook As Outlook.Application
Dim oNSpace As Outlook.NameSpace

Set oOutlook = CreateObject("Outlook.Application")
Set oNSpace = oOutlook.GetNamespace("MAPI")
oNSpace.AddStore strFileName

Set oOutlook = Nothing
Set oNSpace = Nothing
End Sub

Die Problematik habe ich mal in einer Schritt für Schritt Überischt eingefangen:

Ich starte Outlook!
Ich drücke ALT+F11 und starte damit den VB-Editor.
Ich importiere meine Datei mit dem Makro-Code.
Ich führe das Makro aus, indem ich F5 drücke -> Das Makro funktioniert einwandfrei!
Ich schließe den Editor.
Ich drücke in Outlook ALT+F8 um das Makro-Dialogfenster zu öffnen, wähle mein Makro aus und drücke auf Ausführen -> Ich bekomme die Fehlermeldung "Sub or Function not defined"

Zwischenstand: Im Editor ausführen geht!, aus Outlook heraus gehts nicht!!

Nächster Schritt:

Ich öffne wieder den Editor mit ALT+F11.
Ich importiere die Datei mit dem Makro-Code noch einmal.
Ich schließe den Editor wieder.
Ich öffne in Outlook noch einmal das Makro Dialogfenster (ALT+F8).

Hier finde ich jetzt 2 Einträge



Hinter beiden Einträgen steckt das gleiche Makro!
Beide Einträge können aus Outlook heraus ohne Fehler gestartet werden!


Zusammenfassend:
Code einmal importiert -> Editor geht; Outlook nicht!
Code zweimal importiert -> Editor geht; Outlook auch (beide Einträge)!

Vllt kann das ja mal jemand bei sich probieren, oder mir sogar direkt den Fehler nennen.


Verweise sind folgende angehakt:



Schonmal vielen Dank.

 

[dhjgv]

...Erlösung!!

Mein Kollege hat es grade hinbekommen, alllrdings auf einem Weg, den ich eigentlich bereits getestet hatte...aber es geht jetzt:

Problem war, dass der Modulname (Der in dem Projektexplorer angezeigt wird) NICHT gleich dem Sub-Namen sein darf!

Bei mir hieß die erste Sub "PST_Import", und das Modul ebenfalls.

Jetzt habe ich ein neues "Modul1" angelegt, meinen Code eingefügt und das ganze gespeichert, und es funktionierte SOFORT auch aus dem Outlook heraus!