<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1458" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Hi Jeremy.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Have you tried MAPI ? </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</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>&nbsp;</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>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>procedure TForm1.Email1Click(Sender: 
TObject);<BR>var<BR>&nbsp; srcFolder, zipfile: String;<BR>begin<BR>&nbsp; 
srcFolder := ApplicationDir+'\Logs';<BR>&nbsp; Zipfile&nbsp;&nbsp; := 
'c:\Fern\Logs.zip';<BR>&nbsp; if FileExists(zipfile) then<BR>&nbsp;&nbsp;&nbsp; 
DeleteFile(zipfile);<BR>&nbsp; MakeZip(srcFolder, zipfile);</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>&nbsp; 
SendMapiEmail(Application.Handle,&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
<A href="mailto:'support@ferndigital.com'">'support@ferndigital.com'</A>, 
//Destination 
email.<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
'Logs '+datetostr(now),&nbsp; // 
Subject<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
'Current Activity Logs.',&nbsp; 
//Body<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
zipfile);&nbsp; //Attachment.<BR>end;</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</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>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Best of luck,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>Matt.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</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">&nbsp;</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&nbsp;&nbsp; 
  &amp;attach="myfile.x"&nbsp;&nbsp;&nbsp;bit you tag onto the mailto 
  command.</DIV>
  <DIV 
  style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">&nbsp;</DIV>
  <DIV 
  style="FONT-SIZE: 10pt; FONT-FAMILY: tahoma; BACKGROUND-COLOR: white">Want 
  otehr options&nbsp;do&nbsp;I have?&nbsp; 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">&nbsp;</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></BODY></HTML>