Docmd.SelectObject "フォーム名" Sub メールテスト() Dim blResult As Boolean blResult = fncCreateNewMail("tarou-yamada@pipty.com", "重要フラグメール", "フラグテスト") End Sub Function fncCreateNewMail(strTo As String, strCc As String, _ strS…