oReader, Infocenter ---> .txt File schreiben mit Betreff/Text/Copyout(Pfad) dur ; getrennt

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.

Hallo,

danke für die Antwort, wenn ich das Script hätte, bräuchte ich die DvApi überhaupt nicht mehr. Also nur txt einlesen in meine File und fertig.

pekys ? Was ist los ? LEs doch bitte mal meinen ersten Beitrag da war doch gar nix komisches oder blödes dabei ?