<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="Generator" CONTENT="MS Exchange Server version 6.0.6396.0">
<TITLE>Run Time Error 48. Fail To Load DLL.</TITLE>
</HEAD>
<BODY>
<!-- Converted from text/rtf format -->
<P><FONT SIZE=2 FACE="Arial">Hey All,</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">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 SIZE=2 FACE="Arial">XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim Inc As String</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim strName As String</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim strName2 As String</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim stDocName As String</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim DB As Database</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim RS As Recordset</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim strCapture As String</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim strSQL As String</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim strSaveName As String</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">DoCmd.SetWarnings False</FONT>
<BR><FONT SIZE=2 FACE="Arial"> stDocName = "qryMainFilter"</FONT>
<BR><FONT SIZE=2 FACE="Arial"> DoCmd.OpenQuery stDocName, acNormal, acEdit</FONT>
<BR><FONT SIZE=2 FACE="Arial">DoCmd.SetWarnings True</FONT>
<BR><FONT SIZE=2 FACE="Arial">Set DB = CurrentDb</FONT>
<BR><FONT SIZE=2 FACE="Arial">strSQL = "SELECT tblLetterType.Desc FROM tblOutPut LEFT JOIN tblLetterType ON tblOutPut.LetterType = tblLetterType.LetterTag GROUP BY tblLetterType.Desc;"</FONT></P>
<P><FONT SIZE=2 FACE="Arial">Set RS = DB.OpenRecordset(strSQL)</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">RS.MoveLast</FONT>
<BR><FONT SIZE=2 FACE="Arial">strCapture = RS.Fields("Desc")</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">Inc = Me!txtIncVal</FONT>
<BR><FONT SIZE=2 FACE="Arial">strName = Me!txtSaveString</FONT>
<BR><FONT SIZE=2 FACE="Arial">strName2 = "Source" & "_" & strName</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">strSaveName = "C:\PCSLetters\Hist\" & strName & "_" & strCapture & "_" & Inc & ".txt"</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial"> DoCmd.TransferText acExportFixed, "OutPut_Spec", "tblOutPut", "C:\PCSLetters\Hist\" & strName & "_" & strCapture & "_" & Inc & ".txt"</FONT></P>
<P><FONT SIZE=2 FACE="Arial"> DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "tblOutPut", "C:\PCSLetters\Hist\" & strName & "_" & strCapture & "_" & Inc & ".xls"</FONT></P>
<P><FONT SIZE=2 FACE="Arial">'Hmmm What is this?? DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "tblFilter", "C:\PCSLetters\Hist\" & strName2 & "_" & strCapture & "_" & Inc & ".xls"</FONT></P>
<BR>
<P><FONT SIZE=2 FACE="Arial">'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>></FONT>
<BR><FONT SIZE=2 FACE="Arial">'>>> E-Mail Process Below</FONT>
<BR><FONT SIZE=2 FACE="Arial">'>>></FONT>
<BR><FONT SIZE=2 FACE="Arial">'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>></FONT>
<BR><FONT SIZE=2 FACE="Arial">'Dim StrSendFileName As String</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim myOlApp As Outlook.Application</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim myItem As Outlook.MailItem</FONT>
<BR><FONT SIZE=2 FACE="Arial">Dim myAttachments As Variant</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">'StrSendFileName = "c:\pcsletters\CreditClasslOutPut.xls"</FONT>
<BR><B><FONT SIZE=2 FACE="Arial">Set myOlApp = CreateObject("Outlook.Application") '<---------- ERROR IS HERE!</FONT></B>
<BR><FONT SIZE=2 FACE="Arial">Set myItem = myOlApp.CreateItem(olMailItem)</FONT>
<BR><FONT SIZE=2 FACE="Arial">Set myAttachments = myItem.Attachments</FONT>
<BR><FONT SIZE=2 FACE="Arial">myAttachments.Add strSaveName</FONT>
<BR><FONT SIZE=2 FACE="Arial">With myItem</FONT>
<BR><FONT SIZE=2 FACE="Arial">.Subject = "PCS A/R Letter Process"</FONT>
<BR><FONT SIZE=2 FACE="Arial">.Body = "File Saved as " & strSaveName & vbCrLf & "Attached is one of the PCS A/R Letters files!" & vbCrLf</FONT>
<BR><FONT SIZE=2 FACE="Arial">.To = "mike.millaud@mail.sprint.com;Roberta.Snyder@mail.sprint.com"</FONT>
<BR><FONT SIZE=2 FACE="Arial">'.BCC = "whoever@Comp.com"</FONT>
<BR><FONT SIZE=2 FACE="Arial">'.Attachments = myAttachments</FONT>
<BR><FONT SIZE=2 FACE="Arial">.Send</FONT>
<BR><FONT SIZE=2 FACE="Arial">End With</FONT>
<BR><FONT SIZE=2 FACE="Arial">Set myOlApp = Nothing</FONT>
<BR><FONT SIZE=2 FACE="Arial">XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX</FONT>
</P>
<BR>
<BR>
<BR>
<P><FONT SIZE=2 FACE="Arial">Thanks</FONT>
</P>
<P><FONT SIZE=2 FACE="Arial">Mike</FONT>
</P>
</BODY>
</HTML>