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.
With objOutlookMsg ' Add the To recipient(s) to the message. Set objOutlookRecip = .Recipients.Add("firstname.lastname@example.org") objOutlookRecip.Type = olTo Set objOutlookRecip = .Recipients.Add("email@example.com") objOutlookRecip.Type = olCC .Subject = "Something " Dim rstData As ADODB.Recordset Set rstData = New ADODB.Recordset rstData.ActiveConnection = CurrentProject.Connection rstData.Open "SELECT * FROM qryAny" Dim strData As String Do Until rstData.EOF strData = strData & rstData("FullName") & vbNewLine rstData.MoveNext Loop .Body = strData For Each objOutlookRecip In .Recipients objOutlookRecip.Resolve Next .Save .send End With
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.