Hallo,
ich habe ein Programm geschrieben in Access. Nun wollt ich auf Tobit per DVapi zugreifen. Allerdings ist das extrem langsam.
Das Script sollte folgendes machen
sub Initialize(oInfoCenter, key)
Set oBar = oInfoCenter.GetCommandBar("MessageView/Standard")
oBar.Insert 1, "Dashboard Eintrag erzeugen", key, "root.ico", "OnBtnPress", true
end sub
sub OnBtnPress(oInfoCenter, oReader)
if oReader.Item.Type <> DvEMailItem then
oInfoCenter.MsgBox "Dieser Eintrag ist keine eMail", "OkExclamation"
exit sub
end if
'***Anhang
CopyOut Call oAttachment.CopyOut(oAttachment.Account.ArchiveRoot.FullPath + "\Shared", oAttachment.Filename)
'**Zur Not auch EML Datei schreiben
'*** Betreff / Text / Filename / oAttachment.Account.ArchiveRoot.FullPath in eine txt File schreiben lokal auf c:\
Set objShell = CreateObject ("WScript.Shell")
objShell.run "c:\Tobit.mda" '*** Mein Programm aufrufen, dort lese ich auch die txt file ein.
end sub
Vielleicht hat jemand ein Tipp, wie ich das bzw ob man das umsetzen kann.