Senden von E-Mail mit Anhang über Outlook.

Wie E-Mail mit Anhang über Outlook senden.

Die gesamte Demo-Stoffe (.dpr *, *. pas etc) sind in MailDemo.Zip.



Die Geräte, die die Arbeit tun können, ist unten zerkratzt:



Einheit OutLookMail;



Schnittstelle

USI

Fenster, Nachrichten, SysUtils, Classes, Graphics, Controls, Forms, Dialoge,

Outlook8, OLEServer, ComObj, ActiveX;



So'ne Art

TMailRecord = Aufzeichnung der

FileToAttach: String;

Mailto: String;

CC: String;

BCC: String;

Thema: String;

Körper: String;

Ende;



Verfahren OutLookMailProc (MailDetail: TMailRecord);





Ausführung

Verfahren OutLookMailProc (MailDetail: TMailRecord);

VAR

objOutlook: Outlook;

CurrentInterface: IUnknown;

Active: HRESULT;

CurrentMailItem: MailItem;

MailInspector Inspector;

Start

Active: = GetActiveObject (CLASS_OutlookApplication, nil, CurrentInterface);

wenn Active = MK_E_UNAVAILABLE dann

objOutlook: = CoOutlookApplication.Create

andere

Start

OleCheck (Active);

OleCheck (CurrentInterface.QueryInterface (Outlook, objOutlook));

Ende;

CurrentMailItem: = objOutlook.CreateItem (0) als MailItem;

CurrentMailItem.To_: = MailDetail.MailTo;

MailDetail.FileToAttach wenn '' dann

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 (false);

Showmessage ('Ich warte, um den Druckvorgang abzuschließen Klicken Sie auf OK, wenn Sie fertig.');

objOutlook.Quit;

objOutlook: = nil;

Ende;







Ende.





Einheit für die Demo:

=================

Einheit MailDemo;



Schnittstelle



Anwendungen

Fenster, Nachrichten, SysUtils, Classes, Graphics, Controls, Forms, Dialoge,

StdCtrls, Db, qrprntr, Qrctrls, qrExtra, qrexport, DBTables, QuickRpt, ExtCtrls;



So'ne Art

TForm1 = class (TForm)

Button1: TButton;

EditMailTo: TEdit;

Label1: TLabel;

Label2: TLabel;

EditSubject: TEdit;

Label3: TLabel;

EditFileToAttach: TEdit;

Memo1: TMemo;

Label4: TLabel;

Label5: TLabel;

EditCC: TEdit;

Button1Click Verfahren (Sender: TObject);

privat

{Private Deklarationen}

Öffentlichkeit

{} Öffentliche Erklärungen

Ende;



var

Form1: TForm1;



Ausführung



OutLookMail verwendet;



{$ R * .dfm}



const CRLF = chr (13) + Chr (10);

Verfahren TForm1.Button1Click (Sender: TObject);

var

MailDetail: TMailRecord;

x: integer;

Start

MailDetail.FileToAttach: = EditFileToAttach.Text;

MailDetail.MailTo: = EditMailTo.Text;

MailDetail.CC:=EditCC.Text;

MailDetail.subject: = EditSubject.Text;

MailDetail.Body: = '';

für x: = 0 bis Memo1.Lines.Count-1 zu tun

MailDetail.Body: = MailDetail.Body Memo1.lines + [x] + CRLF;

OutLookMailProc (MailDetail);

Ende;



Ende.

(0)
(0)

Kommentare - 0

Keine Kommentare

Fügen Sie einen Kommentar

smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile
Zeichen übrig: 3000
captcha