<!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>