Hallo,
ich folgenden Code der für auch soweit das tut was er soll. Er soll bei Ausführung eine ausgewählte Mail in einen Pfad ablegen der vom Betreff abhängig ist.
Nur um diesen Code auszuführen muss ich die Mail erst öffnen, was sehr nervig ist da ich eigentlich nur die Vorschau nutze.
Code
Sub Initialize(oInfoCenter, key)
Set oBar = oInfoCenter.GetCommandBar("MessageEditor/Standard")
oBar.Insert 4, "Ablage", key, 42, "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 oFrom = oReader.Item.From
Set oAddress = oInfoCenter.ContactManager.Resolve(oFrom.EMail)
if not IsNull(oAddress) then
on error resume next
end if
Set oItem = oReader.Item.ChangeType(DvUnknownItem)
Set oConverter = oInfoCenter.Account.CreateExporter
Set oCollection = oConverter.GetCollection
oCollection.Add oItem
oConverter.Convert FormatEML, "F:\AAA Projekte" & "20" & Mid(oItem.subject,16,2) & "" & Mid(oItem.subject,12,6) & "" & oItem.subject & ".eml"
end subWie kann ich diesen Code so nutzen das ich aus dem Infocenter heraus das ablaufen lassen kann?
Ich hatte schon folgendes benutzt um den Ablauf zu starten, aber ohne Erfolg.
Code
sub Initialize(oInfoCenter, key)
Set oBar = oInfoCenter.GetCommandBar("Menu/entries")
oBar.Insert "Extras/#start", "Verschieben", key, 42, "OnAblagebutton", true
end sub