,, e - mail met bijlage met de vooruitzichten, de hele presentatie, iets (* * * * * * * * * * * * * *. DPR,. Pas in maildemo, enz.).,,, eenheid kan doen is aan:,,,,,, outlookmail eenheid interface, ramen nieuws,,,,,,, SysUtils grafische, de controles, de vorm, de dialoog, de outlook8 ComObj oleserver X,,,,,,,,,,, tmailrecord = gegevens, filetoattach: touw, touw; adres:,,,,,, een string, BCC: string: touw,,,;,,,,, een lichaam;:,, het einde van de procedure; outlookmailproc (maildetail:tmailrecord);,,,,, de uitvoering van het programma, outlookmailproc (maildetail:tmailrecord);,,, objoutlook var.: outlookapplication;,, de huidige interface: waaruit activeapplication:HRESULT;,,,,,,, currentmailitem:mailitem; mailinspector: inspecteur, activeapplication:=;,,, getactiveobject (class_outlookapplication, nul, de huidige interface);,, als activeapplication = mk_e_unavailable dan, objoutlook:= cooutlookapplication. De oprichting van een andere,,,,, olecheck (activeapplication);,, olecheck (huidige interface (outlookapplication. Zero, objoutlook);,,,, aan het einde van objoutlook; currentmailitem:=. Createitem (0) voor de mailitem;,, currentmailitem.to _:= maildetail. Mailto;,, als maildetail. Filetoattach < > "dan, currentmailitem. Bijlage toegevoegd. Filetoattach, emptyparam, (maildetail. Emptyparam, emptyparaM);,, currentmailitem. CC: = maildetail. CC;,, currentmailitem. BCC:= maildetail. BCC;,, currentmailitem. Betreft: = maildetail. Betreft, currentmailitem;,. Het lichaam: = maildetail.;,,,,, mailinspector:= currentmailitem. Getinspector; mailinspector display (,, valse.); Ik heb je e - mail (door het proces.Compleet klik.ObjOutlook.Quit;,,,,, objOutlook: - = nul;,,,,,,,,,,,,.,., voor de Demo:, =================, te MailDemo;,,,,,, een gebruik, ramen, berichten, SysUtils, klassen, grafische, de controles, de formulieren, Dialogs,,, StdCtrls, dB, qrprntr, Qrctrls, qrExtra, qrexport, DBTables, QuickRpt, ExtCtrls;,,, type, klasse, TForm1 = (tform), Button1: TButton;,,,,, EditMailTo: TEdit; Label1: TLabel;,,,, Label2: TLabel; EditSubject: TEdit;,,,, Label3: TLabel; EditFileToAttach: TEdit;,,,, Memo1: TMemo; Label4: TLabel;,,,, Label5: TLabel; EditCC: TEdit;,, de procedure Button1Click (Sender: TObject);,,, particuliere, openbare verklaringen {'},,,, openbare verklaringen {},,,,,,,, de var.M1: een gebeurtenis;,,,,, de uitvoering van, het gebruik van outlookmail;,,, * * * * * * *} {% o. Voor de,,, totaal CRLF = CHR (13) + (10); dat de CHR, een gebeurtenis procedure. Om te draaien en het lettertype (afzender: TObject), var, de maildetail:tmailrecord;;,, X: gehele getal;,,,, maildetail. Filetoattach:= editfiletoattach. Tekst;,, maildetail. Adres: = editmailto. Tekst;,, maildetail. CC: = editcc. Tekst;,, maildetail. Betreft: = editsubject. Tekst;,, maildetail. Het lichaam:,, X:= 0 = "; memo1.lines.count-1 doen, maildetail. Het lichaam: = maildetail. Lichaam + memo1. Lijn van [X] + CRLF;,, outlookmailproc (maildetail);,,,,,,, einde.