<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<TITLE>Message</TITLE>
<META content="MSHTML 6.00.2800.1458" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><SPAN class=859271221-03092004><FONT face=Arial color=#0000ff size=2>Thanks
Matt I shall give it a Try.</FONT></SPAN></DIV>
<DIV><SPAN class=859271221-03092004></SPAN><SPAN class=859271221-03092004><FONT
face=Arial color=#0000ff size=2>I have my own Outlook components that I
developed, but obviously you cant garantee they HAVE Outlook, or even Outlook
Express, but then....if they dont have either then they are not stongly aligned
to M$ and what wants customers like that....hahaha....Just kidding
:-D</FONT></SPAN></DIV>
<DIV><SPAN class=859271221-03092004><FONT face=Arial color=#0000ff size=2>I
suspect this will work with Outlook tho, it also responds to MAPI
etc.</FONT></SPAN></DIV>
<DIV><SPAN class=859271221-03092004><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=859271221-03092004><FONT face=Arial color=#0000ff size=2>Let
you know.</FONT></SPAN></DIV>
<DIV><SPAN class=859271221-03092004><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=859271221-03092004><FONT face=Arial color=#0000ff
size=2>Jeremy</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT
face=Tahoma size=2>-----Original Message-----<BR><B>From:</B>
delphi-bounces@ns3.123.co.nz [mailto:delphi-bounces@ns3.123.co.nz] <B>On
Behalf Of </B>Matt Comb<BR><B>Sent:</B> Saturday, 4 September 2004
04:29<BR><B>To:</B> NZ Borland Developers Group - Delphi
List<BR><B>Subject:</B> Re: [DUG] Sending files<BR><BR></FONT></DIV>
<DIV><FONT face=Arial size=2>Hi Jeremy.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Have you tried MAPI ? </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>I have attached some code that I patched of
Xavier Pacheco's mapi interface from some time ago. Included also is a makezip
procedure which uses Abbrevia which is available on sourceforge for
free.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>You can replace the zip routine or not use it if
you so wish, but this works well with outlook express, never tested with
outlook, but should be ok ?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>procedure TForm1.Email1Click(Sender:
TObject);<BR>var<BR> srcFolder, zipfile: String;<BR>begin<BR>
srcFolder := ApplicationDir+'\Logs';<BR> Zipfile :=
'c:\Fern\Logs.zip';<BR> if FileExists(zipfile)
then<BR> DeleteFile(zipfile);<BR> MakeZip(srcFolder,
zipfile);</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>
SendMapiEmail(Application.Handle, <BR>
<A href="mailto:'support@ferndigital.com'">'support@ferndigital.com'</A>,
//Destination
email.<BR>
'Logs '+datetostr(now), //
Subject<BR>
'Current Activity Logs.',
//Body<BR>
zipfile); //Attachment.<BR>end;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Otherwise you can bypass and send the mail 'under
the hood', but that would involve the software knowing of the smtp
server.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Best of luck,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Matt.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=vss@vss.co.nz href="mailto:vss@vss.co.nz">Jeremy Coulter</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=delphi@delphi.org.nz
href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Friday, September 03, 2004 3:36
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [DUG] Sending files</DIV>
<DIV><BR></DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">HI
All.</DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">Well
finally got access back to my server, thanks to ADSL being down for 11hrs !!
here in CHCH.</DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white"> </DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">Anyway,
what I want to do, is every now and then, or pretty much wne required, have
the client click on a menu item and it will gather up some files and put
them into a zip file for us, and send them to us.</DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">My
inital thought was to use the ShellExecute to do a Mailto, and then it would
add the attachement to the email. I thought this would get round firewall
issues, and any problems like here at work where we have no access to port
25 to send mail, and then the client would just press the send button.</DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">BUT,
Outlook does not like the
&attach="myfile.x" bit you tag onto the mailto
command.</DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white"> </DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">Want
otehr options do I have? It has to work regardless of wether
or not they are behind a firewall etc.</DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white"> </DIV>
<DIV
style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">Jeremy</DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>Delphi mailing
list<BR>Delphi@ns3.123.co.nz<BR>http://ns3.123.co.nz/mailman/listinfo/delphi<BR></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>