SendObject & A2K SP-3

[Fred Zuckerman]

Hello All,

I had written a quick email procedure for a client that uses
DoCmd.SendObject. However they have the SR-1 version of Access 2K. They do
not have the SP-3 upgrade. The procedure does not work all of the time (it
seems to fail on long emails). The procedure works fine on my computers that
have the SP-3 upgrade. I read about the SP-3 upgrade and it evidently
repairs some SendObject bugs.

Unfortunately, the client has another very expensive software package custom
written for them and the vendor has told them not to upgrade to the SP-3 as
they have not fully evaluated the upgrade, so my client will not upgrade.

Will the following code (using Outlook Items) work for them or is it also
susceptible to the bugs that were fixed with SP-3.

'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
''
Private Sub btnMail_Click()
Dim objOutlookApp As New Outlook.Application
Dim objOutlookMail As Outlook.MailItem
Dim strRecipients As String
Dim strSubject As String
Dim strBody As String

strRecipients = "zu********@sbcglobal.net"
strSubject = "Test - " & Now()
strBody = "This is a test"

Set objOutlookApp = CreateObject("Outlook.Application")
Set objOutlookMail = objOutlookApp.CreateItem(olMailItem)

With objOutlookMail
.To = strRecipients
.Subject = strSubject
.Body = strBody
.Send
End With

objOutlookApp.Quit
Set objOutlookApp = Nothing
Set objOutlookMail = Nothing

MsgBox "This item has been placed in your Outlook Outbox" & vbCrLf &
vbCrLf & _
"Don't forget to open your Outlook Outbox and actually SEND this
email"

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
''

Thanks In Advance.
Fred Zuckerman

[david epsom dot com dot au]

The mail bugs were not fixed in A2K SR1. They persisted
until SP3, which was released after the bugs were fixed in
AXP (or was that A2K3?)

Your test example uses a single mail item, and a very
short message, so no problem is expected. I'm not
sure what the minimum message size was to see possible
failures, but I think it was more than 14 characters?
(david)

"Fred Zuckerman" <Zu********@sbcglobal.net> wrote in message
news:X0*****************@newssvr25.news.prodigy.ne t...

Hello All,

I had written a quick email procedure for a client that uses
DoCmd.SendObject. However they have the SR-1 version of Access 2K. They do
not have the SP-3 upgrade. The procedure does not work all of the time (it
seems to fail on long emails). The procedure works fine on my computers
that
have the SP-3 upgrade. I read about the SP-3 upgrade and it evidently
repairs some SendObject bugs.

Unfortunately, the client has another very expensive software package
custom
written for them and the vendor has told them not to upgrade to the SP-3
as
they have not fully evaluated the upgrade, so my client will not upgrade.

Will the following code (using Outlook Items) work for them or is it also
susceptible to the bugs that were fixed with SP-3.

'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
''
Private Sub btnMail_Click()
Dim objOutlookApp As New Outlook.Application
Dim objOutlookMail As Outlook.MailItem
Dim strRecipients As String
Dim strSubject As String
Dim strBody As String

strRecipients = "zu********@sbcglobal.net"
strSubject = "Test - " & Now()
strBody = "This is a test"

Set objOutlookApp = CreateObject("Outlook.Application")
Set objOutlookMail = objOutlookApp.CreateItem(olMailItem)

With objOutlookMail
.To = strRecipients
.Subject = strSubject
.Body = strBody
.Send
End With

objOutlookApp.Quit
Set objOutlookApp = Nothing
Set objOutlookMail = Nothing

MsgBox "This item has been placed in your Outlook Outbox" & vbCrLf &
vbCrLf & _
"Don't forget to open your Outlook Outbox and actually SEND this
email"

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
''

Thanks In Advance.
Fred Zuckerman

[Fred Zuckerman]

Thank you (david)

The msg is usually around 3,000 characters when it fails with
DoCmd.SendObject.
I've since changed the output to a report preview, then the user
right-clicks and uses "Send To" to send it as an email attachment. But it is
a big pain for them. They need to set the address(es) manually, change the
subject manually, etc.

So my question was, will the code using Outlook.MailItem suffer the same
failures as DoCmd.SendObject when the msg gets to 3,000 characters.

Thanks,
Fred

"david epsom dot com dot au" <david@epsomdotcomdotau> wrote in message
news:44**********************@lon-reader.news.telstra.net...

The mail bugs were not fixed in A2K SR1. They persisted
until SP3, which was released after the bugs were fixed in
AXP (or was that A2K3?)

Your test example uses a single mail item, and a very
short message, so no problem is expected. I'm not
sure what the minimum message size was to see possible
failures, but I think it was more than 14 characters?
(david)

"Fred Zuckerman" <Zu********@sbcglobal.net> wrote in message
news:X0*****************@newssvr25.news.prodigy.ne t...

Hello All,

I had written a quick email procedure for a client that uses
DoCmd.SendObject. However they have the SR-1 version of Access 2K. They do not have the SP-3 upgrade. The procedure does not work all of the time (it seems to fail on long emails). The procedure works fine on my computers
that
have the SP-3 upgrade. I read about the SP-3 upgrade and it evidently
repairs some SendObject bugs.

Unfortunately, the client has another very expensive software package
custom
written for them and the vendor has told them not to upgrade to the SP-3
as
they have not fully evaluated the upgrade, so my client will not upgrade.
Will the following code (using Outlook Items) work for them or is it also susceptible to the bugs that were fixed with SP-3.

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''' ''
Private Sub btnMail_Click()
Dim objOutlookApp As New Outlook.Application
Dim objOutlookMail As Outlook.MailItem
Dim strRecipients As String
Dim strSubject As String
Dim strBody As String

strRecipients = "zu********@sbcglobal.net"
strSubject = "Test - " & Now()
strBody = "This is a test"

Set objOutlookApp = CreateObject("Outlook.Application")
Set objOutlookMail = objOutlookApp.CreateItem(olMailItem)

With objOutlookMail
.To = strRecipients
.Subject = strSubject
.Body = strBody
.Send
End With

objOutlookApp.Quit
Set objOutlookApp = Nothing
Set objOutlookMail = Nothing

MsgBox "This item has been placed in your Outlook Outbox" & vbCrLf &
vbCrLf & _
"Don't forget to open your Outlook Outbox and actually SEND this email"

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''' ''

Thanks In Advance.
Fred Zuckerman

[david epsom dot com dot au]

Sorry, i wasn't paying proper attention.

No, Outlook.MailItem does not suffer from the DoCmd.SendObject
bug.

And that was also my personal experience. The only support I
had to do was when an idxRecord field outgrew an Integer temp
value left over from a previous design iteration. There were
typically around 5 records per mail item, so it had done about
6000 messages at that point, over a 3 year period.

(david)
"Fred Zuckerman" <Zu********@sbcglobal.net> wrote in message
news:Ii*******************@newssvr13.news.prodigy. com...

Thank you (david)

The msg is usually around 3,000 characters when it fails with
DoCmd.SendObject.
I've since changed the output to a report preview, then the user
right-clicks and uses "Send To" to send it as an email attachment. But it
is
a big pain for them. They need to set the address(es) manually, change the
subject manually, etc.

So my question was, will the code using Outlook.MailItem suffer the same
failures as DoCmd.SendObject when the msg gets to 3,000 characters.

Thanks,
Fred

"david epsom dot com dot au" <david@epsomdotcomdotau> wrote in message
news:44**********************@lon-reader.news.telstra.net...

The mail bugs were not fixed in A2K SR1. They persisted
until SP3, which was released after the bugs were fixed in
AXP (or was that A2K3?)

Your test example uses a single mail item, and a very
short message, so no problem is expected. I'm not
sure what the minimum message size was to see possible
failures, but I think it was more than 14 characters?
(david)

"Fred Zuckerman" <Zu********@sbcglobal.net> wrote in message
news:X0*****************@newssvr25.news.prodigy.ne t...

> Hello All,
>
> I had written a quick email procedure for a client that uses
> DoCmd.SendObject. However they have the SR-1 version of Access 2K. They do > not have the SP-3 upgrade. The procedure does not work all of the time (it > seems to fail on long emails). The procedure works fine on my computers
> that
> have the SP-3 upgrade. I read about the SP-3 upgrade and it evidently
> repairs some SendObject bugs.
>
> Unfortunately, the client has another very expensive software package
> custom
> written for them and the vendor has told them not to upgrade to the
> SP-3
> as
> they have not fully evaluated the upgrade, so my client will not upgrade. >
> Will the following code (using Outlook Items) work for them or is it also > susceptible to the bugs that were fixed with SP-3.
>
> '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''' > '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''' > ''
> Private Sub btnMail_Click()
> Dim objOutlookApp As New Outlook.Application
> Dim objOutlookMail As Outlook.MailItem
> Dim strRecipients As String
> Dim strSubject As String
> Dim strBody As String
>
> strRecipients = "zu********@sbcglobal.net"
> strSubject = "Test - " & Now()
> strBody = "This is a test"
>
> Set objOutlookApp = CreateObject("Outlook.Application")
> Set objOutlookMail = objOutlookApp.CreateItem(olMailItem)
>
> With objOutlookMail
> .To = strRecipients
> .Subject = strSubject
> .Body = strBody
> .Send
> End With
>
> objOutlookApp.Quit
> Set objOutlookApp = Nothing
> Set objOutlookMail = Nothing
>
> MsgBox "This item has been placed in your Outlook Outbox" & vbCrLf &
> vbCrLf & _
> "Don't forget to open your Outlook Outbox and actually SEND this > email"
>
> End Sub
>
> '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''' > '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''' > ''
>
> Thanks In Advance.
> Fred Zuckerman
>
>