Mark A Matte
markamatte at hotmail.com
Thu May 1 22:24:38 CDT 2008
Thanks All who responded...
As I mentioned...this has been running for 3 years...all that changed was the machine...
And apparently the lack of Office SP-3.
I also was apparently searching incorrectly on google to find a solution...but turns out was a known issue
Thanks Again,
Mark
> From: dwaters at usinternet.com
> To: accessd at databaseadvisors.com
> Date: Thu, 1 May 2008 18:00:21 -0500
> Subject: Re: [AccessD] Docmd.SendObject
>
> Remember to remove acFormatHTML. You only use that when you are actually
> sending an object (an attachment).
>
> Dan
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte
> Sent: Thursday, May 01, 2008 4:10 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Docmd.SendObject
>
>
> Max and Dan,
>
> Thanks for your feedback. It has been running for over 3 years...only thing
> that has changed is the machine.
>
> 1. I will declare everything.
> 2. I will replace the word BODY
> 3. Need the quotes around 'Stock' as it is the subject in that instance???
>
> I'm still thinking the problem is somewhere else...as I can run the email
> part over and over again...it is only after the attempted FTP does the
> 'problem' occur.
>
> Thanks again,
>
> Mark A. Matte
>
>
>> From: max.wanadoo at gmail.com
>> To: accessd at databaseadvisors.com
>> Date: Thu, 1 May 2008 20:53:18 +0100
>> Subject: Re: [AccessD] Docmd.SendObject
>>
>> Mark, different style of programming. This would be my version of it.
>>
>> Function SendEmail()
>> Dim dbs As dao.Database, rst As dao.Recordset
>> Dim strBody As String
>> Set dbs = CurrentDb
>> Set rst = dbs.OpenRecordset("tblStock")
>> If rst.EOF Then
>> MsgBox "No records to email"
>> Else
>> rst.movefirst
>> Do While Not rst.EOF
>> strBody = strBody & vbCrLf & rst!Stock & ":" & rst!PerChange & " "
>> rst.MoveNext
>> Loop
>> DoCmd.SendObject , , acFormatHTML, "5555555555 at messaging.sprintpcs.com",
>> "6666666666 at messaging.sprintpcs.com", , "Stock", strBody, false
>> End If
>> exithere:
>> Set dbs = Nothing: Set rst = Nothing
>> Exit Function
>> End Function
>>
>> Cannot find anything intrinsically wrong with yours, but these changes may
>> have subtle implications.
>> I also like to explicitly declare everything.
>>
>> Max
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte
>> Sent: Thursday, May 01, 2008 6:02 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Docmd.SendObject
>>
>>
>> Here is the email function...it steps right through as if everything is
>> OK...bot No email gets sent on the SendObject...and no errors either.
>>
>> **********************************
>> Dim dbs As Database, rst As Recordset, intI As Integer, FirstCount As
>> Integer
>>
>> Dim Stock
>> Dim StockPercent
>> Dim Body
>> Dim strNumber As String
>> Set dbs = CurrentDb
>> Set rst = dbs.OpenRecordset("My SQL Statement here")
>>
>> FirstCount = rst.RecordCount
>> rst.MoveLast
>> rst.MoveFirst
>> For intI = 1 To rst.RecordCount
>> Stock = rst!symbol
>> StockPercent = rst!PerChange
>> Body = Body & Stock & ":" & StockPercent & " "
>> rst.MoveNext
>>
>> Next intI
>>
>> rst.Close
>>
>> Set dbs = Nothing
>>
>> DoCmd.SendObject , , acFormatHTML, "5555555555 at messaging.sprintpcs.com",
>> "6666666666 at messaging.sprintpcs.com", , "Stock", Body, 0
>>
>> **********************************
>>
>>
>>> From: dwaters at usinternet.com
>>> To: accessd at databaseadvisors.com
>>> Date: Thu, 1 May 2008 11:04:55 -0500
>>> Subject: Re: [AccessD] Docmd.SendObject
>>>
>>> Mark - can you post some of your code and show which line(s) get
>>> skipped when you are stepping through?
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A
>>> Matte
>>> Sent: Thursday, May 01, 2008 7:40 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] Docmd.SendObject
>>>
>>>
>>> Thanks Max,
>>>
>>> But ...No. I think It has something to do with the checking for the
>>> FTP and not finding one(or some code in between). If it does not find
>>> a file...it never gets to the email part...so I'm not sure where it would
>> impact.
>>>
>>> Currently If I run just the email part...runs fine...over and over
>>> again...but if I let it step through the FTP and other stuff...it will
>>> run if it finds a file...if no file...I can not even run just the email
>> part.
>>> It steps through as if everything is OK...just no email. There is
>>> error handling, but NO error?
>>>
>>> Thanks,
>>>
>>> Mark A. Matte
>>>
>>>
>>>
>>>
>>>
>>>> From: max.wanadoo at gmail.com
>>>> To: accessd at databaseadvisors.com
>>>> Date: Thu, 1 May 2008 07:26:15 +0100
>>>> Subject: Re: [AccessD] Docmd.SendObject
>>>>
>>>> Is the PC set to Hibernate perhaps?
>>>> Just guessing really.
>>>> Max
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A
>>>> Matte
>>>> Sent: Thursday, May 01, 2008 2:06 AM
>>>> To: Access Developers discussion and problem solving
>>>> Subject: [AccessD] Docmd.SendObject
>>>>
>>>>
>>>> Hello All,
>>>>
>>>> I have an MDB that does some FTP,Unzip,Import, and email.
>>>>
>>>> Its been running a few years...but recently put it on a newer
>>>> machine...running 2000 Server...A2K.
>>>>
>>>> All of the functionality still works...at first...
>>>>
>>>> It is using a form timer to check for a file...and when it finds
>>>> 1...it
>>> does
>>>> all the other stuff.
>>>>
>>>> Problem is after an hour or so...it stops sending email. It does not
>>>> error...if I go and step through the whole thing...or just the email
>>>> part...it just steps right over the docmd.sendobject without
>>>> erroring. If
>>> I
>>>> reopen the mdb...it runs fine for a bit...b ut same issue comes up?
>>>>
>>>>
>>>> Any ideas?
>>>>
>>>> Thanks,
>>>>
>>>> Mark A. Matte
>>>> _________________________________________________________________
>>>> In a rush? Get real-time answers with Windows Live Messenger.
>>>>
>>> http://www.windowslive.com/messenger/overview.html?ocid=TXT_TAGLM_WL_R
>>> efresh
>>>> _realtime_042008
>>>> --
>>>> AccessD mailing list
>>>> AccessD at databaseadvisors.com
>>>> http://databaseadvisors.com/mailman/listinfo/accessd
>>>> Website: http://www.databaseadvisors.com
>>>>
>>>> --
>>>> AccessD mailing list
>>>> AccessD at databaseadvisors.com
>>>> http://databaseadvisors.com/mailman/listinfo/accessd
>>>> Website: http://www.databaseadvisors.com
>>>
>>> _________________________________________________________________
>>> Back to work after baby-how do you know when you're ready?
>>> http://lifestyle.msn.com/familyandparenting/articleNW.aspx?cp-document
>>> id=579
>>> 7498&ocid=T067MSN40A0701A
>>> --
>>> AccessD mailing list
>>> AccessD at databaseadvisors.com
>>> http://databaseadvisors.com/mailman/listinfo/accessd
>>> Website: http://www.databaseadvisors.com
>>>
>>> --
>>> AccessD mailing list
>>> AccessD at databaseadvisors.com
>>> http://databaseadvisors.com/mailman/listinfo/accessd
>>> Website: http://www.databaseadvisors.com
>>
>> _________________________________________________________________
>> Spell a grand slam in this game where word skill meets World Series. Get
> in
>> the game.
>>
> http://club.live.com/word_slugger.aspx?icid=word_slugger_wlhm_admod_april08
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>
> _________________________________________________________________
> Spell a grand slam in this game where word skill meets World Series. Get in
> the game.
> http://club.live.com/word_slugger.aspx?icid=word_slugger_wlhm_admod_april08
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
_________________________________________________________________
In a rush? Get real-time answers with Windows Live Messenger.
http://www.windowslive.com/messenger/overview.html?ocid=TXT_TAGLM_WL_Refresh_realtime_042008