Beiträge von Stevie

Hallo,

ich versuche ein Abbild eines Archives in meinem Programm darzustellen und lese dazu mit folgendem Code das Archive aus:

oItems := TobitArchiv.GetArchiveEntries(DvFilterDefault Or DvFilterUnViewed);


   iMax := oItems.Count -1;


   iMin := 0;


   lvTob.Clear;
   pgb1.Position := 0;


   pgb1.Max := iMax;


   pgb1.Visible := TRUE;






   for x := iMin to iMax do


   begin


      pMessageItem2 := oItems.Item(x) ;


      oFields := Fields(pMessageItem2.Fields);


      ls := lvTob.Items.Add;


      ls.Caption := oFields.Item(Field_SRfrom).Value;


      s := oFields.Item(Field_Subject).Value; 


      if trim(s) = '' then  s := ' - ohne Betreff - ';


      ls.SubItems.Add(s);


      ls.SubItems.Add(oFields.Item(Field_StatusTime).Value); 


      ls.SubItems.Add(oFields.Item(Field_RecNo).Value); 


      pgb1.StepIt;


   end;

Der erste Aufruf füllt mein Listview schön mit allen Daten!

Wenn ich jetzt zum Aktualisieren die Routine erneut starte kommt es zu Indexfehlern (Listenindex außerhalb des gültigen Bereichs(1))
Dieser Fehler entsteht genau auf der Zeile wo ich Field_SRFrom abfrage.
Ändere ich das z.b. in Field_SRTo läuft er anstandslos durch!

Jemand eine Idee wo das her kommt?

ist erledigt... Habe es gefunden!

pMessageItem.Save(TobitArchiv.ItemFromID(StrToInt(Item.SubItems[2]),34),0);

So gehts!

Danke

Hallo Zusammen,

ich verwende Delphi und DVApi32 um mit unserer David30 Version zu kommunizieren.

Problemstellung:
Die Mails werden in meinem Programm angezeigt und als EML Kunden zugeordnet. Anschließend soll das Subject der Mail voran die Kunden nummer bekommen, damit man die Archivierung von Tobit nutzen kann und ich sehe welche eMail welchem Kunden zugeordnet wurde.

Jetzt habe ich MessagItem2, MessageItem und MailItem genutzt um irgendwie die bestehende eMail zu ändern. Keine der von mir getesteten Versionen brachte Erfolg. Zudem oft nichts passierte oder mir David einfach eine "neue" leer eMail erzeugte. Absender war ich nur das Subject passte

Windows 10
Delphi XE7
David Version: 330.8534
DVAPI: 330.0547

Anbei mal mein Code:

pMessageItem := TobitArchiv.ItemFromID(StrToInt(Item.SubItems[2]),34);
pMessageItem.Subject := '##0030051023 ' + pMessageItem.Subject;
pMessageItem.Save(TobitArchiv,0);

oder

oMailItem := pMessageItem as MailItem;
oMailItem.Subject := '##0030051023 ' + oMailItem.Subject;
oMailItem.Attachments.ExecCommand(8, Null, Null);

oMailItem.Save(TobitArchiv, DvMsgSelEMail);
oder
oMailItem.Save(NULL, 0); // oder (TobitArchiv, 0);

wie gesagt egal was ich mache, entweder passiert nix oder ich bekommen eine neue eMail.
Weiß jemand was ich falsch mache oder hatte schon mal ähnliche Probleme?

Vielen Dank!
Stefan