Odusevio sam se sledecim primerom : Calendar vizard, mali programcic koji kreira kalendar- kada zavrsi kreiranje otvori recimo Corel i pocne po njemu da pise i iscrtava kalendar koji je kreirao. Kapiram ja da se radi o nekog automatizaciji ali kako. Da li neko moze malo blizw da objasni na koji nacin to funkcionise i eventualnoi kako bi se to moglo uradiit u Delphiju recimo. Hvala u napred.
Zna li neko kako se ovo radi ???
Zaključano
Zakačeno
> Odusevio sam se sledecim primerom : Calendar vizard, mali programcic koji kreira kalendar- kada zavrsi kreiranje otvori recimo Corel i pocne po
> njemu da pise i iscrtava kalendar koji je kreirao. Kapiram ja da se radi o nekog automatizaciji ali kako.
Ne poznajem taj program pa ne mogu zasigurno tvrditi ali pretpostavljam da upravljanje Colelom radi putem OLEa. Evo jednog kratog primera za Outlook.
> njemu da pise i iscrtava kalendar koji je kreirao. Kapiram ja da se radi o nekog automatizaciji ali kako.
Ne poznajem taj program pa ne mogu zasigurno tvrditi ali pretpostavljam da upravljanje Colelom radi putem OLEa. Evo jednog kratog primera za Outlook.
Code:
uses
comobj;
procedure TForm1.Button1Click(Sender: TObject);
const
olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
MailItem := Outlook.CreateItem(olMailItem);
MailItem.Recipients.Add('[email protected]');
MailItem.Subject := 'Proba';
MailItem.Body := 'Test';
MailItem.Attachments.Add('C:\Autoexec.bat');
MailItem.Send;
Outlook := Unassigned;
end;
uses
comobj;
procedure TForm1.Button1Click(Sender: TObject);
const
olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
MailItem := Outlook.CreateItem(olMailItem);
MailItem.Recipients.Add('[email protected]');
MailItem.Subject := 'Proba';
MailItem.Body := 'Test';
MailItem.Attachments.Add('C:\Autoexec.bat');
MailItem.Send;
Outlook := Unassigned;
end;
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Ovo bi moglo biti to mada nisam uspeo da implementiram ova kod o Delphi 6 (verovatno nesto nisam dobro uradio).
> Ovo bi moglo biti to mada nisam uspeo da implementiram ova kod o Delphi 6 (verovatno nesto nisam dobro uradio).
Koju poruku dobiješ? Da li ti je instaliran Outlook.
Koju poruku dobiješ? Da li ti je instaliran Outlook.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html