L'envoi d'e-mail avec pièce jointe à l'aide d'outlook.


Comment envoyer un e-mail avec pièce jointe à l'aide d'Outlook.
l'ensemble de La démo pour animaux (*.dpr,*.pas etc) sont dans le MailDemo.Zip.
L'unité qui peut faire le travail est rayé ci-dessous:
unité de OutLookMail
interface

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Outlook8, OleServer, COMobj, ActiveX
type
& nbsp & nbsp TMailRecord= enregistrement
& ! & ! & ! & nbsp FileToAttach : String
& ! & ! & ! & nbsp MailTo : String
& ! & ! & ! & nbsp CC : String
& ! & ! & ! & nbsp CCI : String
& ! & ! & ! & nbsp Sujet : Chaîne de caractères
& ! & ! & ! & nbsp Corps : String
& nbsp & nbsp fin
procédure OutLookMailProc(MailDetail:TMailRecord)

application
procédure OutLookMailProc(MailDetail:TMailRecord)
VAR
& nbsp & nbsp objOutlook : OutlookApplication
& nbsp & nbsp CurrentInterface : IUnknown
& nbsp & nbsp ActiveApplication : HResult
& nbsp & nbsp CurrentMailItem : MailItem
& nbsp & nbsp MailInspector : Inspecteur
begin
& nbsp & nbsp ActiveApplication:=GetActiveObject(CLASS_OutlookApplication, néant, CurrentInterface)
& nbsp & nbsp si ActiveApplication = MK_E_UNAVAILABLE puis
& ! & ! & ! & ! & nbsp objOutlook := CoOutlookApplication.Créer
& nbsp & nbsp else
& nbsp & nbsp commencer
& ! & ! & ! & nbsp OleCheck(ActiveApplication)
& ! & ! & ! & nbsp OleCheck(CurrentInterface.QueryInterface(OutlookApplication, objOutlook))
& nbsp & nbsp fin
& nbsp & nbsp CurrentMailItem:= objOutlook.La méthode CreateItem(0) MailItem
& nbsp & nbsp CurrentMailItem.To_ :=MailDetail.MailTo
& nbsp & nbsp si MailDetail.FileToAttach<>'
& ! & ! & ! & nbsp CurrentMailItem.Les pièces jointes.Ajouter(MailDetail.FileToAttach,EmptyParam, EmptyParam, EmptyParam)
& nbsp nbsp & CurrentMailItem.cc:=MailDetail.CC
& nbsp & nbsp CurrentMailItem.CCI:=MailDetail.CCC
& nbsp & nbsp CurrentMailItem.Sujet := MailDetail.L'objet
& nbsp & nbsp CurrentMailItem.Corps := MailDetail.Corps

& nbsp & nbsp MailInspector := CurrentMailItem.GetInspector
& nbsp & nbsp MailInspector.Affichage(False)
& nbsp & nbsp Showmessage('je suis dans l'attente de vous pour terminer le processus de messagerie. Cliquez sur OK une fois terminé !')
& nbsp & nbsp objOutlook.Quittez
& nbsp & nbsp objOutlook := nil
fin

à la fin.

Unité pour la Démo:
=================
unité de MailDemo
interface

& nbsp & nbsp Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
& nbsp & nbsp StdCtrls, Db,qrprntr, Qrctrls,qrExtra,qrexport, DBTables, QuickRpt, ExtCtrls
type
& nbsp & nbsp TForm1 = class(TForm)
& ! & ! & ! & nbsp Button1: TButton
& ! & ! & ! & nbsp EditMailTo: TEdit
& ! & ! & ! & nbsp Label1: TLabel
& ! & ! & ! & nbsp Label2: TLabel
& ! & ! & ! & nbsp EditSubject: TEdit
& ! & ! & ! & nbsp Label3: TLabel
& ! & ! & ! & nbsp EditFileToAttach: TEdit
& ! & ! & ! & nbsp Memo1: TMemo
& ! & ! & ! & nbsp Label4: TLabel
& ! & ! & ! & nbsp Label5: TLabel
& ! & ! & ! & nbsp EditCC: TEdit
& ! & ! & ! & nbsp procédure Button1Click(Sender: TObject)
& nbsp & nbsp privé
& ! & ! & ! & nbsp { Private declarations }
& nbsp & nbsp public
& ! & ! & ! & nbsp { déclarations Publiques }
& nbsp & nbsp fin
var
& nbsp & nbsp Form1: TForm1
application
utilise OutLookMail
{$R *.DFM}
const CRLF=chr(13) chr(10)
procedure TForm1.Button1Click(Sender: TObject)
var
MailDetail:TMailRecord
x:integer
begin
& nbsp & nbsp MailDetail.FileToAttach:=EditFileToAttach.Texte
& nbsp & nbsp MailDetail.MailTo:=EditMailTo.Texte
& nbsp & nbsp MailDetail.CC:=EditCC.Texte
& nbsp & nbsp MailDetail.sujet:=EditSubject.Texte
& nbsp & nbsp MailDetail.Corps:='
& nbsp & nbsp pour x:=0 pour Memo1.Les lignes.Count-1 do
& ! & ! & ! & nbsp MailDetail.Corps:=MailDetail.Corps Memo1.les lignes[x] CRLF
& nbsp & nbsp OutLookMailProc(MailDetail)
fin
à la fin.









L'envoi d'e-mail avec piece jointe a l'aide d'outlook.


L'envoi d'e-mail avec piece jointe a l'aide d'outlook. : Plusieurs milliers de conseils pour vous faciliter la vie.


Comment envoyer un e-mail avec piece jointe a l'aide d'Outlook.
l'ensemble de La demo pour animaux (*.dpr,*.pas etc) sont dans le MailDemo.Zip.
L'unite qui peut faire le travail est raye ci-dessous:
unite de OutLookMail
interface

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Outlook8, OleServer, COMobj, ActiveX
type
& nbsp & nbsp TMailRecord= enregistrement
& ! & ! & ! & nbsp FileToAttach : String
& ! & ! & ! & nbsp MailTo : String
& ! & ! & ! & nbsp CC : String
& ! & ! & ! & nbsp CCI : String
& ! & ! & ! & nbsp Sujet : Chaîne de caracteres
& ! & ! & ! & nbsp Corps : String
& nbsp & nbsp fin
procedure OutLookMailProc(MailDetail:TMailRecord)

application
procedure OutLookMailProc(MailDetail:TMailRecord)
VAR
& nbsp & nbsp objOutlook : OutlookApplication
& nbsp & nbsp CurrentInterface : IUnknown
& nbsp & nbsp ActiveApplication : HResult
& nbsp & nbsp CurrentMailItem : MailItem
& nbsp & nbsp MailInspector : Inspecteur
begin
& nbsp & nbsp ActiveApplication:=GetActiveObject(CLASS_OutlookApplication, neant, CurrentInterface)
& nbsp & nbsp si ActiveApplication = MK_E_UNAVAILABLE puis
& ! & ! & ! & ! & nbsp objOutlook := CoOutlookApplication.Creer
& nbsp & nbsp else
& nbsp & nbsp commencer
& ! & ! & ! & nbsp OleCheck(ActiveApplication)
& ! & ! & ! & nbsp OleCheck(CurrentInterface.QueryInterface(OutlookApplication, objOutlook))
& nbsp & nbsp fin
& nbsp & nbsp CurrentMailItem:= objOutlook.La methode CreateItem(0) MailItem
& nbsp & nbsp CurrentMailItem.To_ :=MailDetail.MailTo
& nbsp & nbsp si MailDetail.FileToAttach<>'
& ! & ! & ! & nbsp CurrentMailItem.Les pieces jointes.Ajouter(MailDetail.FileToAttach,EmptyParam, EmptyParam, EmptyParam)
& nbsp nbsp & CurrentMailItem.cc:=MailDetail.CC
& nbsp & nbsp CurrentMailItem.CCI:=MailDetail.CCC
& nbsp & nbsp CurrentMailItem.Sujet := MailDetail.L'objet
& nbsp & nbsp CurrentMailItem.Corps := MailDetail.Corps

& nbsp & nbsp MailInspector := CurrentMailItem.GetInspector
& nbsp & nbsp MailInspector.Affichage(False)
& nbsp & nbsp Showmessage('je suis dans l'attente de vous pour terminer le processus de messagerie. Cliquez sur OK une fois termine !')
& nbsp & nbsp objOutlook.Quittez
& nbsp & nbsp objOutlook := nil
fin

a la fin.

Unite pour la Demo:
=================
unite de MailDemo
interface

& nbsp & nbsp Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
& nbsp & nbsp StdCtrls, Db,qrprntr, Qrctrls,qrExtra,qrexport, DBTables, QuickRpt, ExtCtrls
type
& nbsp & nbsp TForm1 = class(TForm)
& ! & ! & ! & nbsp Button1: TButton
& ! & ! & ! & nbsp EditMailTo: TEdit
& ! & ! & ! & nbsp Label1: TLabel
& ! & ! & ! & nbsp Label2: TLabel
& ! & ! & ! & nbsp EditSubject: TEdit
& ! & ! & ! & nbsp Label3: TLabel
& ! & ! & ! & nbsp EditFileToAttach: TEdit
& ! & ! & ! & nbsp Memo1: TMemo
& ! & ! & ! & nbsp Label4: TLabel
& ! & ! & ! & nbsp Label5: TLabel
& ! & ! & ! & nbsp EditCC: TEdit
& ! & ! & ! & nbsp procedure Button1Click(Sender: TObject)
& nbsp & nbsp prive
& ! & ! & ! & nbsp { Private declarations }
& nbsp & nbsp public
& ! & ! & ! & nbsp { declarations Publiques }
& nbsp & nbsp fin
var
& nbsp & nbsp Form1: TForm1
application
utilise OutLookMail
{$R *.DFM}
const CRLF=chr(13) chr(10)
procedure TForm1.Button1Click(Sender: TObject)
var
MailDetail:TMailRecord
x:integer
begin
& nbsp & nbsp MailDetail.FileToAttach:=EditFileToAttach.Texte
& nbsp & nbsp MailDetail.MailTo:=EditMailTo.Texte
& nbsp & nbsp MailDetail.CC:=EditCC.Texte
& nbsp & nbsp MailDetail.sujet:=EditSubject.Texte
& nbsp & nbsp MailDetail.Corps:='
& nbsp & nbsp pour x:=0 pour Memo1.Les lignes.Count-1 do
& ! & ! & ! & nbsp MailDetail.Corps:=MailDetail.Corps Memo1.les lignes[x] CRLF
& nbsp & nbsp OutLookMailProc(MailDetail)
fin
a la fin.


L'envoi d'e-mail avec pièce jointe à l'aide d'outlook.

L'envoi d'e-mail avec pièce jointe à l'aide d'outlook. : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation