<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Message</TITLE>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2800.1141" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=940162720-24022003><FONT face="Comic Sans MS" color=#0000ff
size=2>Thanks, John. That will save me a lot of time.</FONT></SPAN></DIV>
<DIV><SPAN class=940162720-24022003><FONT face="Comic Sans MS" color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=940162720-24022003><FONT face="Comic Sans MS" color=#0000ff
size=2>Charlotte Foust</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> John Ruff
[mailto:papparuff@attbi.com] <BR><B>Sent:</B> Monday, February 24, 2003 11:38
AM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> RE: [AccessD]
Access XP and MAPI<BR><BR></FONT></DIV>
<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></BLOCKQUOTE></BODY></HTML>