Each Record in Access report Should go as mail to the email specified in report

[rahul2310]

I have a report which contains Employee Code,Name and E-Mail Address.
I want auto generating button next to each row.
Which will email record only in that row to the email id specified in that row.

[topher23]

Okay, here's what you do.
1. Put a command button in the detail section of your report. You probably want to set the "Display When" property to "Screen Only," so it doesn't show up if you print your report.
2. If you use Outlook in your company, you can use Outlook Automation methodology to send your email. If you don't want to rely on Outlook, check out my post about using SMTP via GMail.
3. If you decide to import my SendSMTP function, the only code you need in your command button will look like this:

SendSMTP Me.[EmployeeEmail], "[Your Subject line]", "Some body text " & Me.[Field1] & "; " & me.[Field2] 

If you go with Outlook automation, you'll apply the same concept with the Outlook syntax instead.

[rahul2310]

thanks for reply topher23 i tried ur function but Its throwing error "sub or function not defined"

[topher23]

Whoops! I noted that problem previously and thought I'd already fixed it on the blog post. The function calls another function that it uses to iterate adding attachments based on the number of semicolons in the string. Here's the other function that you'll need to paste into the module with the SendSMTP function:

Public Function CountInStr(StringToCheck As String, StringToFind As String) As Long
    CountInStr = (Len(StringToCheck) - Len(Replace(StringToCheck, StringToFind, ""))) / Len(StringToFind)
End Function
 

[rahul2310]

thanks topher23 it works like champ

[topher23]

always happy to help!