Hello, I wanted to apply what I learned in one of Richards Tech Help videos How to Send Email from Microsoft Access using Microsoft Outlook Seems that each and all of his videos either broadens my knowledge and/or is readily applied to my ever-evolving database.
In this instance I need to call this subroutine in several other subforms so I placed it in its own Module. After watching yet another of Richards training video Bang v Dot, I applied what was learned. Before revising the code to then reference the subform it worked . Now when the form presents as a subform in the mainform frm_Client1. Access is thinking that the subform frm_ABA is a field. After scouring the internet, I did apply other methods to try to reference the subfom, all unsuccessful but with differing results.
I get the following error message:
"Runtime error '2465: MS Access can't find the field "frm_ABA" referred to in your expression"
Mainform: frm_Client1
Subform: frm_ABA
Control: SendTo

Public Sub SendOutlook(ServiceForm As String)
    
    Select Case ServiceForm
    Case "ABAform"
    
        Dim mNum As String 'this will be used to store the MHWIN #
        Dim Msg As String
        mNum = DLookup("[MHWin_Number]", "tbl_Client", "[Journey_Number] = " & Forms!frm_Client1!Journey_Number)
        'MsgBox mNum
        
        Msg = "Hello " & Forms!frm_Client1!frm_ABA.Form!SendTo & "<p>" & _
            "Reaching out today in regards to" & mNum
            
        'Remember to add REFERENCE to Microsoft Outlook Object Library
        
        Dim O As Outlook.Application
        Dim M As Outlook.MailItem
        
        Set O = New Outlook.Application
        Set M = O.CreateItem(olMailItem)        
        
        With M
            .BodyFormat = olFormatHTML
            .HTMLBody = Msg
            '.Body=Txt - if you use olFormatPlain
            .To = Forms!frm_ABA!eMail
            '.cc = "[email protected]"
            '.bc = "whomever@ myself.org "
            .Subject = mNum & " " & "ABA Therapy  " & Now()
            .Display
            '.Send '(if you don't want to see the email and just sent
            
        End With        
                  
        Set M = Nothing
        Set O = Nothing
        'SendOutlook "ABAform" 'placed in event'
     End Select
End Sub