Codeblock Onlinehilfe
Codeblock Onlinehilfe
Breadcrumbs

TBeMemoBOEMail

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 

| 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