Export in Dokumentenarchiv per Kontextmenü

Moin!

Zitat von nordtech

Was funktioniert, ist eine Mail per drag'n'drop auf den Desktop zu ziehen, so eine .eml-Datei zu erstellen, und diese per Rechtsklick und "senden an..." ins Archivsystem zu übergeben. Das ist dem Kunden aber manuell zu umständlich, und nun sucht er nach einer vereinfachten Variante, am besten mittles eines simplen Rechtsklicks auf die Nachricht direkt im David und eine entsprechende Option.
[..]
Ist das für Normalsterbliche möglich, oder muss man dazu eine eigene Lösung programmieren?

Das bekommste schon hin. Nachfolgender Code - nicht von mir - schreibt die aktuell geöffnete Mail als EML in einen Ordner

Sub Initialize(oInfoCenter, key) Set oBar = oInfoCenter.GetCommandBar("MessageView/Standard") oBar.Insert 4, "Ablage", key, "ablage.ico", "OnAblageButton", true End Sub sub OnAblageButton(oInfoCenter, oReader) if oReader.Item.Type <> DvEMailItem then oInfoCenter.MsgBox "Dieser Eintrag ist keine eMail", "OkExclamation" exit sub end if Set oItem = oReader.Item.ChangeType(DvUnknownItem) Set oConverter = oInfoCenter.Account.CreateExporter Set oCollection = oConverter.GetCollection oCollection.Add oItem oConverter.Convert FormatEML, "C:\Mail.eml" end sub

oConverter.Convert FormatEML, "C:\Mail.eml"

Hier passte halt den Pfad an und den Dateinamen kannste ja auch zur Laufzeit generieren - iwas aus USER + Datum + Uhrzeit + RANDOM, oder was weiß ich.
Wenn der Benutzer dann eine Mail öffnet, hat er in dem Fenster einen "Button", welcher in diesem Fall mit "Ablage" beschriftet ist. Klickt er drauf, wird sie in den angegebenen Pfad als EML geschrieben.

O.g. Code auf den Server im Verzeichnis "DAVID\CODE\SCRIPTS" als VBS ablegen und den Benutzern im DAVID Admin zuordnen Benutzer -> Benutzerdaten -> david Client konfigurieren -> Skripte -> Individuelle Scripts -> Hinzufügen und deine VBS auswählen.

O.g. mal so als Anreiz

Erstmal Danke für das tolle Script !

Kann das hier auch gut gebrauchen.

Allerdings habe ich nie ein Nachrichtenfenster "offen" sondern lediglich die Vorschau neben der Liste.
Da gibts nur eine Reihe von Buttons oben.

Gibts eine Dokumentation um herauszufinden, wie man das Script anpassen kann um den "Ablage-Button" an anderer Stelle abzulegen

Moin

Zitat von nordtech

Gefunden habe ich aber nur Befehle für das Einbinden von weiteren Informationen aus der E-Mail, also z. B. oConverter.Convert FormatEML, "c:\test\test" & oItem.subject - was nach meinem Verständnis den Betreff mit in den Dateinamen packt.

Also meiner Meinung nach müsste es

Zitat

oConverter.Convert FormatEML, "c:\test\test" & oMsgItem.Subject &".eml"

heißen aber sei es drum

Datum unformatiert ist IMO "date", also

Zitat

oConverter.Convert FormatEML, "c:\test\test" & date &".eml"

Zufallsnummer wäre "rnd". Aber "rnd" müsste man optimalerweise noch anpassen sonst kommt ne Zahl ala 0.34563985 raus. Also mit "." Muss also formatiert werden.

Zitat

oConverter.Convert FormatEML, "c:\test\test" & rnd &".eml"

Aber alles nur aus dem Kopf, nix gegengeprüft.

Moin!

Zitat von nordtech

Cossys' Frage ist auch interessant, das würde noch einen Doppelklick einsparen...

Könnte statt

Zitat

Set oBar = oInfoCenter.GetCommandBar("MessageView/Standard")

auch

Zitat

Set oBar = oInfoCenter.GetCommandBar("Menu/Global")

sein...

ODER

Zitat

Set oBar = oInfoCenter.GetCommandBar("Menu/Main")

Obwohl ich glaube, dass "Main" der Bereich ist, wo "Datei, Persönlich, Bearbeiten" usw. steht. Also das Hauptmenü. Global könnte passen.

Aber ob es funzt kann ich nicht sagen. Bin zu faul zum testen

Wenns klappt schick ich euch mein PayPal Account.

Hallo zusammen,

der "Wunsch Eintrag" wäre Set oBar = oInfoCenter.GetCommandBar("Main/Entries").

Leider reicht ein Ändern dieses Codeteils nicht aus. Der Button funktioniert an der Stelle nicht.

Ich vermute, daß für das Skript jetzt nicht klar ist, welches Objekt aktiv ist.
Leider versteh ich das Objektmodell noch nicht wirklich

Moin!

Ich hab euch da mal was gebaut - hab also meine Faulheit überwunden
Die Prüfung, ob es sich bei den Objekten um eine Mail handelt, müsst ihr aber selber einbauen.

Export einer Mail oder mehrerer Mails, durch drücken der STRG Taste, gleichzeitig möglich und - oh Wunder - direkt aus dem Info Center.

Sub Initialize(oInfoCenter, key) 
Set oBar = oInfoCenter.GetCommandBar("Main/Entries") 
oBar.Insert 4, "Ablage", key, "ablage.ico", "OnAblageButton", true 
End Sub 
sub OnAblageButton(oInfoCenter, oReader)
i = 0
Set oEntryList = oInfoCenter.EntryList
Set oSelection = oEntryList.Selection
for each oItem in oSelection
Set oMsgItem = oItem.GetInterface2
Set oItem = oMsgItem
Set oConverter = oInfoCenter.Account.CreateExporter 
Set oCollection = oConverter.GetCollection 
oCollection.Add oItem 
oConverter.Convert FormatEML, "Q:\DMS\export"& rnd & ".eml" 
i = i + 1
next
oInfoCenter.MsgBox "Anzahl exportierter Mails: " & i, "OkExclamation" 
end sub

Greetz

Getestet und für SEHR gut befunden !

Vielen Dank für die Bemühungen !!!

[Ich sehe schon - das mit er Objektstruktur muß ich mir mal in einer ruhigen Minute verinnerlichen]