I'm using the code below to send emails from access. I would like to add code to send the attachment from the access attachment field on the form.... see sample form attached
Dim rs As DAO.Recordset'On Error Resume Next Set rs = CurrentDb.OpenRecordset("qryEmail_Reminder_RecordSet_Apps")With rs If .EOF And .BOF Then 'IT MEANS THERE ARE NO RECORDS, WE ARE AT THE BEGINNING OF FILE AND END OF FILE (No Records found for this query.) MsgBox " No emails will be sent because there are no records from the query ‘Email_Reminder_RecordSet_Apps’ "Else Do Until .EOF 'DO UNTIL END OF RECORDSET FILE'THE NEXT LINE SENDS THE EMAIL MESSAGEDoCmd.SendObject acSendNoObject, , , ![Send_Email], , , "New Application Access", "Hello " & ![Send_To] & _", " & Chr(10) & "Please grant access to " & ![First_Name] & _" " & ![Last_Name] & _", " & ![User_Email] & _" to the following application: " _& Chr(10) & ![App_Site_Name] & Chr(10) & Chr(10) _& Chr(10) _& Chr(10) _& Chr(10) _& "Thanks, " & Chr(10) _& "V hields" _& Chr(10) _& "DSPC".Edit ![Email_Sent_Date] = Now() .Update .MoveNext 'THIS MOVES TO THE NEXT RECORD IN THE RECORDSET LoopEnd If End With'CLEAN UP MEMORY AT END If Not rs Is Nothing Then rs.Close Set rs = Nothing End If
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.