TBeMemoBOEMail

Die Klasse TBeMemoBOEMail kapselt Eigenschaften und Funktionen für den E-Mail-Versand eines Memos.

Hinweis:
Die "Interne-Notiz" bei E-Mail Versand kann über den Business-Objekt Event "vor dem Setzen der internen Notiz"angepasst werden.

Eigenschaften

Eigenschaft	Beschreibung
EMail.LayoutMode:L	(default) False = E-Mail-Layout bearbeiten/einstellen
EMail.IsSent:L	Wurde das Memo bereits als E-Mail verschickt
EMail.IsReceived:L	Ist das Memo eine Empfangene-E-Mail
EMail.ShowProgress:L	Fortschritts-Anzeige bei E-Mail Versand anzeigen
EMail.SendAttachments:L	Memo-Anhänge bei E-Mail Versand mit verschicken

Funktionen

Funktion

Parameter

Beschreibung

EMail.CanEMail:L

Kann das Memo als E-Mail verschickt werden

EMail.CBSendEMail():L

Memo als Fax versenden
Rückgabe = True bei erfolgreichem E-Mail Versand

aRecipients:C

Liste der E-Mail Empfänger mit ; getrennt.
mögliche Empfänger Formate:

- to: Name <test@test.de>
- to_int: Name <test@test.de>
- cc: Name <test@test.de>
- cc_int: Name <test@test.de>
- bcc: Name <test@test.de>
- bcc_int: Name <test@test.de>

&#183 "Name" ist optional

&#183 Wenn dieser Parameter mit leer übergeben wird, dann werden die vorhandenen E-Mail Empfänger aus oMemoBO.MailRecipientValue verwendet

aShowEMailDialog:L

(default) True = Dialog zur Auswahl der E-Mail Empfänger, der Anhänge sowie der Internen-Notiz anzeigen

Beispiel

CODE

| oMemoBo, cRecipients |

// Memo E-Mail Versand
oMemoBo := CreateObject('TBeMemoBo'),
startseq,
  oMemoBo.MemoID := 5716,
  oMemoBo.WriteLastUsedUserID := c_usr,

  // Kann das Memo überhaupt per E-Mail verschickt werden
  if oMemoBo.EMail.CanEMail() then
    oMemoBo.EMail.LayoutMode      := False,
    // Memo-Anhänge nicht mitschicken
    oMemoBo.EMail.SendAttachments := False,
    // Keine Progress-Bar beim Verschicken anzeigen
    oMemoBo.EMail.ShowProgress    := False,
    // Zu den Empfängern noch "test@test.de" als Kopie-Empfänger hinzufügen
    cRecipients := oMemoBO.MailRecipientValue + ';cc:Max Muster <test@test.de>',
    // Verarbeitung starten
    oMemoBO.EMail.CBSendEMail(cRecipients, True),
  endif,
always,
  DestroyObject(oMemoBo),
stopseq,

Weitere Verknüpfungen

TBeMemoBO