Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
'query database to get rs3 result set
'correctly builds my recipient string
Do Until rs3.EOF
strTo = rs3.Fields(7).Value & "; " & strTo
rs3.MoveNext
Loop
With objEmail
'.To = i want this to be the person who is composing the email
.subject = subject
.Body = letterBody
'.ReadReceiptRequested = True
.BCC = strTo
.Send
End With
|