Domino 9 und frühere Versionen > ND6: Entwicklung

OLE mit Delphi - als gelesen markieren

(1/2) > >>

dataspider:
Hallo,

ich versende aus Delphi Mails. Diese werden im Ordner Gesendet gespeichert und als ungelesen gekennzeichnet.
Gibt es über OLE einen Weg, diese als Gelesen zu markieren?

Ich habe die Klasse mal angehangen.

Das Versenden erfolgt mit:

FNotesMail := TrwNotesMail.Create(Self);
with FNotesMail do
begin
  OnStatusChange := doMailStatusChange;
  Password := '******';
  SendTo   := 'test@domain.de';
  Subject  := 'Test Delphi und Lotus Notes';
  BodyText.Add('Hallo ?');
  AttachFiles.Add('d:\test.rar');
  AttachFiles.Add('d:\test.txt');
  Connect;
  SendMail;
end;


Danke, Frank

koehlerbv:
Hallo Frank,

wenn die Bordmittel nicht anschlagen (eigentlich wäre das

--- Code: ---//MailItem.Save(True, False, True);
--- Ende Code ---
aber das hast Du auskommentiert), dann werden die OLE-Methoden da wohl nicht mitspielen.

Das

--- Code: ---MailItem.ReplaceItemValue('MarkRead', True);
--- Ende Code ---
ist auf jeden Fall ein untauglicher Versuch, da das nichts mit Notes zu tun hat. Die Ungelesen-Markierungen werden DB-intern verwaltet, und das immer User-bezogen. Muss ja auch so sein.

Hier musste ich wieder schmunzeln:

--- Code: ---except
Status := 'Mail konnte nicht gesendet werden...';
// Scheisse
end;
--- Ende Code ---
Da zeigt sich wieder, welches die Sprache ist, die der Programmierer wirklich perfekt beherrscht  ;D

Bernhard

dataspider:
Hallo Bernhard,

MailItem.Save(True, False, True); speichert bei mir die Mail im Ordner Entwürfe.
Der letzte Parameter heisst MarkRead und hier kann ich angeben, ob die Mail als gelesen markiert wird oder nicht.

MailItem.ReplaceItemValue('MarkRead', True);
Hab ich schon bemerkt, dass es nicht funktioniert. Aber leider kann man auch aus der erzeugten Unit für Delphi nur die Header lesen, aber nicht die gültigen Parameter. Dafür muss ich mich dann sicher durch die Notes - Hilfen wühlen.
Aber da ich recht wenig Erfahrung damit habe, ist es schon mühsam.

Und - verdammt - man sollte doch seine Codeschnipsel zumindest von schnellen Kommentaren bereinigen, bevor man sie öffentlich macht.  ;)

Es ist auch nicht so schlimm, wenn es nicht lösbar ist. Es ist halt nur bei denen, die viele Mails versenden, etwas verwirrend, wenn beim Start von Notes immer eine rote Zahl erscheint, und dann sind gar keine Mails eingegangen.

...auf jeden Fall erst mal - Danke

Frank

LN4ever:
Der dritte Parameter im SAVE-Statement gibt mir doch jetzt ein kleines Rätsel auf. In der Hilfe steht:

markRead
Boolean. If True, the document is marked as read. If False (default), the document is not marked as read.

Es gibt zwei Möglichkeiten, wie Notes damit umgeht. Dazu ein kurzer Ausflug zu den Gelesen-Markierungen. Diese Markierungen werden für jeden Benutzer auf Dokumentenebene mitgeführt und bei jeder Änderung des Dokuments verworfen (das Dokument ist nach einem SAVE für Jeden (wieder) ungelesen).

Der dritte Parameter kann nun zwei Ausprägungen haben:
1. nach dem Speichern ist das Dokument für Jeden gelesen
2. die existierende Liste der Gelesen-Markierungen wird nicht verworfen - das Dokument ist für diejenigen, die es gelesen haben, gelesen, für diejenigen, die es noch nicht gelesen haben, weiterhin ungelesen.

Nur der zweite Ansatz macht m.E. Sinn, aber ich frage hier einmal in die Expertenrunde. Wie ist es denn nun ?

Glombi:
Meiner Meinung nach auch Punkt 2.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite