El envío de e-mail con archivo adjunto mediante outlook.

El envio de e-mail con archivo adjunto mediante outlook.

El envio de e-mail con archivo adjunto mediante outlook. : Multi-millones de consejos para hacer su vida mas facil.

Como enviar e-mail con archivo adjunto mediante Outlook.
La demostracion de todo animal (*.el dpr,*.pas etc) se encuentran en el MailDemo.Zip.
La unidad que puede hacer el trabajo esta rayado a continuacion:
unidad de OutLookMail
interfaz
USOS
Windows, Messages, SysUtils, Classes, Graphics, Controles, Formularios, cuadros de dialogo,
Outlook8, metodo oleserver, COMobj, ActiveX
tipo
& nbsp & nbsp TMailRecord= record
& nbsp & nbsp & nbsp & nbsp FileToAttach : Cadena
& nbsp & nbsp & nbsp & nbsp MailTo : String
& nbsp & nbsp & nbsp & nbsp CC : String
& nbsp & nbsp & nbsp & nbsp CCO : String
& nbsp & nbsp & nbsp & nbsp Tema : String
& nbsp & nbsp & nbsp & nbsp Cuerpo : String
& nbsp & nbsp final
procedimiento OutLookMailProc(MailDetail:TMailRecord)

aplicacion
procedimiento OutLookMailProc(MailDetail:TMailRecord)
VAR
& nbsp & nbsp objOutlook : OutlookApplication
& nbsp & nbsp CurrentInterface : IUnknown
& nbsp & nbsp ActiveApplication : HResult
& nbsp & nbsp CurrentMailItem : MailItem
& nbsp & nbsp MailInspector : Inspector
begin
& nbsp & nbsp ActiveApplication:=GetActiveObject(CLASS_OutlookApplication, nil, CurrentInterface)
& nbsp & nbsp si ActiveApplication = MK_E_UNAVAILABLE, a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp objOutlook := CoOutlookApplication.Crear
& nbsp & nbsp else
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp OleCheck(ActiveApplication)
& nbsp & nbsp & nbsp & nbsp OleCheck(CurrentInterface.QueryInterface(OutlookApplication, objOutlook))
& nbsp & nbsp final
& nbsp & nbsp CurrentMailItem:= objOutlook.CreateItem(0) como objeto MailItem
& nbsp & nbsp CurrentMailItem.To_ :=MailDetail.MailTo
& nbsp & nbsp si MailDetail.FileToAttach<>' then
& nbsp & nbsp & nbsp & nbsp CurrentMailItem.Los archivos adjuntos.Agregar(MailDetail.FileToAttach,EmptyParam, EmptyParam, EmptyParam)
& nbsp & nbsp CurrentMailItem.cc:=MailDetail.CC
& nbsp & nbsp CurrentMailItem.CCO:=MailDetail.BCC
& nbsp & nbsp CurrentMailItem.Asunto := MailDetail.Asunto
& nbsp & nbsp CurrentMailItem.Cuerpo := MailDetail.Cuerpo

& nbsp & nbsp MailInspector := CurrentMailItem.GetInspector
& nbsp & nbsp MailInspector.Mostrar(Falso)
& nbsp & nbsp Showmessage('estoy esperando a que termine el proceso de correo electronico. Por favor, haga clic en ACEPTAR cuando haya terminado !')
& nbsp & nbsp objOutlook.Dejar de fumar
& nbsp & nbsp objOutlook := nil
fin

final.

Unidad para la Demostracion:
=================
unidad de MailDemo
interfaz
usos
& nbsp & nbsp Windows, Messages, SysUtils, Classes, Graphics, Controles, Formularios, cuadros de dialogo,
& nbsp & nbsp StdCtrls, Db,qrprntr, Qrctrls,qrExtra,qrexport, DBTables, QuickRpt, ExtCtrls
tipo
& nbsp & nbsp TForm1 = class(TForm)
& nbsp & nbsp & nbsp & nbsp Button1: TButton
& nbsp & nbsp & nbsp & nbsp EditMailTo: TEdit
& nbsp & nbsp & nbsp & nbsp Label1: TLabel
& nbsp & nbsp & nbsp & nbsp Label2: TLabel
& nbsp & nbsp & nbsp & nbsp EditSubject: TEdit
& nbsp & nbsp & nbsp & nbsp Label3: TLabel
& nbsp & nbsp & nbsp & nbsp EditFileToAttach: TEdit
& nbsp & nbsp & nbsp & nbsp Memo1: TMemo
& nbsp & nbsp & nbsp & nbsp Label4: TLabel
& nbsp & nbsp & nbsp & nbsp Label5: TLabel
& nbsp & nbsp & nbsp & nbsp EditCC: TEdit
& nbsp & nbsp & nbsp & nbsp procedimiento Button1Click(Sender: TObject)
& nbsp & nbsp privada
& nbsp & nbsp & nbsp & nbsp { Private declarations }
& nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp { Public declarations }
& nbsp & nbsp final
var
& nbsp & nbsp Form1: TForm1
aplicacion
utiliza 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.Texto
& nbsp & nbsp MailDetail.MailTo:=EditMailTo.Texto
& nbsp & nbsp MailDetail.CC:=EditCC.Texto
& nbsp & nbsp MailDetail.asunto:=EditSubject.Texto
& nbsp & nbsp MailDetail.Cuerpo:='
& nbsp & nbsp x:=0 a Memo1.Lineas.Count-1 do
& nbsp & nbsp & nbsp & nbsp MailDetail.Cuerpo:=MailDetail.Cuerpo Memo1.lineas[x] CRLF
& nbsp & nbsp OutLookMailProc(MailDetail)
fin
final.