Show TOC

HintergrundAufruf der Mail-Klasse Dieses Dokument in der Navigationsstruktur finden

 

Sie haben die Mail-Klasse nun fertiggestellt bis auf die Methode zum Lesen des Mail-Textes (GET_TEXT). Diese Methode liest den Mail-Text nur und gibt ihn als HTML formatiert an den Aufrufer. So können Sie in der folgenden BSP anzeigen, welches Mail verschickt wird.

Der Aufruf der Methoden geschieht nur dann, wenn kein Fehler bei der Eingabe aufgetreten ist und die Mail-Adresse gefüllt ist (Seite order.htm, Eventhandler OnInputProcessing).

Syntax Syntax

  1. if page->messages->num_messages( ) eq 0.
    if mail_address is not initial.
Ende des Codes

Eine Instanz der gerade angelegten Klasse ist unter dem Attribut application überall in der Seite ansprechbar. Das Setzen der Adresse erfolgt also einfach mit:

Syntax Syntax

  1. application->set_address( name = name                               
                              street = street 
                              zipcode = zipcode
                              city = city ).
Ende des Codes

Als Zeitpunkt wählen Sie den Mittelwert aus dem frühesten und spätesten Termin und rufen dann die Methode SET_TIME auf:

Syntax Syntax

  1. data: time_when type t.
    time_when = time_from + ( time_to - time_from ) / 2.
    
    application->set_time( date = date_at
                           time = time_when ).
    
Ende des Codes

Zum Senden wird die Mail-Adresse und das Messages-Objekt (siehe Objekt messages) übergeben, damit Fehlertexte in die Messages-Liste eingetragen werden können.

Syntax Syntax

  1. call method application->send
    exporting mail_address = mail_address
    changing  messages     = page->messages .
Ende des Codes

Wenn alles fehlerlos durchgelaufen ist, übergeben Sie den Mailtext an die Folgeseite (nachdem Sie die Methode in der Klasse angelegt und efüllt haben). Dort wird der Text ausgegeben.

Syntax Syntax

  1. if page->messages->num_messages( ) eq 0.
    data text type string.
    text = application->get_text( ).
    navigation->set_parameter( name = 'mailtext' value = text ).
    navigation->next_page( 'show' ).
    endif.
    else.
    navigation->next_page( 'no_address' ).
    endif.
    endif.
Ende des Codes