[es] - Send mail i attach iz delphija

kefalo
Banjaluka, RS, BiH

Član broj: 18959
Poruke: 201
*.dip.urc.bl.ac.yu

ICQ: 178873696
Sajt: home.blic.net/mozlas

Profil

Send mail i attach iz delphija

^{15.01.2004. u 17:30}

zanima me kako da neki file attachiram i posaljem putem defaultnog mail programa na sistemu... znaci kad korisnik klikne na button1 da se posalje mail sa attachiranim fajlom sa diska... jel to moguce??? nesto slicno kao send to>mail recepient u win exploreru

znam za "mailto:" kojim mogu da posaljem mail... ali ne mogu da attachiram... pomagajte

^{15.01.2004. u 17:30}

-zombie-
Tomica Jovanovic
freelance programmer
ni.ac.yu

Član broj: 4128
Poruke: 3448
*.verat.net

Sajt: localhost

Profil

Re: Send mail i attach iz delphija

^{15.01.2004. u 17:46}

pogledaj u MSDNu MAPI (mail api), preko koga je to moguće izvesti..

(samo praktično, sa time u radu postoje problemi..)

blogče :: unescaped beta^{^» ^{go-paste extenzija} ^» ^{reč dana: backup} ^» ^{bočne koalicije}}

^{15.01.2004. u 17:46}

kefalo
Banjaluka, RS, BiH

Član broj: 18959
Poruke: 201
*.dip.urc.bl.ac.yu

ICQ: 178873696
Sajt: home.blic.net/mozlas

Profil

Re: Send mail i attach iz delphija

^{15.01.2004. u 20:10}

Nasao sam na msdn-u kako se koristi mailto

http://msdn.microsoft.com/libr...tworking/predefined/mailto.asp

ali ne pise nista u vezi attach-a.

Probao sam i sljedece ali nije dalo rezultate...

Code:

ShellExecute(Self.Handle,
             nil,
             'mailto:' +
             'me@me.com' +
             '?Subject=Test Message Subject' +
             '&Body=Test Message Body' +
             '&Attach="c:\Mail Attachments\attachment.txt"',
             nil,
             nil,
             SW_NORMAL);

Zatim sam probao:

Code:

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('me@me.com');
  Mailitem.Subject :='Subject';
  Mailitem.Body := 'Body message...';
  Mailitem.Attachments.Add('c:\file.txt') ;
  Mailitem.Send;
  Outlook := Unassigned;
end;

Ovaj code radi, samo sto koristi Microsoft Outlook za slanje. Ne znam kako bi glasila OLE oznaka za Outlook Express aplikaciju i da li uopste to Outlook Express podrzava?

^{15.01.2004. u 20:10}

reiser
Vranje

Član broj: 7895
Poruke: 1884
*.ptt.yu

Profil

Re: Send mail i attach iz delphija

^{16.01.2004. u 18:37}

Imam source koji salje mail bez mail clienta, moze i attach da posalje, vidi na

http://www.virustrading.com/positron

^{16.01.2004. u 18:37}

kefalo
Banjaluka, RS, BiH

Član broj: 18959
Poruke: 201
*.teol.net

ICQ: 178873696
Sajt: home.blic.net/mozlas

Profil

Re: Send mail i attach iz delphija

^{17.01.2004. u 03:03}

e hvala ti na pomoci koju necu da iskoristim jer sam nasao rjesenje koje potpuno zadovoljava moje potrebe ;) najveci problem je u tome sto program treba da bude sto manji... svaki KB je bitan jer je namjenjen za download sa neta... a vrlo dobro znamo kakve su nam konekcije :(

u svakom slucaju hvala na trudu ;)

ako nekoga interesuje evo linka sa primjerom i komponentom
http://www.scalabium.com/mapimail.htm

pomocu ove komponente se valjda salje mail sa defaultnim mail klijentom... jedino sto moram da istestiram... instaliranjem josh jednog mail klijenta koji cu da postavim na default ;)

^{17.01.2004. u 03:03}

kefalo
Banjaluka, RS, BiH

Član broj: 18959
Poruke: 201
*.dip.urc.bl.ac.yu

ICQ: 178873696
Sajt: home.blic.net/mozlas

Profil

Re: Send mail i attach iz delphija

^{17.01.2004. u 18:09}

hmm.... bice da ne funkcionira sa drugim mail klijentima... sem sa MS-ovih...
instalirao sam pocomail i kad sam klikno na button pojavila mi se poruka da stavim neki od outlook-a kao default mail client...

^{17.01.2004. u 18:09}