Kamis, 01 September 2016

[MS_AccessPros] Re: Email Addresses

 

Bill,


I have a procedure that creates an email and sends to email addresses from a table. I'm sure you could adapt it to pull names from a query. Here is the procedure:

Public Function SendDailyInspection(RepName As String, RepDate As String)
    Dim RepRecipients As String

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * from tblEmailRecipients")
    If Not (rst.EOF And rst.BOF) Then
        rst.MoveFirst
        Do Until rst.EOF = True
            RepRecipients = RepRecipients & rst!EAddress & "; "
            rst.MoveNext
        Loop

    Else
        MsgBox "There are no records in the recordset"
    End If

   
    SendMailAttachment RepName, RepRecipients, RepDate
   

End Function


I can send you the code for SendMailAttachment if you want it. This function will send a report to the email recipients that this function gets from the table.


Doyce



---In MS_Access_Professionals@yahoogroups.com, <Bill.Singer@...> wrote :

I have a query that pulls the name of all the names of individuals that have an Individual Health Insurance policy with us.  The query also pulls the associated email address.

 

This is all in the standard datasheet view.   I am trying to figure out how to get the emails I a format that I can just copy into the address section of a Microsoft outlook email and send out one email to all our customers.  (about 100 total)

 

Is there any way to extract these emails in a format that I can cut and paste into an email?

 

 

Bill

Minnesota

Access 2016

__._,_.___

Posted by: winberry.doyce@con-way.com
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (2)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.


.

__,_._,___

Tidak ada komentar:

Poskan Komentar