By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
432,548 Members | 1,735 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 432,548 IT Pros & Developers. It's quick & easy.

Email report using GroupWise

P: 41
Hi. I have an Access DB that is for contracts. I have used the code found on Tony's site for emailing a report per person containing only their information using GroupWise. It works great but I have a problem. Right now, the code before the GroupWise code, generates reports based on time criteria. If the query has no records for a person then a report isn't created. Trouble is, the code for GroupWise email sends the auto email message even though there isn't an attachment. How can I tell it to not send the auto email message to a recipient if there isn't a report as an attachment? Thanks in advance. I've been trying to find an answer all morning!
Jan 30 '07 #1
Share this Question
Share on Google+
46 Replies


NeoPa
Expert Mod 15k+
P: 31,476
To be honest, without having the code to reference it's going to be quite hard to know which bit(s) of it needs to be changed. Most things can be done in various ways in Access (Can be a blessing but can also be a chore) so there's really no way to guess.
Try posting the relevant section of the code (or all of it if it's not too voluminous).
Jan 31 '07 #2

MMcCarthy
Expert Mod 10K+
P: 14,534
Hi. I have an Access DB that is for contracts. I have used the code found on Tony's site for emailing a report per person containing only their information using GroupWise. It works great but I have a problem. Right now, the code before the GroupWise code, generates reports based on time criteria. If the query has no records for a person then a report isn't created. Trouble is, the code for GroupWise email sends the auto email message even though there isn't an attachment. How can I tell it to not send the auto email message to a recipient if there isn't a report as an attachment? Thanks in advance. I've been trying to find an answer all morning!
Post the piece of code that runs the report and calls the groupwise function. It's a matter of deciding to ignore the latter line of code if the report has no records. Once we see the code it will give a better idea of how that can be done.

Mary
Jan 31 '07 #3

P: 41
Here is the code for one person. Before this code runs, the DB creates a report, per person, if there is data. Looking forward to your help! I just can't figure it out!

Expand|Select|Wrap|Line Numbers
  1. Sub RunLRiouxEMail()
  2.  
  3. On Error GoTo Err_Handler
  4. Dim strTemp As String
  5. Dim varAttach(2) As Variant
  6. Dim strRecTo(1, 0) As String
  7. Dim strRecCc(1, 0) As String
  8. Dim lngCount As Long
  9. Dim varProxies As Variant
  10. Dim cGW As GW
  11.  
  12.  
  13. varAttach(0) = "C:\Documents and Settings\reo\My Documents\ContractReports\ReportsRioux.rtf"
  14.  
  15. strRecTo(0, 0) = "lmr@propeople.org"
  16. strRecTo(1, 0) = "lmr@propeople.org"
  17.  
  18. strRecCc(0, 0) = "plm@propeople.org"
  19.  
  20. Set cGW = New GW
  21. With cGW
  22.   .Login
  23.   .BodyText = "Attached please find a word document that lists: " & _
  24.               "contract reports that are over due and contract reports " & _
  25.               "that are due within one to three weeks.  " & vbCrLf & vbCrLf & _
  26.               "Please ensure that the reports are completed and sent " & _
  27.               "to the contract officer on time.  A copy of the dated cover " & _
  28.               "letter transmitting the report and the report itself should " & _
  29.               "be sent to the Accounting Specialist in the Finance Office.  " & _
  30.               "The Accounting Specialist will update the Contracts database " & _
  31.               "with the date the report was submitted and file the report " & _
  32.               "in the contract file for the compliance audits." & vbCrLf & vbCrLf & _
  33.               "If no document is attached to this automated e-mail then " & _
  34.               "you have no past due reports and no reports due within " & _
  35.               "the next three weeks." & vbCrLf & vbCrLf & _
  36.               "For questions please contact the Accounting Specialist " & _
  37.               "at 874-1140 ext 356. Thank you."
  38.   .Subject = "Contract Reports"
  39.   .RecTo = strRecTo
  40.   .RecCc = strRecCc
  41.   .FileAttachments = varAttach
  42.   .FromText = "Finance Department"
  43.   .Priority = "High"
  44.   strTemp = .CreateMessage
  45.   .ResolveRecipients strTemp
  46.   If IsArray(.NonResolved) Then MsgBox "Some unresolved recipients."
  47.   .SendMessage strTemp
  48.   .DeleteMessage strTemp, True
  49. End With
  50.  
  51.  
  52.  
  53. Exit_Here:
  54.   Set cGW = Nothing
  55.   Exit Sub
  56.  
  57. Err_Handler:
  58.   MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
  59.   Resume Exit_Here
  60.  
  61. End Sub
Jan 31 '07 #4

P: 41
Here is the code that creates a report for one person.

Expand|Select|Wrap|Line Numbers
  1.  DoCmd.OpenQuery "qryTimeToMailNoel", acNormal, acEdit
  2.         If DCount("*", "qryTimeToMailNoel") = 0 Then
  3.     DoCmd.Close acQuery, "qryTimeToMailNoel"
  4.         Else
  5.     DoCmd.OpenReport "rptReportsNoel", acPreview, "", ""
  6.     DoCmd.Close acReport, "rptReportsNoel"
  7.     DoCmd.Close acQuery, "qryTimeToMailNoel"
  8.     DoCmd.OutputTo acReport, "rptReportsNoel", _
  9.                    "RichTextFormat(*.rtf)", _                   "g:\accounting\development\ReportsNoel.rtf", _
  10.                    False, ""
  11.     DoCmd.OutputTo acReport, "rptReportsNoel", _                   "RichTextFormat(*.rtf)", _
  12.                    "C:\Documents and Settings\reo\My Documents\ContractReports\ReportsNoel.rtf", _
  13.                    False, ""
  14.         End If
Jan 31 '07 #5

MMcCarthy
Expert Mod 10K+
P: 14,534
Here is the code that creates a report for one person.

Expand|Select|Wrap|Line Numbers
  1.  DoCmd.OpenQuery "qryTimeToMailNoel", acNormal, acEdit
  2.         If DCount("*", "qryTimeToMailNoel") = 0 Then
  3.     DoCmd.Close acQuery, "qryTimeToMailNoel"
  4.         Else
  5.     DoCmd.OpenReport "rptReportsNoel", acPreview, "", ""
  6.     DoCmd.Close acReport, "rptReportsNoel"
  7.     DoCmd.Close acQuery, "qryTimeToMailNoel"
  8.     DoCmd.OutputTo acReport, "rptReportsNoel", _
  9.                    "RichTextFormat(*.rtf)", _                   "g:\accounting\development\ReportsNoel.rtf", _
  10.                    False, ""
  11.     DoCmd.OutputTo acReport, "rptReportsNoel", _                   "RichTextFormat(*.rtf)", _
  12.                    "C:\Documents and Settings\reo\My Documents\ContractReports\ReportsNoel.rtf", _
  13.                    False, ""
  14.         End If
Where is the line of code that actually calls the mailout function?
Jan 31 '07 #6

P: 41
The one above is run by a macro which has another RunCode to run the following function

Expand|Select|Wrap|Line Numbers
  1. Function ROconnerMail()
  2. Call RunROconnerEMail
  3. End Function
This calls the following:

Expand|Select|Wrap|Line Numbers
  1. Sub RunROconnerEMail()
  2.  
  3. On Error GoTo Err_Handler
  4. Dim strTemp As String
  5. Dim varAttach(2) As Variant
  6. Dim strRecTo(1, 0) As String
  7. Dim strRecCc(1, 0) As String
  8. Dim lngCount As Long
  9. Dim varProxies As Variant
  10. Dim cGW As GW
  11.  
  12.  
  13. varAttach(0) = "C:\Documents and Settings\reo\My Documents\" & _
  14.                "ContractReports\ReportsOConnor.rtf"
  15.  
  16. strRecTo(0, 0) = "reo@propeople.org"
  17. strRecTo(1, 0) = "reo@propeople.org"
  18.  
  19. strRecCc(0, 0) = "tpg@propeople.org"
  20.  
  21. Set cGW = New GW
  22. With cGW
  23.   .Login
  24.   .BodyText = "Attached please find a word document that lists: " & _
  25.               "contract reports that are over due and contract reports " & _
  26.               "that are due within one to three weeks.  " & vbCrLf & vbCrLf & _
  27.               "Please ensure that the reports are completed and sent " & _
  28.               "to the contract officer on time.  A copy of the dated " & _
  29.               "cover letter transmitting the report and the report " & _
  30.               "itself should be sent to the Accounting Specialist in " & _
  31.               "the Finance Office.  The Accounting Specialist will " & _
  32.               "update the Contracts database with the date the report " & _
  33.               "was submitted and file the report in the contract file " & _
  34.               "for the compliance audits." & vbCrLf & vbCrLf & _
  35.               "If no document is attached to this automated e-mail " & _
  36.               "then you have no past due reports and no reports due " & _
  37.               "within the next three weeks." & vbCrLf & vbCrLf & _
  38.               "For questions please contact the Accounting Specialist " & _
  39.               "at 874-1140 ext 356. Thank you."
  40.   .Subject = "Contract Reports"
  41.   .RecTo = strRecTo
  42.   .RecCc = strRecCc
  43.   .FileAttachments = varAttach
  44.   .FromText = "Finance Department"
  45.   .Priority = "High"
  46.   strTemp = .CreateMessage
  47.   .ResolveRecipients strTemp
  48.   If IsArray(.NonResolved) Then MsgBox "Some unresolved recipients."
  49.   .SendMessage strTemp
  50.   .DeleteMessage strTemp, True
  51. End With
  52.  
  53.  
  54.  
  55. Exit_Here:
  56.   Set cGW = Nothing
  57. Exit Sub

I appreciate the time you are spending as this is getting really frustrating; anything I try doesn't work.
Jan 31 '07 #7

NeoPa
Expert Mod 15k+
P: 31,476
Pixie,
If you post code without the tags (as it instructs you to do in the Reply window) then anyone trying to help you will find it difficult to understand what you're doing or what your code is doing. I've fixed up your earlier posts for you but the underlying code is not laid out for reading. If I fix this last one up it's just going to hide most of the info as some of the lines are so long (.BodyText=...). If you want the help then please at least don't make things harder for those who try to give it. I will go through your last post now trying to make it readable, but please, in future, include the tags and lay the code out in a way that is easily read.

MODERATOR.
Jan 31 '07 #8

P: 41
I'm sorry. I will review the guidelines and comply in the future.
Jan 31 '07 #9

NeoPa
Expert Mod 15k+
P: 31,476
That was a quick response :)
I don't mean to sound heavy, but it can cause a lot of delays sometimes.

I actually enjoyed going through your code though. It's a shame I don't have that level of experience with the objects that drive MS Outlook - but that's another story...
Jan 31 '07 #10

P: 41
Thanks. I hope you or someone will be able to help me out. I tried doing
Expand|Select|Wrap|Line Numbers
  1. If varAttach(0).Count = O Then vbCancel Send End if
byt that didn't work. I am not sure what left to try. Looking forward to a response.
Feb 1 '07 #11

NeoPa
Expert Mod 15k+
P: 31,476
The first thing you need to do is to determine what recognisable situation occurs when there are no items in your report. Does it fail to produce a file or does it produce a very small one. When you know that, we can look at ways of determining whether or not that state can be recognised by your code.
Feb 1 '07 #12

P: 41
If there is no data, a report is not created and thus not saved in the folder. The folder gets cleaned out after each email run.
Feb 1 '07 #13

NeoPa
Expert Mod 15k+
P: 31,476
That, we can work with.
It involves using Dir() but I'll have to look into it a bit before answering properly.
Feb 1 '07 #14

NeoPa
Expert Mod 15k+
P: 31,476
Our first step is to put the following code in a general Module in your database.
Expand|Select|Wrap|Line Numbers
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. 'Exist returns true if strFile exists.
  5. '22/05/2003 Rewritten with better code.
  6. '20/05/2005 Added finding of R/O, System & Hidden files
  7. Public Function Exist(strFile As String, _
  8.                       Optional intAttrib As Integer = &H7) As Boolean
  9.     Exist = (Dir(PathName:=strFile, Attributes:=intAttrib) <> "")
  10. End Function
Feb 1 '07 #15

NeoPa
Expert Mod 15k+
P: 31,476
Working from the code you posted in post #7...
Expand|Select|Wrap|Line Numbers
  1. 'Line added
  2. Private Const conFile As String = _
  3.                   "C:\Documents and Settings\reo\My Documents\" & _
  4.                   "ContractReports\ReportsOConnor.rtf"
  5.  
  6. Function ROconnerMail()
  7. 'Line changed
  8.   If Exist(conFile) Then Call RunROconnerEMail(strFile:=conFile)
  9. End Function
  10.  
  11. 'Line changed
  12. Sub RunROconnerEMail(ByRef strFile As String)
  13.  
  14.   On Error GoTo Err_Handler
  15.   Dim strTemp As String
  16.   Dim varAttach(2) As Variant
  17.   Dim strRecTo(1, 0) As String
  18.   Dim strRecCc(1, 0) As String
  19.   Dim lngCount As Long
  20.   Dim varProxies As Variant
  21.   Dim cGW As GW
  22.  
  23. 'Line changed
  24.   varAttach(0) = strFile
  25.  
  26.   strRecTo(0, 0) = "reo@propeople.org"
  27.   strRecTo(1, 0) = "reo@propeople.org"
  28.   strRecCc(0, 0) = "tpg@propeople.org"
  29.  
  30.   Set cGW = New GW
  31.   With cGW
  32.     .Login
  33.     .BodyText = "Attached please find a word document that lists: " & _
  34.                 "contract reports that are over due and contract reports " & _
  35.                 "that are due within one to three weeks.  " & vbCrLf & vbCrLf & _
  36.                 "Please ensure that the reports are completed and sent " & _
  37.                 "to the contract officer on time.  A copy of the dated " & _
  38.                 "cover letter transmitting the report and the report " & _
  39.                 "itself should be sent to the Accounting Specialist in " & _
  40.                 "the Finance Office.  The Accounting Specialist will " & _
  41.                 "update the Contracts database with the date the report " & _
  42.                 "was submitted and file the report in the contract file " & _
  43.                 "for the compliance audits." & vbCrLf & vbCrLf & _
  44.                 "If no document is attached to this automated e-mail " & _
  45.                 "then you have no past due reports and no reports due " & _
  46.                 "within the next three weeks." & vbCrLf & vbCrLf & _
  47.                 "For questions please contact the Accounting Specialist " & _
  48.                 "at 874-1140 ext 356. Thank you."
  49.     .Subject = "Contract Reports"
  50.     .RecTo = strRecTo
  51.     .RecCc = strRecCc
  52.     .FileAttachments = varAttach
  53.     .FromText = "Finance Department"
  54.     .Priority = "High"
  55.     strTemp = .CreateMessage
  56.     .ResolveRecipients strTemp
  57.     If IsArray(.NonResolved) Then MsgBox "Some unresolved recipients."
  58.     .SendMessage strTemp
  59.     .DeleteMessage strTemp, True
  60.   End With
  61.  
  62. Exit_Here:
  63.   Set cGW = Nothing
  64. Exit Sub
Feb 1 '07 #16

P: 41
OK. I have it in the General Module as its own module. What next? Boy, do I really appreciate all your attention and help.
Feb 1 '07 #17

NeoPa
Expert Mod 15k+
P: 31,476
I hope you refreshed after posting and saw the other posts ;)
Feb 1 '07 #18

P: 41
Good morning. I was in a meeting yesterday afternoon (a rare thing for me) so didn't see the rest of your reply till late. I just added it but for some reason I can't run it. Should the first two line changes go in a new module?
Feb 2 '07 #19

NeoPa
Expert Mod 15k+
P: 31,476
I'm a bit confused by the last bit (your question).
Where do you have the code currently (Module names and Types pls)? What is the name of the form you're working in?
There is some flexibility here as to where things can go, so if I know what you have where, I can better explain where it would be easiest for you to put the changes.
Feb 2 '07 #20

P: 41
I have the first bit of code in a Module called DontMailIfNoAttachment. I added the second code you sent to the Module called basOBowman. (I am testing this out on Bowman not OConnor as Bowman's mail goes to me till she is replaced.) So here is what it looks like but when I go to run, I cant find it to run it.

Expand|Select|Wrap|Line Numbers
  1. Option Compare Database
  2.  
  3. Option Explicit
  4. 'Line added
  5. Private Const conFile As String = _
  6.                   "G:\Accounting\Development\ReportsBowman.rtf"
  7.  
  8. Function OBowmanMail()
  9. 'Line changed
  10.   If Exist(conFile) Then Call RunOBowmanEMail(strFile:=conFile)
  11. End Function
  12.  
  13. Sub RunOBowmanEMail(ByRef strFile As String)
  14.  
  15. On Error GoTo Err_Handler
  16. Dim strTemp As String
  17. Dim varAttach(2) As Variant
  18. Dim strRecTo(1, 0) As String
  19. Dim strRecCc(1, 0) As String
  20. Dim lngCount As Long
  21. Dim varProxies As Variant
  22. Dim intRes As Integer
  23. Dim strMsg As String
  24. Dim cancel As Boolean
  25.  
  26. Dim cGW As GW
  27. 'Line chance
  28.  varAttach(0) = strFile
  29.  
  30.  
  31. strRecTo(0, 0) = "bjo@propeople.org"
  32. strRecTo(1, 0) = "bjo@propeople.org"
  33.  
  34. strRecCc(0, 0) = "bjo@propeople.org"
Feb 2 '07 #21

NeoPa
Expert Mod 15k+
P: 31,476
Will have to look at this tomorrow. Sorry - I'm out tonight.
Expect rational response then ;)
Feb 2 '07 #22

P: 41
Enjoy the night and thanks again for all the help thus far. Looking forward to hearing your response.
Feb 2 '07 #23

NeoPa
Expert Mod 15k+
P: 31,476
I've looked at this a little more closely and I think I may have an answer for you.
Only think, because your answer seems to be almost contradictory. You say the code is in two separate modules yet you post them both in the same code window.
If they are simply in three separate modules (as implied) then putting the word Public before each procedure (Sub or Function) definition should make them visible to other modules in the same Project.
Let us know if this fixes your problem. If not, try to explain where your code is located a little more clearly. Hopefully it will be fine with this though. Good luck.
Feb 4 '07 #24

NeoPa
Expert Mod 15k+
P: 31,476
Enjoy the night and thanks again for all the help thus far. Looking forward to hearing your response.
BTW I had a fine night thank you.
I was a bouncer for my niece's 18th birthday party. It was quite funny watching the behaviour of all the young things. There was no worry though (18th birthdays are notorious for trouble usually) as two of my nephews also do karate and were there inside in case of any trouble.
Feb 4 '07 #25

P: 41
Thanks for the reponse. I have to work on three other projects today but will try to find some free time today to get back to you as I so want to have this one wrapped up. Glad you had a nice evening the other night.
Feb 5 '07 #26

NeoPa
Expert Mod 15k+
P: 31,476
No hurry.
When you can, let us know if the Public fix worked for you.
Feb 5 '07 #27

P: 41
Hi, I'm taking a break from my other projects and just entered the Public before all three modules. I can't find the module in my list to run it so I must be doing something dreadfully wrong. Thanks in advance. May I ask if you are in the States?

Here they are:

The one you sent me:

Expand|Select|Wrap|Line Numbers
  1. Option Compare Database
  2.  
  3.  
  4. Option Explicit
  5.  
  6. 'Exist returns true if strFile exists.
  7. '22/05/2003 Rewritten with better code.
  8. '20/05/2005 Added finding of R/O, System & Hidden files
  9. Public Function Exist(strFile As String, _
  10.                       Optional intAttrib As Integer = &H7) As Boolean
  11.     Exist = (Dir(PathName:=strFile, Attributes:=intAttrib) <> "")
  12. End Function
  13.  
  14. Public Const ConFile As String = _
  15.     "G:\Accounting\Development\reportsBowman.rtf"
Then this one:

Expand|Select|Wrap|Line Numbers
  1. Option Compare Database
  2. Public Const ConFile As String = "G:\Accounting\Development\reportsBowman.rtf"
  3.  
  4.  
  5. Public Function BowmanMail()
  6. If Exist(ConFile) Then Call RunOBowmanEMail(strFile:=ConFile)
  7. End Function
Then the last one:

Expand|Select|Wrap|Line Numbers
  1. Public Sub RunOBowmanEMail(ByRef strFile As String)
  2.  
  3. On Error GoTo Err_Handler
  4. Dim strTemp As String
  5. Dim varAttach(2) As Variant
  6. Dim strRecTo(1, 0) As String
  7. Dim strRecCc(1, 0) As String
  8. Dim lngCount As Long
  9. Dim varProxies As Variant
  10. Dim intRes As Integer
  11. Dim strMsg As String
  12. Dim cancel As Boolean
  13.  
  14. Dim cGW As GW
  15.  
  16.  
  17. varAttach(0) = strFile
  18.  
  19. strRecTo(0, 0) = "bjo@propeople.org"
  20. strRecTo(1, 0) = "bjo@propeople.org"
  21.  
  22. strRecCc(0, 0) = "bjo@propeople.org"
  23.  
  24.  
  25. Set cGW = New GW
  26. With cGW
  27.   .Login
  28.   .BodyText = "Attached please find ECT."
  29.   .Subject = "Contract Reports"
  30.   .RecTo = strRecTo
  31.   .RecCc = strRecCc
  32.   .FileAttachments = varAttach
  33.   .FromText = "Finance Department"
  34.   .Priority = "High"
  35.   strTemp = .CreateMessage
  36.   .ResolveRecipients strTemp
  37.   If IsArray(.NonResolved) Then MsgBox "Some unresolved recipients."
  38.   .SendMessage strTemp
  39.   .DeleteMessage strTemp, True
  40. End With
Feb 5 '07 #28

NeoPa
Expert Mod 15k+
P: 31,476
That is the idea with the Public keyword.
Does it fix the problem for you?
In answer to your question, No I live in South London (My profile will give all my publicly accessible details).
Feb 5 '07 #29

P: 41
I'm not sure if it does solve my problem. When I am in VBA and go to Run on the Menu bar | Run Sub/UserForm, it shows all the modules except those three that I posted here. I must be doing something dreadfully wrong. Oh, and thanks for pointing out your profile.
Feb 6 '07 #30

NeoPa
Expert Mod 15k+
P: 31,476
That's not a very good test Pixie. That will only list Public Subroutines (not functions) which have no parameters to pass. None of your procedures matches these criteria.
Try tracing through the code. When it gets to a line which calls one of these procedures, it will either work, or complain that it can't find the procedure referenced.
Profiles are easy to reach. Just click on the name at the top of a post and it will link you through to their profile.
Feb 6 '07 #31

P: 41
I'm sorry but that is the only test I knew. (Guess you can tell my level of skill, eh? Sorry, self taught. ) I don't know what it means to trace code but would gladly do it if I knew how. I tried stepping threw it but that didn't seem to do what you wanted.
Feb 6 '07 #32

NeoPa
Expert Mod 15k+
P: 31,476
'Tracing code' is another way of saying 'Stepping through it'. You don't want to do it in isolation though. By which I mean you don't want to start executing that code out of the normal flow of the code.
What triggers the call to this routine in the first place?
Put your breakpoint on the line :
Expand|Select|Wrap|Line Numbers
  1. If Exist(ConFile) Then Call RunOBowmanEMail(strFile:=ConFile)
then see what happens with the code when it tries to call the various procedures.

Also, from post #28, lose the line :
Expand|Select|Wrap|Line Numbers
  1. Public Const ConFile As String = _
  2.     "G:\Accounting\Development\reportsBowman.rtf"
...after the Exist() function is defined. This is done again in the module containing the definition of the BowmanMail() function. It should not be defined twice.
Feb 6 '07 #33

P: 41
The end user gets a message when she opens the database saying reports need to be emailed, if that is true. (If it isn't, no message). She then clicks on the email reports command button which runs a macro that generates, if needed, the reports and then runs the funtions which call the sub to generate the email.

When I did what you told me to do (wow, how neat! thanks for the lesson on how to use that menu option), it takes me here


Expand|Select|Wrap|Line Numbers
  1. Exist returns true if strFile exists.
  2. '22/05/2003 Rewritten with better code.
  3. '20/05/2005 Added finding of R/O, System & Hidden files
  4. Public Function Exist(strFile As String, _
  5.                       Optional intAttrib As Integer = &H7) As Boolean
  6.     Exist = (Dir(PathName:=strFile, Attributes:=intAttrib) <> "")
  7. End Function
Then back here

Expand|Select|Wrap|Line Numbers
  1. Public Function BowmanMail()
  2. If Exist(ConFile) Then Call RunOBowmanEMail(strFile:=ConFile)
  3. End Function
Does that mean it works?
Feb 6 '07 #34

NeoPa
Expert Mod 15k+
P: 31,476
I cannot say that it works as I haven't seen the results.
Certainly, if the code progress were a problem, I would expect an error message to come up and the code to show a line highlighted in Yellow.

It certainly doesn't seem to have the problem that it can't see the procedures any more.

After your comments about how to debug, I may see if I can put a short Tutorial together explaining how to use the debugging tools in the VBA editor environment (When I get some time).
Feb 6 '07 #35

NeoPa
Expert Mod 15k+
P: 31,476
When you say :
Then back here

Expand|Select|Wrap|Line Numbers
  1. Public Function BowmanMail()
  2. If Exist(ConFile) Then Call RunOBowmanEMail(strFile:=ConFile)
  3. End Function
Does that mean it works?
Which bit was yellow after it got back there after the Exist() function?
Feb 6 '07 #36

P: 41
When I need a break on another project I am working on, I will click the email button and see what happens (but only after I change all the email addy's to mine as I don't want folks getting reports until I get this fixed). I will let you know what happens. Thank you ever so much for all the help to date. If it works, you will be my hero :)
Feb 6 '07 #37

NeoPa
Expert Mod 15k+
P: 31,476
That's fine, I'm not short of other work to be getting along with ;)
Whenever you're ready. I'm sure we can get you sorted eventually.
Feb 6 '07 #38

P: 41
thank you. i hope to be able to get to it either late today or tomorrow. enjoy the day.
Feb 7 '07 #39

P: 41
Thank you very much. :) I tried it out and it seems to be working just fine. I really really really (did I say really?) appreciate all the help.
Feb 12 '07 #40

P: 41
Oppps, I spoke too soon. It doesn't send an email if there is no report but if there is a report, it doesn't send it now. Hmmmm. Any ideas there?
Feb 12 '07 #41

P: 41
Oh my! I think its been too long of a day. It works fine now. Hopefully my brain will get some needed rest tonight. :)
Feb 12 '07 #42

NeoPa
Expert Mod 15k+
P: 31,476
I know where you're coming from Pixie :D
Glad you're sorted (You really are aren't you?) J/K.
Feb 12 '07 #43

P: 41
Good morning. All seems to be working fine. I've moved from a test environment and am now entering the code in "the real thing." Once again, thanks for all your help and your patience. Is there a place for me to rate you? I think you are just the greatest :)
Feb 13 '07 #44

NeoPa
Expert Mod 15k+
P: 31,476
Just spam MMcCarthy with PMs singing my praises!
J/K she's an Admin on here and gets hundreds of PMs every week. It's probably true to say she's not looking for more!
You could PM a moderator (Oooh that wouldn't work - that's me). Ah well - I know, and I'm very pleased that you're happy. Come back again any time :)
Feb 13 '07 #45

MMcCarthy
Expert Mod 10K+
P: 14,534
Just spam MMcCarthy with PMs singing my praises!
J/K she's an Admin on here and gets hundreds of PMs every week. It's probably true to say she's not looking for more!
You could PM a moderator (Oooh that wouldn't work - that's me). Ah well - I know, and I'm very pleased that you're happy. Come back again any time :)
I'm pleased you're pleased.

Next time I catch you suggesting I get MORE PM's you won't sit down for a week. :D

Glad it's working for you Pixie. We know how good he is but we keep it quiet as we don't want him to get too big-headed.

Mary
Feb 13 '07 #46

NeoPa
Expert Mod 15k+
P: 31,476
Glad it's working for you Pixie. We know how good he is but we keep it quiet as we don't want him to get too big-headed.

Mary
Lucky you're there to stop that Mary ;)
Feb 13 '07 #47

Post your reply

Sign in to post your reply or Sign up for a free account.