N
NightZEN
I have some code that has worked well under windows2000 and windowsXP-sp1 and
Access 97, 2000, and 2002, and Outlook 2000 and 2002, and in every
configuration of the above you could assemble. We are now going to WinXP-sp2
and the code is not working - though I think it's related to sp2, I am not
sure. The debugger hilights the last line here:
Private Sub CbtnEmail_Click()
On Error GoTo err_handle
Dim strJob As String
strJob = Me.Job_
Dim doubStart As Double
Dim intCount As Integer
Dim fso As FileSystemObject
Dim Subjectline As String
Dim ToList As String
Dim MyOutlook As Object 'Outlook.Application
Dim db As DAO.Database
Dim MailList As DAO.Recordset
Dim MyMail As Outlook.MailItem
Dim strTeam As String, strCust As String
'grab the team this job belongs to and the customer
strTeam = Me.Team
strCust = Me.CustName
Set fso = New FileSystemObject
'Setup Subject line
Subjectline$ = "New Job ... Number " & strJob
'Now, we open Outlook for our own device..
'Set MyOutlook = New Outlook.Application
Set MyOutlook = CreateObject("Outlook.Application")
....
Any Idea Why? I can't find any ref. to this error number.
Thanks
Access 97, 2000, and 2002, and Outlook 2000 and 2002, and in every
configuration of the above you could assemble. We are now going to WinXP-sp2
and the code is not working - though I think it's related to sp2, I am not
sure. The debugger hilights the last line here:
Private Sub CbtnEmail_Click()
On Error GoTo err_handle
Dim strJob As String
strJob = Me.Job_
Dim doubStart As Double
Dim intCount As Integer
Dim fso As FileSystemObject
Dim Subjectline As String
Dim ToList As String
Dim MyOutlook As Object 'Outlook.Application
Dim db As DAO.Database
Dim MailList As DAO.Recordset
Dim MyMail As Outlook.MailItem
Dim strTeam As String, strCust As String
'grab the team this job belongs to and the customer
strTeam = Me.Team
strCust = Me.CustName
Set fso = New FileSystemObject
'Setup Subject line
Subjectline$ = "New Job ... Number " & strJob
'Now, we open Outlook for our own device..
'Set MyOutlook = New Outlook.Application
Set MyOutlook = CreateObject("Outlook.Application")
....
Any Idea Why? I can't find any ref. to this error number.
Thanks