October 10, 2008 01:22pm pdt

1. capricorn1 971,069
2. LSMCons... 548,082
3. boag2000 492,961
4. DatabaseMX 375,473
5. peter57r 348,184
6. harfang 275,390
7. jimhorn 187,422
8. matthews... 158,770
9. TextReport 131,746
10. MikeToole 117,073
11. omgang 107,775
12. frankytee 95,914
13. koutny 92,835
14. angelIII 85,220
15. GRayL 76,980
16. Rick_Ric... 76,117
17. hnasr 71,855
18. LennyGray 70,992
19. irudyk 70,260
20. eghtebas 68,487
21. rorya 64,932
22. cactus_d... 64,098
23. mbizup 62,633
24. ee_rlee 62,522
25. ldunscombe 57,943

1. capricorn1 1,591,914
2. LSMCons... 780,201
3. DatabaseMX 678,198
4. peter57r 585,693
5. boag2000 532,873
6. harfang 456,938
7. jimhorn 383,412
8. jefftwilley 351,737
9. matthews... 308,034
10. mbizup 258,350
11. frankytee 231,167
12. MikeToole 222,123
13. stevbe 220,614
14. omgang 180,010
15. GRayL 162,786
16. rockiroads 151,183
17. LPurvis 140,870
18. TextReport 132,246
19. angelIII 128,278
20. JDettman 125,940
21. ragoran 112,130
22. koutny 107,860
23. dqmq 102,046
24. Rick_Ric... 99,717
25. eghtebas 96,062

07.18.2008 at 10:22AM PDT, ID: 23577548

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.0

Create String that will be more than 1 result into a variable string

Asked by kfschaefer1 in Access Coding/Macros, Microsoft Access Database

Tags: MS, Access, 2003

How do I create a Mystring statement that will concatenate a list of Email repentants for send email.

Drawing a blank.

I have a query that returns a list of email addresses _ I want to send just 1 email where the repentants is list of the email addressees and not multiple emails are sent.

I have only used the Mystring code for listboxes.

My current code is only returning 1 email address when it should return mutliple.

ThanksStart Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

           
           
             Public Function SendAutoEmails() As Boolean
    Dim rs As DAO.Recordset
    Dim db As Database
    Dim MyString As String
    Dim x As Integer
    On Error GoTo SMError
    'Opens recordset, reads all the emails note this query reads the values from the field called EmailAddr, table tblEmails
    Set db = Currentdb
    Set rs = db.OpenRecordset("SELECT EMail_Address FROM qryStatusRptEmailLst")
    'Goes through the list of records returned by the above call
          MyString = ""
    Do While Not rs.EOF
        MyString = rs!EMail_Address
          MyString = MyString & ";"
         MyString = Left(MyString, Len(MyString) - 1)
        rs.MoveNext
    Loop
       'Send to email address read from the database (field is rs!EmailAddr)
        'Subject is Auto Send
        'Body Text is "This is a test of an auto send"
         'Read next record
     DoCmd.SendObject acSendQuery, "qryStatusrpt", acFormatXLS, _
           MyString, , , "Emergent Work - Task Status Change Notification", _
           "Please review the attached document for changes to the Emergent Work you requested.", _
           False
 
    'Close and clear all
    rs.Close
    Set rs = Nothing
    Set db = Nothing
 
    SendAutoEmails = True
    Exit Function
 
SMError:
    MsgBox "A problem occurred." & vbCrLf & Err.Description, vbCritical, _
        "Send Auto EMails"
    SendAutoEmails = False
End Function
           
         

Keywords: Create String that will be more than 1 r…

	Title
1	a myString class ...
2	Listbox to Listbox
3	if ($myString === false)
4	VB 05 - Listbox Properties?
5	string to int
6	Ajax populate listbox

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Create String that will be more than 1 result into a variable string

Asked by kfschaefer1 in Access Coding/Macros, Microsoft Access Database

Tags: MS, Access, 2003

About this solution