Hi, Scott --
Thanks for all your help. I've gotten it to work. I'll attach the code.
In regard to #3, a query runs for every person that could possibly get a report. If the report is blank it doesn't save. In my code, I have one sub for each person that could get a report and the first sub calls the second sub which calls the third and so on.
I really appreciate all your help! Thanks a lot.
...
pixie
Last Activity: Sep 25 '07, 05:36 PM
Joined: Sep 15 '06
Location:
-
Sub CDOTestFive()
Here it is Scott. Once again, I really appreciate your help.
[CODE=vb]
Dim iConf
Dim Flds
Dim strHTML
Dim Attach
Const cdoSendUsingPor t = 2
Set iMsg = CreateObject("C DO.Message")
Set iConf = CreateObject("C DO.Configuratio n")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microso ft.com/cdo/configuration/sendusing")...Leave a comment:
-
Thanks again, Scott, but it sends whether or not there is an attachment. Any other ideas?...Leave a comment:
-
Hi,
I added the Debug.Print and didn't get any response. I also tried
and it doesn't work weither or not there is an attachment.Code:If Attach = 0 Or IsNull(Attach) Then Cancel = True Else: .Send End If
Here are my variables:
Dim iConf
Dim Flds
Dim strHTML
Dim Attach
I appreciate your help!...Leave a comment:
-
The DB runs a query for each of the program folks that could or could not have deadlines. If they have a deadline, a report is created. If they don't a report is not generated. My code is currently saying create and email and send the attachment to that person then it calls code for the next person and so on. If one of the people (I call about 15 subs) does not have a report to attach, I do not want an email going out to them. Hope that clarifies...Leave a comment:
-
Send mail by CDO and attachments
Hi, Access 2003. I have a DB that contains deadlines data. I have the DB set up to create a report for each person that has deadline within a certain time frame. I need to automate the DB so an email is sent when a report exists but an email is not sent if there is no report for people. I have CDO code that works great except for the do not send part. The following is that part of the code. Any help would be appreciated. Thanks!
... -
Hi, I rewrote the code and figured it out. No need for help now. Thanks!Leave a comment:
-
Do not send email if no attachment
Hi. Access 2003. The database stores contract information. I have a query for each person that is responsible for contracts. The query checks to see if there are reports due either this week, next week, or in three week. A report is created for each query but if the report has no data, it is not saved. I have a button on a form that will run code to automatically send each person their own report. If a person doesn't have a report, the email... -
Hi,
We are replacing all of the switches and the hubs. After testing things, those seem to be at the root of our problems....Leave a comment:
-
Thanks for the reply. I will check that out....Leave a comment:
-
Citrix Hanging/Freezing Excel, Word, Access
Hi. We just went with Citrix and are having major issues. Our Office Apps (2003) freeze, hang, and just act funny. Its not consistent. Some times everything works fine. But the last two days have been a nightmare. Tried a gooogle search and no luck. Does anyone have suggestions on what we can do? Thanks in advance. -
Hi, I tried that and no luck. Thand you though. Found some new code to do the same thing that I want and it works fine. No idea though why the original code just won't work on those two workbooks. I just used it in a new workbook and works fine....Leave a comment:
-
Code (Excel VBA) not working any more. Please help
Hi,
I have some code that I have been using for more than a year. Excel VBA. Today it stopped working. I have no idea why. Here is the code:It used to copy what was in cell E1 down until there was no data in...Code:Range ("E1").Select If IsEmpty(ActiveCell) Then Exit Sub Range(ActiveCell, Cells(Rows.Count, _ ActiveCell.Column - 1).End(xlUp).Offset(0, 1)).FillDown End Sub -
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 :)Leave a comment:
-
Oh my! I think its been too long of a day. It works fine now. Hopefully my brain will get some needed rest tonight. :)Leave a comment:
-
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?Leave a comment:
-
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.Leave a comment:
-
thank you. i hope to be able to get to it either late today or tomorrow. enjoy the day.Leave a comment:
-
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 :)Leave a comment:
-
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...Leave a comment:
No activity results to display
Leave a comment: