Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Private Sub mailemailreport_Click() Dim rst As DAO.Recordset Dim strDistList As String Set rst = CurrentDb.OpenRecordset("Seniors Club") Do While Not rst.EOF strDistList = strDistList & rst!Email & ";" rst.MoveNext Loop If MsgBox("Print Email distribution list to file?", vbYesNo, "Print?") = vbYes Then Dim lFile As Long '/get the next available File handle lFile = FreeFileHandle '/delete the file if it exists If Dir(CurrentProject.Path & "\EmailList.txt") <> "" Then Kill CurrentProject.Path & "\EmailList.txt" '/Now open the file Open CurrentProject.Path & "\EmailList.txt" For Output As #lFile '/write to that file Print #lFile, strDistList '/now close the file Close #lFile Else strDistList = Left(strDistList, Len(strDistList) - 1) Me.Text46 = strDistList End If rst.Close Set rst = Nothing End Sub
|Access question - internal training||9||35|
|Confirm a record has been added MS Access||4||17|
|Programming return receipt for Outlook Email in VBA||12||30|
|Table Bound to a Form - MS Access||6||23|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
21 Experts available now in Live!