Docmd.SelectObject "フォーム名"
Sub メールテスト()
Dim blResult As Boolean
blResult = fncCreateNewMail("tarou-yamada@pipty.com", "重要フラグメール", "フラグテスト")
End Sub
Function fncCreateNewMail(strTo As String, strCc As String, _
strSubject As String, StrBody As String, _
Optional StrAttachPath As String) As Boolean
Dim olApp As Object
Dim MailItem As Object
Set olApp = CreateObject("Outlook.Application")
Set MailItem = olApp.CreateItem(0)
With MailItem
.Recipients.Add(strTo).Type = 1
.Recipients.Add(strCc).Type = 2
.Subject = strSubject
.Body = StrBody
.Display
End With
End Function