OBS/Makros und Scripting/Anwendungsbereiche/Beispiele Sammlung: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „The title regarding the journalist is Shaunna Blair but it's perhaps not the most feminine name around. in my own professional life i will be a postal solution…“)
 
(Die Seite wurde neu angelegt: „{{Makros und Scripting}} =Beispiele Sammlung= ==Erstellung einer E-Mail== :<source lang="delphi"> function StartProc():Boolean; var oEmail: TEmail; begin o…“)
Zeile 1: Zeile 1:
The title regarding the journalist is Shaunna Blair but it's perhaps not the most feminine name around. in my own professional life i will be a postal solution worker. New [http://Www.thefreedictionary.com/Hampshire Hampshire] is her delivery destination but now she is considering additional options. The favorite hobby for him and their children is do [http://Www.Thefreedictionary.com/origami origami] but he cannot allow it to be his career. i have been taking care of my internet site for some time now. Check it out right here: http://www.sandvimprovements.com.au/UserProfile/tabid/57/userId/91137/Default.aspx<br><br>Also visit my web site ... [http://www.sandvimprovements.com.au/UserProfile/tabid/57/userId/91137/Default.aspx Naked U Season 2 Review]
{{Makros und Scripting}}
=Beispiele Sammlung=
==Erstellung einer E-Mail==
:<source lang="delphi">
function StartProc():Boolean;
var oEmail: TEmail;
begin
    oEmail                := TEmail.Create();
 
    try
        //E-mail wird direkt freigegeben (Aktiv = Ja)
        oEmail.lSofortSenden  := True;
        //Signatur aus Konto Laden
        oEmail.lSignature      := True;
        oEmail.cPersNr        := '000111';
        oEmail.cAn            := 'obs@bergau.de';
        //Anhand der von Andresse wird das Konto ermittelt von dem gesendet wird
        oEmail.cVon            := 'info@bergau.de';
 
        oEmail.cBetreff        := 'Betreff';
        oEmail.cMessage        := 'TEST';
 
        //Tabelle im HTML Format
        oEmail.cHTMLMessage    := '<html>' +
                                  '<table>' +
                                  '  <tr>' +
                                  '    <th>Vorname</th>' +
                                  '    <th>Nachname</th>' +
                                  '    <th>Alter</th>' +
                                  '  </tr>' +
                                  '  <tr>' +
                                  '    <td>Max</td>' +
                                  '    <td>Mustermann</td>' +
                                  '    <td>50</td>' +
                                  '  </tr>' +
                                  '</table>' +
                                  '</html>';
 
        oEmail.cAttachment    := 'c:\Temp\test.pdf' + CRLF + 'c:\temp\test2.txt';
 
        oEmail.Generate_Email();
        oEmail.Generate_Email_Personen_Projekt();
        oEmail.Generate_Email_Personen_Document();
    finally
        MyFreeAndNil(oEmail);
    end;
end;
</source>

Version vom 12. August 2020, 11:00 Uhr


Beispiele Sammlung

Erstellung einer E-Mail

function StartProc():Boolean;
var oEmail: TEmail;
begin
    oEmail                 := TEmail.Create();

    try
        //E-mail wird direkt freigegeben (Aktiv = Ja)
        oEmail.lSofortSenden  := True;
        //Signatur aus Konto Laden
        oEmail.lSignature      := True;
        oEmail.cPersNr         := '000111';
        oEmail.cAn             := 'obs@bergau.de';
        //Anhand der von Andresse wird das Konto ermittelt von dem gesendet wird
        oEmail.cVon            := 'info@bergau.de';

        oEmail.cBetreff        := 'Betreff';
        oEmail.cMessage        := 'TEST';

        //Tabelle im HTML Format
        oEmail.cHTMLMessage    := '<html>' +
                                  '<table>' +
                                  '  <tr>' +
                                  '    <th>Vorname</th>' +
                                  '    <th>Nachname</th>' +
                                  '    <th>Alter</th>' +
                                  '  </tr>' +
                                  '  <tr>' +
                                  '    <td>Max</td>' +
                                  '    <td>Mustermann</td>' +
                                  '     <td>50</td>' +
                                  '  </tr>' +
                                  '</table>' +
                                  '</html>';

        oEmail.cAttachment     := 'c:\Temp\test.pdf' + CRLF + 'c:\temp\test2.txt';

        oEmail.Generate_Email();
        oEmail.Generate_Email_Personen_Projekt();
        oEmail.Generate_Email_Personen_Document();
    finally
        MyFreeAndNil(oEmail);
    end;
end;
Abgerufen von „http:///index.php?title=OBS/Makros_und_Scripting/Anwendungsbereiche/Beispiele_Sammlung&oldid=58142“