Senden E-mail mit Anhang über Outlook.

Senden E-mail mit Anhang über Outlook.

Senden E-mail mit Anhang über Outlook. : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie zum Senden von e-Mails mit Anhang über Outlook.
Die ganze Demo-Stoffe (*.dpr, *.pas etc.) sind in der MailDemo.Zip.
Unten ist die Einheit, die die Arbeit erledigen kann zerkratzt:
Einheit OutLookMail;
Schnittstelle
VERWENDET
Windows, Nachrichten, SysUtils, Klassen, Graphics, Steuerelemente, Formulare, Dialoge,
Outlook8, OleServer, COMobj, ActiveX;
Typ
TMailRecord = Datensatz
FileToAttach: String;
MailTo: String;
CC: String;
BCC: String;
Betreff: String;
Körper: String;
Ende;
Prozedur OutLookMailProc(MailDetail:TMailRecord);

Umsetzung
Prozedur OutLookMailProc(MailDetail:TMailRecord);
VAR
ObjOutlook: OutlookApplication;
CurrentInterface: IUnknown;
ActiveApplication: HResult;
CurrentMailItem: MailItem;
MailInspector: Inspektor;
beginnen
ActiveApplication: = GetActiveObject (CLASS_OutlookApplication, Nil, CurrentInterface);
Wenn ActiveApplication = MK_E_UNAVAILABLE then
ObjOutlook: = CoOutlookApplication.Create
sonst
beginnen
OleCheck(ActiveApplication);
OleCheck (CurrentInterface.QueryInterface (OutlookApplication, ObjOutlook));
Ende;
CurrentMailItem: = objOutlook.CreateItem(0) als MailItem;
CurrentMailItem.To_: = MailDetail.MailTo;
Wenn MailDetail.FileToAttach <>'' 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 Sie um den Post-Vorgang abzuschließen. Klicken Sie auf OK, wenn Sie getan!');
objOutlook.Quit;
ObjOutlook: = Nil;
Ende;

Ende.

Einheit für die Demo:
=================
Einheit MailDemo;
Schnittstelle
verwendet
Windows, Nachrichten, SysUtils, Klassen, Graphics, Steuerelemente, Formulare, Dialoge,
StdCtrls, Db, Qrprntr, Qrctrls, QrExtra, Qrexport, DBTables, QuickRpt, ExtCtrls;
Typ
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;
Prozedur Button1Click(Sender: TObject);
Private
{Private Deklarationen}
öffentliche
{Public Deklarationen}
Ende;
var
Form1: TForm1;
Umsetzung
OutLookMail verwendet;
{$R *. DFM}
const CRLF=chr(13)+chr(10);
Prozedur TForm1.Button1Click(Sender: TObject);
var
MailDetail:TMailRecord;
X: Ganzzahl;
beginnen
MailDetail.FileToAttach:=EditFileToAttach.Text;
MailDetail.MailTo:=EditMailTo.Text aus;
MailDetail.CC:=EditCC.Text;
MailDetail.subject:=EditSubject.Text;
MailDetail.Body:='';
für X: = 0 to Memo1.Lines.Count-1
MailDetail.Body:=MailDetail.Body+Memo1.lines[x]+CRLF;
OutLookMailProc(MailDetail);
Ende;
Ende.