Business Object Event "Nach dem Import einer E-Mail"
Business Object Event "Nach dem Import einer E-Mail"
Dieser Event wird aufgerufen, wenn ein eine E-Mail-Nachricht als Memo Business-Objekt importiert wurde.
Das Memo wurde bereits gespeichert, die umgebende Transaktion ist noch aktiv.
Über den Parameter oMailImportedInfo:P3 (TBeCbMailImportedInfo) können Zusatz-Informationen abgerufen
werden und Aktionen definiert werden, die auf dem Mail-Server ausgeführt werden sollen.
Während der Ausführung dieses Events sollte keine Dialogsteuerung zum Einsatz gelangen, da künftige
be-Versionen den E-Mail-Import serverseitig ausführen werden.
Beispiel
CODE
// ******************************************************************************
// Beispiel 1
// Memo-Typ setzen und "Gelesen" markieren
// ******************************************************************************
|nEvtNo:P1, oMemoBO:P2, oMailImportedInfo:P3|
// Aufruf erfolgt nach dem Import eines E-Mails als Memo.
// - Das Memo Business-Objekt ist bereits gespeichert.
// - Die Transaktion ist noch aktiv.
// - Mittels des oMailImportedInfo-Objekts (TBeCbMailImportedInfo) können
// weiterführende Aktionen auf dem MailServer definiert werden, die anschließend
// zeitversetzt ausgeführt werden.
// Hinweis: Verzeichnis-Operationen erfordern eine eingerichtete IMAP-Verbindung.
// - Achtung: in diesem Programm keine Dialogsteuerung verwenden.
oMemoBO.CbEdit(),
// Typ z.B. auf "E-Mail" setzen (macht bereits der Standard)
oMemoBO.MemoTypeValue := 50,
// "Gelesen" markieren für den aktuellen User - mit History-Eintrag
oMemoBO.MarkAsRead.UserID := c_usr,
oMemoBO.MarkAsRead.WriteMemoHistory := true,
oMemoBO.MarkAsRead.CBMarkAsRead(),
oMemoBO.CbPost(),
// ******************************************************************************
// Beispiel 2
// E-Mail auf dem Server in Mailbox "DUPLIKATE" verschieben und Memo löschen
// ******************************************************************************
| nEvtNo:P1, oMemoBO:P2, oMailImportedInfo:P3 |
// Aufruf erfolgt nach dem Import eines E-Mails als Memo.
// - Das Memo Business-Objekt ist bereits gespeichert.
// - Die Transaktion ist noch aktiv.
// - Mittels des oMailImportedInfo-Objekts (TBeCbMailImportedInfo) können
// weiterführende Aktionen auf dem MailServer definiert werden, die anschließend
// zeitversetzt ausgeführt werden.
// Hinweis: Verzeichnis-Operationen erfordern eine eingerichtete IMAP-Verbindung.
// - Achtung: in diesem Programm keine Dialogsteuerung verwenden.
if oMailImportedInfo.CanDoImapOperations and
oMailImportedInfo.DuplicateMemoId > 0 then
oMailImportedInfo.ImapOperations.CreateMailBox('DUPLIKATE'),
oMailImportedInfo.ImapOperations.MoveToMailBox(oMailImportedInfo.ImportedUId,
oMailImportedInfo.ImapMailBoxPath,
'DUPLIKATE'),
oMemoBO.CbDelete(),
endif