Outlook with QueryDef

H

Harry

Hi all,

Within a form I have a listbox showing all contacts. With the listbox I am
able to select multiple contacts and to create a query showing all contacts
with their correpsonding email addresses. Within the query the third column
contains the mail address.
Now I want to use my working email form to send messages (invites and so on)
to the contacts within the query. Not all at once but contact by contact thus
a loop(because lot of spamfilters do check on distributionlists).
The problem I face is that I am not able to define (select only) the email
addresses within this query.
Part of my e-mail code is;
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' add the recipient by strAddressTO.
' .To = (strAddressTO)
Set objOutlookRecip = .Recipients.Add(strAddressTo)
objOutlookRecip.Type = olTo
--------------------------------------------------
How can I accomplisch that the strAddressTo is filled with the emailaddress
within my query?

Any help is most welcome!

Greetings
Harry
 
Top