<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>Run Time Error 48. Fail To Load DLL.</TITLE>
<META content="MSHTML 5.50.4728.2300" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=509395720-29082003><FONT face=Arial color=#0000ff
size=2>Hmmmm... it is definitely registered. I am not sure what you mean
by installed? I was not aware that a special install was needed as this
has worked on every machine I have set up a database on except this one.
It worked in every Version 97, 2K and XP without special tweaking till
now. I am about to connect to the users machine and try and send the
driver I sent him to REGSERVE.EXE if this is what you mean by Installed? I
will know it works soon.</FONT></SPAN></DIV>
<DIV><SPAN class=509395720-29082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=509395720-29082003><FONT face=Arial color=#0000ff
size=2>Thanks</FONT></SPAN></DIV>
<DIV><SPAN class=509395720-29082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=509395720-29082003><FONT face=Arial color=#0000ff
size=2>Mike</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> Jim Lawrence (AccessD)
[mailto:accessd@shaw.ca]<BR><B>Sent:</B> Friday, August 29, 2003 12:19
PM<BR><B>To:</B> Access Developers discussion and problem
solving<BR><B>Subject:</B> RE: [AccessD] Run Time Error 48. Fail To Load
DLL.<BR><BR></FONT></DIV>
<DIV><SPAN class=060511619-29082003><FONT face=Arial color=#0000ff size=2>Hi
Michael:</FONT></SPAN></DIV>
<DIV><SPAN class=060511619-29082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=060511619-29082003><FONT face=Arial color=#0000ff size=2>Is
the Outlook module installed or registered, in Access, on the offending
machine?</FONT></SPAN></DIV>
<DIV><SPAN class=060511619-29082003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=060511619-29082003><FONT face=Arial color=#0000ff
size=2>Jim</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of </B>Millaud,
Michael J [ITS]<BR><B>Sent:</B> Friday, August 29, 2003 10:59
AM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> [AccessD]
Run Time Error 48. Fail To Load DLL.<BR><BR></FONT></DIV><!-- Converted from text/rtf format -->
<P><FONT face=Arial size=2>Hey All,</FONT> </P>
<P><FONT face=Arial size=2>I recently down graded an XP Database to Access2k
to avoid the cost and hassle of installing XP or a 97 Database in a new
group of users machines. As expected of the 20+ users One receives the
RunTime Error 48 Fail To Load DLL. I have relaoded Access2k thinking
an Access DLL was bad but did not help. I transferred a couple the
Outlook MSOUTL09.OLB that works for me and removed the reference that was
used referenced this one instead, again to no avail. Is there
something else I should look into? The debug drops errors at
line: <U> Set myOlApp = CreateObject("Outlook.Application")</U>
in the following code. Again, this works for all but one user so I am
at a loss. Please help. </FONT></P><BR>
<P><FONT face=Arial
size=2>XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX</FONT>
<BR><FONT face=Arial size=2>Dim Inc As String</FONT> <BR><FONT face=Arial
size=2>Dim strName As String</FONT> <BR><FONT face=Arial size=2>Dim strName2
As String</FONT> <BR><FONT face=Arial size=2>Dim stDocName As String</FONT>
<BR><FONT face=Arial size=2>Dim DB As Database</FONT> <BR><FONT face=Arial
size=2>Dim RS As Recordset</FONT> <BR><FONT face=Arial size=2>Dim strCapture
As String</FONT> <BR><FONT face=Arial size=2>Dim strSQL As String</FONT>
<BR><FONT face=Arial size=2>Dim strSaveName As String</FONT> </P>
<P><FONT face=Arial size=2>DoCmd.SetWarnings False</FONT> <BR><FONT
face=Arial size=2> stDocName = "qryMainFilter"</FONT>
<BR><FONT face=Arial size=2> DoCmd.OpenQuery stDocName,
acNormal, acEdit</FONT> <BR><FONT face=Arial size=2>DoCmd.SetWarnings
True</FONT> <BR><FONT face=Arial size=2>Set DB = CurrentDb</FONT> <BR><FONT
face=Arial size=2>strSQL = "SELECT tblLetterType.Desc FROM tblOutPut LEFT
JOIN tblLetterType ON tblOutPut.LetterType = tblLetterType.LetterTag GROUP
BY tblLetterType.Desc;"</FONT></P>
<P><FONT face=Arial size=2>Set RS = DB.OpenRecordset(strSQL)</FONT> </P>
<P><FONT face=Arial size=2>RS.MoveLast</FONT> <BR><FONT face=Arial
size=2>strCapture = RS.Fields("Desc")</FONT> </P>
<P><FONT face=Arial size=2>Inc = Me!txtIncVal</FONT> <BR><FONT face=Arial
size=2>strName = Me!txtSaveString</FONT> <BR><FONT face=Arial
size=2>strName2 = "Source" & "_" & strName</FONT> </P>
<P><FONT face=Arial size=2>strSaveName = "C:\PCSLetters\Hist\" & strName
& "_" & strCapture & "_" & Inc & ".txt"</FONT> </P>
<P><FONT face=Arial size=2> DoCmd.TransferText
acExportFixed, "OutPut_Spec", "tblOutPut", "C:\PCSLetters\Hist\" &
strName & "_" & strCapture & "_" & Inc &
".txt"</FONT></P>
<P><FONT face=Arial size=2> DoCmd.TransferSpreadsheet
acExport, acSpreadsheetTypeExcel97, "tblOutPut", "C:\PCSLetters\Hist\" &
strName & "_" & strCapture & "_" & Inc &
".xls"</FONT></P>
<P><FONT face=Arial size=2>'Hmmm What is this??
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "tblFilter",
"C:\PCSLetters\Hist\" & strName2 & "_" & strCapture & "_"
& Inc & ".xls"</FONT></P><BR>
<P><FONT face=Arial
size=2>'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>></FONT>
<BR><FONT face=Arial size=2>'>>> E-Mail Process Below</FONT>
<BR><FONT face=Arial size=2>'>>></FONT> <BR><FONT face=Arial
size=2>'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>></FONT>
<BR><FONT face=Arial size=2>'Dim StrSendFileName As String</FONT> <BR><FONT
face=Arial size=2>Dim myOlApp As Outlook.Application</FONT> <BR><FONT
face=Arial size=2>Dim myItem As Outlook.MailItem</FONT> <BR><FONT face=Arial
size=2>Dim myAttachments As Variant</FONT> </P>
<P><FONT face=Arial size=2>'StrSendFileName =
"c:\pcsletters\CreditClasslOutPut.xls"</FONT> <BR><B><FONT face=Arial
size=2>Set myOlApp =
CreateObject("Outlook.Application")
'<---------- ERROR IS HERE!</FONT></B> <BR><FONT face=Arial size=2>Set
myItem = myOlApp.CreateItem(olMailItem)</FONT> <BR><FONT face=Arial
size=2>Set myAttachments = myItem.Attachments</FONT> <BR><FONT face=Arial
size=2>myAttachments.Add strSaveName</FONT> <BR><FONT face=Arial size=2>With
myItem</FONT> <BR><FONT face=Arial size=2>.Subject = "PCS A/R Letter
Process"</FONT> <BR><FONT face=Arial size=2>.Body = "File Saved as " &
strSaveName & vbCrLf & "Attached is one of the PCS A/R Letters
files!" & vbCrLf</FONT> <BR><FONT face=Arial size=2>.To =
"mike.millaud@mail.sprint.com;Roberta.Snyder@mail.sprint.com"</FONT>
<BR><FONT face=Arial size=2>'.BCC = "whoever@Comp.com"</FONT> <BR><FONT
face=Arial size=2>'.Attachments = myAttachments</FONT> <BR><FONT face=Arial
size=2>.Send</FONT> <BR><FONT face=Arial size=2>End With</FONT> <BR><FONT
face=Arial size=2>Set myOlApp = Nothing</FONT> <BR><FONT face=Arial
size=2>XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX</FONT>
</P><BR><BR><BR>
<P><FONT face=Arial size=2>Thanks</FONT> </P>
<P><FONT face=Arial size=2>Mike</FONT>
</P></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>