Hvordan sende e-post med vedlegg ved hjelp Outlook.The hele demo stuffs (* .dpr, *. Pas etc) er i MailDemo.Zip.The enhet som kan gjøre jobben er riper under: enhet OutLookMail; interfaceUSESWindows, Meldinger, SysUtils, kurs, grafikk, kontroller, skjemaer, Dialoger, Outlook8, OleServer, COMobj, ActiveX, skriver TMailRecord = rekord FileToAttach: String; Mailto: String; CC: String; BCC: String; Emne: String; Body: String; enden, prosedyre OutLookMailProc (MailDetail: TMailRecord); implementationprocedure OutLookMailProc (MailDetail: TMailRecord); VAR objOutlook: OutlookApplication; CurrentInterface: IUnknown; ActiveApplication: HRESULT; CurrentMailItem: MailItem; MailInspector: Inspektør, begynner ActiveApplication: = GetActiveObject (CLASS_OutlookApplication, null, CurrentInterface); hvis ActiveApplication = MK_E_UNAVAILABLE deretter objOutlook: = CoOutlookApplication.Create annet begynne OleCheck (ActiveApplication); OleCheck (CurrentInterface.QueryInterface (OutlookApplication, objOutlook)); slutt; CurrentMailItem: = objOutlook.CreateItem (0) som MailItem; CurrentMailItem.To_: = MailDetail.MailTo; hvis MailDetail.FileToAttach < > '' da CurrentMailItem.Attachments.Add (MailDetail.FileToAttach, EmptyParam, EmptyParam, EmptyParam); CurrentMailItem.cc:=MailDetail.CC; CurrentMailItem.BCC: = MailDetail.BCC; CurrentMailItem.Subject: = MailDetail.Subject; CurrentMailItem.Body: = MailDetail.Body; MailInspector: = CurrentMailItem.GetInspector; MailInspector.Display (usann); Showmessage ( 'Jeg venter du til slutt posten prosessen Vennligst klikk på OK når du er ferdig.!'); objOutlook.Quit; objOutlook: = null; end; end.Unit for Demo: ================= enhet MailDemo, interfaceuses Windows, Meldinger, SysUtils, klasser, Grafikk, kontroller, skjemaer, Dialoger , StdCtrls, Db, qrprntr, Qrctrls, qrExtra, qrexport, DBTables, QuickRpt, ExtCtrls, skriver TForm1 = klasse (TForm) Button1: TButton; EditMailTo: TEdit; Label1: TLabel; Label2: TLabel; EditSubject: TEdit; Label3: TLabel; EditFileToAttach: TEdit; Memo1: TMemo; Label4: TLabel; Label5: TLabel; EditCC: TEdit; Prosedyren Button1Click (Sender: TObject); private {felleserklæringer} offentlige {offentlige erklæringer} end; Var Form1: TForm1, implementationuses OutLookMail; {$ R * .DFM} konst CRLF = chr (13) + chr (10), prosedyre TForm1.Button1Click (Sender: TObject); varMailDetail: TMailRecord; x: integer; begynne MailDetail.FileToAttach: = EditFileToAttach.Text; MailDetail.MailTo: = EditMailTo.Text; MailDetail.CC:=EditCC.Text; MailDetail.subject: = EditSubject.Text; MailDetail.Body: = ''; for x: = 0 til Memo1.Lines.Count-en gjøre MailDetail.Body: = MailDetail.Body + Memo1.lines [x] + CRLF; OutLookMailProc (MailDetail), slutten, slutten
.