<!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.1141" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=596173719-24022003><FONT face=Arial color=#0000ff 
size=2>Charlotte,</FONT></SPAN></DIV>
<DIV><SPAN class=596173719-24022003><FONT face=Arial color=#0000ff 
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=596173719-24022003><FONT face=Arial color=#0000ff size=2>Here's 
code I use for Access2K and XP with Redemption.</FONT></SPAN></DIV>
<DIV><SPAN class=596173719-24022003><FONT face=Arial color=#0000ff 
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=596173719-24022003><FONT face=Arial color=#0000ff size=2>Public 
Function SendEmail(strEmailAddr As String, 
_<BR>                     
Optional strAttachment As String) As Boolean<BR>' Creator: John Ruff<BR>' Date: 
12/20/2002<BR>' Email: <A 
href="mailto:papparuff@johnruff.com">papparuff@johnruff.com</A><BR>' Call the 
function thus:<BR>' SendEmail ("<A 
href='mailto:SendToEmailAddress@yahoo.com","c:\temp\Attch.txt'>SendToEmailAddress@yahoo.com","c:\temp\Attch.txt</A>")</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=596173719-24022003><FONT face=Arial color=#0000ff size=2>On 
Error GoTo SendEmail_ERR</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=596173719-24022003><FONT face=Arial color=#0000ff 
size=2>   Dim oApp As Object<BR>   Dim oNameSpace As 
Object<BR>   Dim SafeItem As Object<BR>   Dim oItem As 
Object</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=596173719-24022003><FONT face=Arial color=#0000ff 
size=2>   ' Create an instance of Outlook<BR>   Set oApp = 
CreateObject("Outlook.Application")<BR>   Set oNameSpace = 
oApp.NameSpace("MAPI")<BR>   ' Create an instance of 
Redemption.SafeMailItem<BR>   Set SafeItem = 
CreateObject("Redemption.SafeMailItem")<BR>   ' Create a new 
message<BR>   Set oItem = oApp.CreateItem(0)</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=596173719-24022003><FONT face=Arial color=#0000ff 
size=2>   With SafeItem<BR>      ' Set Item 
property<BR>      .Item = 
oItem<BR>      ' Set the Recipients 
property<BR>      With 
.Recipients<BR>         .Add 
strEmailAddr<BR>         
.ResolveAll<BR>      End 
With<BR>      ' Subject of 
Email<BR>      .Subject = "Testing 
Redemption"<BR>      ' Message body goes 
here<BR>      .Body = "This is a 
test"<BR>      ' If there is an attachment to be 
sent...<BR>      If strAttachment <> "" 
Then<BR>         ' Add the attachment to 
the email<BR>         .Attachments.Add 
strAttachment<BR>      End 
If<BR>      ' Automatically send the 
Email<BR>      .Send<BR>   End 
With</FONT></SPAN></DIV>
<DIV> </DIV><SPAN class=596173719-24022003><FONT face=Arial color=#0000ff 
size=2>
<DIV><BR>   SendEmail = True</DIV>
<DIV> </DIV>
<DIV>SendEmail_EXIT:</DIV>
<DIV> </DIV>
<DIV>   On Error Resume Next<BR>   ' Release all 
resources<BR>   Set oItem = Nothing<BR>   Set SafeItem = 
Nothing<BR>   Set oApp = Nothing</DIV>
<DIV> </DIV>
<DIV>   Exit Function</DIV>
<DIV> </DIV>
<DIV>SendEmail_ERR:</DIV>
<DIV> </DIV>
<DIV>   SendEmail = False<BR>   MsgBox 
Err.Description<BR>   Resume SendEmail_EXIT</DIV>
<DIV> </DIV>
<DIV>End Function<BR></FONT></SPAN></DIV>
<DIV> </DIV>
<DIV> </DIV><!-- Converted from text/rtf format -->
<P><B><I><FONT face="Times New Roman" color=#0000ff size=4>John V. 
Ruff</FONT><FONT face="Times New Roman" size=4> – </FONT><FONT 
face="Times New Roman" color=#008080 size=4>The Eternal Optimist</FONT><FONT 
face="Times New Roman" size=4></FONT> <FONT face=Wingdings color=#800080 
size=4>J</FONT></I></B> <BR><I><FONT face="Times New Roman">Always Looking For 
Contract Opportunities</FONT></I> </P>
<P><A href="http://www.noclassroom.com/"><U><FONT face="Times New Roman" 
color=#0000ff>www.noclassroom.com</FONT></U></A> <BR><FONT 
face="Times New Roman" color=#ff00ff>Live software training</FONT> <BR><FONT 
face="Times New Roman" color=#ff00ff>Right over the Internet</FONT> </P>
<P><FONT face="Times New Roman" size=2>Home: 253.588.2139</FONT> <BR><FONT 
face="Times New Roman" size=2>Cell: 253.307/2947</FONT> <BR><FONT 
face="Times New Roman" size=2>9306 Farwest Dr SW</FONT> <BR><FONT 
face="Times New Roman" size=2>Lakewood, WA 98498</FONT> </P>
<P><B><FONT face="Times New Roman" color=#000080 size=2>“Commit to the Lord 
whatever you do,</FONT></B> <BR><B>        
<FONT face="Times New Roman" color=#000080 size=2>and your plans will succeed.” 
Proverbs 16:3</FONT></B> </P>
<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> 
  accessd-admin@databaseadvisors.com [mailto:accessd-admin@databaseadvisors.com] 
  <B>On Behalf Of </B>Charlotte Foust<BR><B>Sent:</B> Monday, February 24, 2003 
  10:58 AM<BR><B>To:</B> AccessD@databaseadvisors.com<BR><B>Subject:</B> 
  [AccessD] Access XP and MAPI<BR><BR></FONT></DIV><!-- Converted from text/rtf format -->
  <P><FONT face="Comic Sans MS" size=2>I'm trying to convert an A97 app to AXP 
  where we've been using the Redemption.dll to handle email and bypass the MAPI 
  security stuff.  This works fine in A97 even on a WinXP/Office XP 
  machine.  However, the XP conversion of the database chokes on 
</FONT></P>
  <P><FONT face="Comic Sans MS" size=2>Dim objSession As MAPI.Session</FONT> 
</P>
  <P><FONT face="Comic Sans MS" size=2>Any suggestions?  I haven't tried 
  late binding yet, but that's what I'll be doing while I wait for 
  enlightenment. <g></FONT> </P>
  <P><FONT face="Comic Sans MS" size=2>Charlotte Foust</FONT> 
</P></BLOCKQUOTE></BODY></HTML>