🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #1857

Aankooporders electronish versturen ...

#1857
From: Guido Van Beul
Date: Mon, 15 Nov 2004 21:18
33 lines
2355 bytes
Ik ben in Delphi 7 een maatapplicatie aan het bouwen waarin ook een 
onderdeeel "Aankooporders" zit.

De gebruiker kan dus een aankooporder aanmaken. Bedoeling is dat het 
aangemaakte order ook doorgemaild kan worden naar de levarancier. Ik wil dus 
data uit een database "plukken" en invullen in van het standaard 
emailprogramma ( zoals Outlook bijvoorbeeld )
Ik wil dat op deze manier doen omdat ook de bestemming ( het emailadres 
dus ) en het aankoopordernummer automatisch worden ingevuld zodat 
vergissingen worden uitgesloten ...
Het probleem wat ik hierin heb is dat de data uit de database achter mekaar 
in het emailprogramma komt, dus geen Carrige Return waar dat nodig is ...

het komt er dus zo in :     Regel1 Regel2 Regel3 enz ....


het zou zo moeten :

Regel1
Regel2
Regel3


De huidige Delphi code die ik gebruik is :

Var _Body,_Purchase : String;
     begin
       _Body := 'Regel1' + #13 + 'Regel2;
     ShellExecute(Application.Handle, 
'Open',PChar('mailto:'+SimpleDataSet1.FieldByName('Emailadres').AsString+' 
?subject='+_Purchase+' &body= '+_Body+''), nil, nil, Sw_ShowNormal);

Hoe ken ik zoiets fiksen ??   Dank bij voorbaat ... 
Technical Details
Message-ID: <o29md.24621$aS7.1327159@phobos.telenet-ops.be>
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!newsfeed.media.kyoto-u.ac.jp!newsfeed.icl.net!newsfeed.fjserv.net!diablo.theplanet.net!zen.net.uk!demorgan.zen.co.uk!195.40.4.120.MISMATCH!easynet-quince!easynet.net!feed1.news.be.easynet.net!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Thread: fcea4,6e9a0184f4c3405a,start
X-Google-Thread: 107324,6e9a0184f4c3405a,start
X-Google-Attributes: gidfcea4,gid107324,public
X-Google-Language: DUTCH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!newsfeed.media.kyoto-u.ac.jp!newsfeed.icl.net!newsfeed.fjserv.net!diablo.theplanet.net!zen.net.uk!demorgan.zen.co.uk!195.40.4.120.MISMATCH!easynet-quince!easynet.net!feed1.news.be.easynet.net!ossa.telenet-ops.be!phobos.telenet-ops.be.POSTED!not-for-mail
From: "Guido Van Beul" <gvb@hotmail.com>
Newsgroups: be.comp.programming,nl.comp.programmeren
Subject: Aankooporders electronish versturen ...
Lines: 35
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
Message-ID: <o29md.24621$aS7.1327159@phobos.telenet-ops.be>
Date: Mon, 15 Nov 2004 21:18:12 GMT
NNTP-Posting-Host: 81.83.8.227
X-Complaints-To: abuse@telenet.be
X-Trace: phobos.telenet-ops.be 1100553492 81.83.8.227 (Mon, 15 Nov 2004 22:18:12 MET)
NNTP-Posting-Date: Mon, 15 Nov 2004 22:18:12 MET
Organization: Telenet Internet