<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Run Time Error 48. Fail To Load DLL.</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1170" name=GENERATOR></HEAD>
<BODY>
<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></BODY></HTML>