Office: (Office 2013) Mails aus einem Postfach auslesen und verarbeiten

Ah Perfekt, genau das war es.
Einfärben ging übrigens nicht, weil er bei einem Endlosformular dann immer alle Felder markiert. Einzelne Datensätze sind wohl nicht möglich.
Habe es deshalb mit einer Checkbox gelöst

Jetzt müsste ich aber noch die ausgelesene Referenz umformatieren und in ein Feld schreiben, damit ich es später weiter verwenden kann.

In der Mail ist es ja noch im Format
[[~000.000.000~]]

Im Feld soll es dann aber nur so sein
000000000

Wie kopiere ich das denn entsprechend raus und formatiere es um?
Im Str suche ich ja nur nach
"[[~"
Also quasi den Anfang der Referenz...

 

Also wenn das einfärben einzelner Zeilen oder Felder nicht funktionieren würde hätte ich es nicht geschrieben, aber der Hacken ist einfacher.

Bezüglich Text extrahieren schau dir die Funktionen Mid und Replace an.
Wenn du außerdem im Objektexplorer Klasse VBA, Klasse STrings findest du alle String Funktionen.

 

Ich verzweifel gerade daran, bei der Suche einen "Platzhalter" einzubauen....

Ich möchte bei der Suche sichergehen, dass es sich bei dem gefundenen um eine Referenz handlet

"[[~000.000.000~]]"

Wobei die Ziffern in der Mitte sich natürlich immer anpassen.
Sowohl mit ? als auch mit * hatte ich kein Glück, hast du noch einen Tipp für mich?

 

schau mal unter like nach.
da gibts auch verschiedene Beispiele.

LG M

 

kleines Beispiel:
Code:

LG M

 

Danke dir nochmal!

Irgendwie findet er mir damit aber auch nichts
die Ausgangslage ist bei mir eher so

Code:

Das Like sucht doch vermutlich nur die ersten Zeichen nach meiner vorgegebenen Struktur ab oder?

 

Das Like sucht doch vermutlich nur die ersten Zeichen nach meiner vorgegebenen Struktur ab oder?

Du musst es schon an deine Situation anpassen. An Mid musst du ja die Startposition übergeben. Die hast du ja davor bereits mit instr erfahren.
Du solltest versuchen den Code zu verstehen und nicht einfach nur kopieren.

LG M

 

Danke dir *Smilie
Hab es verstanden und umgesetzt

Nun ist ein weiteres Problem aufgetaucht, ich möchte gerne die Mails als .msg Datei in einem Ordner speichern. Der Ordner soll, falls eine Referenz gefunden wurde, nach dieser benannt werden.
Folgender Code dazu:
Code:

Weiter oben zuätzlich: Set varitem = folder.Items(i)

Nun legt er mir zwar die Ordner an ohne Probleme, jedoch beim Versuch eine Mail in einem Verzeichnis zu speichern erscheint der Fehler, er hätte keine Schreibberechtigung.
Fehler 440
"In die Datei 'C:\Offline\screenshots' kann nicht geschrieben werden.
Klicken Sie mit der rechten Maustaste auf den Ordner, der die Datei enthält, in die Sie schreiben möchten. ...."
Diese ist natürlich vorhanden.
Ich habe auch verschiedene Pfade getestet, Lokal als auch im Netzwerk.
Habt Ihr eine Idee wo das Problem liegt?

LG

 

In der Variable Verzeichnis steht doch der Ordner und nicht der ganze Pfad - der wäre aber erforderlich.

LG M

Beispiel:
varitem.SaveAs Verzeichnis & "Dateiname.msg", olSaveAsMsg

 

*entsetzt
Klar, da hätte ich selber drauf kommen können, sorry.

Nun kann ich zumindest auf lokalen Verzeichnissen speichern.

Das Speichern auf einem Sharepoint funktioniert nur leider nicht, wieder der Fehler man hätte keine Schreibberechtigung.
Händisch kann ich aber Dateien in genau diesem Verzeichnis anlegen.
Der Pfad sieht so aus:
\\share.tools.xxxxx.eu\sites\Abteilung\xxxxx\

Gibt es da bei einem Sharepoint eine Besonderheit?
Ich habe leider nichts konkretes dazu gefunden.

Lg

 

Die Besonderheit ist in der Regel, dass der Programmierer einen Fehler gemacht hat und zu wenig genau schaut um den Fehler zu finden. Wenn etwas von Hand geht und du machst genau das gleiche per Code sollte es doch funzen?

LG M

LG M?

 

Hm...

Der Code bleibt ja fast identisch, ich ändere nur das Verzeichnis von:
Verzeichnis = "C:\Offline\Mails" (Hier funktioniert es)

Auf:
Verzeichnis = "\\share.tools.xxxxx.eu\sites\Abteilung\xxxxx\"
Hier funktioniert es nicht

Auch funktioniert es nicht wenn ich es als Netzlaufwerk eingebunden habe:
Verzeichnis = "Z:\Mails\"

Das "Besondere" ist das hier die Fehlermeldung direkt in Outlook gezeigt wird:
"Diese Datei kann von Outlook nicht gespeichert oder erstellt werden. Stellen Sie sicher, dass der Datenträger nicht voll, schreibgeschützt oder beschädigt ist."

Wähle ich eine E-Mail händisch in Outlook und möchte diese als .msg in dem Verzeichnis speichern, funktioniert das jedoch problemlos.

 

Ich kann das Problem leider nicht für dich lösen.
Versuch einfach systematisch das Problem zu isolieren, bis du weißt woran es liegt. *wink.gif*

LG M

 

Hallo *wink.gif*

Ich mal wieder, konnte das letzte Problem tatsächlich lösen.

Offensichtlich wurde in der Zwischenzeit eine Regel im Sharepoint aktiviert, die das Speichern von ".msg" Dateien verbietet.

Löse es jetzt aber ganz anders, und speichere die wichtigen Informationen in einer DB statt die Mail als .msg zu speichern.

Nun zu meinem aktuellen Problem. Ich lasse eine E-Mail aus Outlook wieder öffnen mit der "GetItemFromID" Methode.
Dazu verwende ich die EntryID. Leider verändert sich diese sobald, diese in einen anderen Ordner verschoben wird.
Während der Verarbeitung einer Mail, wird diese auch in einen Unterordner verschoben. Dabei möchte ich die veränderte OLID gerne direkt in die DB übertragen.
Das sieht in etwas so aus:
Code:

Das Problem ist aber, dass die EntryID in dieser Methode sowohl vor dem verschieben als auch nachdem verschieben die gleiche ist.
Wie greife ich denn am Besten die akutalisierte EntryID ab, ohne dass ich einen ganzen Ordner wieder durchsuchen muss?

Wäre super wenn jemand unterstützen kann! Vielen Dank vorab *Smilie

 

Das Problem ist aber, dass die EntryID in dieser Methode sowohl vor dem verschieben als auch nachdem verschieben die gleiche ist.
Wie greife ich denn am Besten die akutalisierte EntryID ab, ohne dass ich einen ganzen Ordner wieder durchsuchen muss?

Wäre super wenn jemand unterstützen kann! Vielen Dank vorab *Smilie

Schau mal in der Hilfe beim Befehl move nach.
Zuerst immer beim Befehl in der Hilfe nachsehen -> und genau lesen. Spart oft viel Zeit und Nerven.

LG Markus