Hallo Cento,
vielen Dank für deine Hilfe. Habe nun alle meine Vorstellungen hinbekommen bis auf eine Sache. Ich möchte den Firmennamen des Empfängers und nicht des Absenders im .eml Dateinamen mit abspeichern.
Wie muss ich den Eintrag abändern das die Firma des Empfängers ermittelt wird?
Gruß
Dreamar
Sub Initialize(oInfoCenter, key)
Set oBar = oInfoCenter.GetCommandBar("MessageEditor/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 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" & Right(oItem.subject,2) & "\" & Right(oItem.subject,6) & "\" & oItem.subject & " - " & oAddress.AddressItem.Company & ".eml"
end sub