Could loop the recordset and just append it to a string separated by ';', then just set that to the SendTo property you want.

Thank you Alex. I'm by no means an expert. Does the code I have below look like it will do what I'm asking? Also can you please give me an example to put all of the email addresses in one BCC string? That way one email can be sent.


Private Sub EmailAgentBTN_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim Msg As String, Subject As String
    Dim Counter As Long
    Dim BCC As String

    If MsgBox("Are you sure?", vbQuestion + vbYesNoCancel, "Send Email Confirmation") <> vbYes Then Exit Sub
    
    Set db = CurrentDb
   'Set rs = db.OpenRecordset("SELECT * FROM OutageQ")
    Set rs = Me.RecordsetClone - **** I READ SOMEWHERE THIS WILL USE THE SAME RECORD SET AS THE FORM THE EMAIL BUTTON IS LOCATED.
    Counter = 0

    While Not rs.EOF
        
     Msg = "Dear [Fname]" & ",<P>" & _
          "The following technical problem has been resolved:" & "<P>" & _
          "Problem:  " & BodyProblem & "<P>" & _
          "Thank you for your patience" & "<P>" & _
          "Sincerely," & "<P>" & _
          "<br>" & _
          "Signature"

          BCC={NEED CODE EXAMPLE} 'I already added an optional BCC to the global email module.

          Subject = "Problem Resolved - " & [IssueDescription] & " / Ticket # " & rs![Ticket Number]
          Status "Sending to " & rs![UserEmail] & "..."
          SendEmail Msg, rs![UserEmail], Subject, BCC, True

          Counter = Counter + 1
          rs.MoveNext
    Wend
    Set rs = Nothing
    Set db = Nothing
    MsgBox "Done! Sent " & Counter & " emails."
    
End Sub

Well I think I figured the loop part out on my own. Is there a way to use VBA to select a signature in Outlook? How can I specify the font size for the body text?

You could use the MailItem.Signature property. This property returns or sets a String value that represents the name of the signature to use for the mail item.

Example:
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(olMailItem)
objMail.Signature = "Your signature name"
objMail.Display

To set the Font Size of the Body, you can use something like this:

objMail.HTMLBody = "This is the body text."

Thank you Kevin. Is there more to the don't size? objMail.HTMLBody.....?

Sorry. Font size?

Sorry. Didn't print the entire code. Here's a screenshot.

Thanks I'll give it a try.

I'm not getting that to work..... Any help would be greatly appreaciated.

''''''''''I have the following in a separate module
Public Sub SendEmail(MessageBody As String, RecipientEmail As String, Subject As String, _
     Optional CC As String, _
     Optional SendImmediately As Boolean)

    Dim O As Outlook.Application
    Dim M As Outlook.MailItem
    
    Set O = New Outlook.Application
    Set M = O.CreateItem(olMailItem)
    
    With M
        .BodyFormat = olFormatHTML
        .Signature = "Generic WITH PS"
        .HTMLBody = MessageBody
        .HTMLBody = "<font size=""3"">This is the body text.</font>"
        '.Body = Txt - if you use olFormatPlain
        .SentOnBehalfOfName = "XXXXSampleEmail.Sampleemail.com"
        '.Subject = "INC# - resolved"
        .To = RecipientEmail
        .CC = CC
        '.CC = "XXXXSampleEmail.Sampleemail.com"
        '.BCC = "[email protected]"
        .Subject = Subject
        If SendImmediately Then
            .Send
        Else
            .Display
        End If
    End With

    Set M = Nothing
    Set O = Nothing

End Sub



''''''''''I have this code on the form
Private Sub ResolvedEmailBTN_Click()
    
    Dim db As Database
    Dim rs As DAO.Recordset
    Dim Msg As String
    Dim Subject As String
    Dim CC As String
    
    If MsgBox("Are you sure?", vbQuestion + vbYesNoCancel, "Send Email Confirmation") <> vbYes Then Exit Sub
    
     Set db = CurrentDb
     Set rs = Forms!TicketSearchListF.Recordset

     ' Issue resolved email.
     Msg = "Dear Customer" & ",<P>" & _
          "The following technical problem has been resolved:" & "<P>" & _
          "Problem: ***ENTER PROBLEM DESCRIPTION HERE***" & "<P>" & _
          "Should you need any further assistance, please contact......." & "<P>" & _
          "Thank you for your patience" & "<P>" & _
          "Sincerely," & "<P>" & _
          CC = ""
          Subject = "Your issue has been resolved."
          SendEmail Msg, rs![Email Contact Info], Subject, CC, False
          

    Set rs = Nothing
    Set db = Nothing
    
End Sub

I would put the code to change the Font Size in the actual Text String for the Message Body as in my screenshot below.

Thank you again Kevin. That worked. Thank you for the example. Getting back to the signature. When I add the .Signature back in, I get and error "Object doesn't support this property or method". Code is shown above.

Insert this code into the appropriate place in the SendEmail() Sub Routine in your Global Module.

'Declare a variable to store the signature.
Dim Signature As String

'Add before .BodyFormat = olFormatHTML
'This will show the email with the default signature
.Display

'This will store the signature in a variable
Signature = .HTMLBody

'Add after .BodyFormat = olFormatHTML
'This will combine your message with the signature
.HTMLBody = MessageBody & Signature

Kevin thank you. I think that worked, but not like I thought it would. I was trying to add a signature to the email as though I am selecting the signature from the message tab in Outlook. The code you gave me adds text where the signature would ordinarily go. I appreciate you. If can think of a way to add an Outlook signature please let me know.

%USERPROFILE%\Application Data\Microsoft\Signatures

https://www.rondebruin.nl/win/s1/outlook/signature.htm

You guys are the best. Thank you!