<!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> </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></BODY></HTML>