Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Send mail i attach iz delphija

[es] :: Pascal / Delphi / Kylix :: Send mail i attach iz delphija

[ Pregleda: 5371 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

kefalo
Banjaluka, RS, BiH

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

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


+6 Profil

icon Send mail i attach iz delphija15.01.2004. u 17:30 - pre 216 meseci
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
 
Odgovor na temu

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

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

Sajt: localhost


+4 Profil

icon Re: Send mail i attach iz delphija15.01.2004. u 17:46 - pre 216 meseci
pogledaj u MSDNu MAPI (mail api), preko koga je to moguće izvesti..

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

 
Odgovor na temu

kefalo
Banjaluka, RS, BiH

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

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


+6 Profil

icon Re: Send mail i attach iz delphija15.01.2004. u 20:10 - pre 216 meseci
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:' +
             '[email protected]' +
             '?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('[email protected]');
  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?
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Send mail i attach iz delphija16.01.2004. u 18:37 - pre 216 meseci
Imam source koji salje mail bez mail clienta, moze i attach da posalje, vidi na

http://www.virustrading.com/positron
 
Odgovor na temu

kefalo
Banjaluka, RS, BiH

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

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


+6 Profil

icon Re: Send mail i attach iz delphija17.01.2004. u 03:03 - pre 216 meseci
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 ;)
 
Odgovor na temu

kefalo
Banjaluka, RS, BiH

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

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


+6 Profil

icon Re: Send mail i attach iz delphija17.01.2004. u 18:09 - pre 216 meseci
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...
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Send mail i attach iz delphija

[ Pregleda: 5371 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.