David, DVAPI32.dll, neue email erstellen

[delphigeorge]

.... in den VBA-Beispeilen sieht das alles so einfach aus.

2 Fragen zu dem Code:

1. wie komme ich an die Recno der neu erstellten email ( in meinem Beispiel immer -1 )?
2. stimmt der Aufruf DVWin32.EXE ( IntToStr(TobitArchiv.ID) bringt Schutzverletzung )?

Delphi-Quellcode:

         TobitApp:= CreateOleObject('DVOBJAPILIB.DvISEAPI');
         TobitAcc:= IDispatch(TobitApp.LogOn) as Account;
         TobitArchiv := TobitAcc.GetSpecialArchive(DvArchivePersonalOut);
         oMailItem := IDispatch(TobitArchiv.NewItem(DvEMailItem)) as MailItem;
         oMailItem.Subject := edbetreff.Text;
         oMailItem.Options.UserHold := False;
         for i := 0 to lbBCC.Items.count -1 do
         begin
           oMailItem.Recipients.Add(lbBCC.Items[i],'MAIL', '');
         end;
         oMailItem.Save(TobitArchiv, DvMsgSelEMail);
->         Recno := VarToStr(oMailItem._ID);
         with TRegistry.Create do
         try
          RootKey := HKEY_CURRENT_USER;
          if OpenKey('\Software\Tobit\Tobit InfoCenter\Settings', false) then
            Tobitpath := Readstring('ProgramDirectory')
          else
            Tobitpath := '';
         finally
           Closekey;
         end;
         if TobitPath <> '' then
         begin
->           TobitStart := TobitPath + '\DVWIN32.EXE ' + IntToStr(TobitArchiv.ID) + ' /POS= ' + IntToStr(Recno) + ' /SA=34';
           ShellExecute(Handle, 'open', PChar(ExtractFileName(TobitStart)),'', PChar(ExtractFileDir(TobitStart)),SW_SHOW);
         end;