With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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
|A Function to parse a text string||4||34|
|Watermark at upper right of MS Office applications||3||20|
|Excel 2013 spreadsheet opens without custom margins||13||18|
|Solved: How can I prevent deletions from a form in datasheet view?||5||26|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
14 Experts available now in Live!