Koda metin16 yazmışsınız. Formdaki metin27

Kodu aağıdaki ile değiştir.

DoCmd.RunCommand acCmdSaveRecord



   Dim outobj As New Outlook.Application

   Dim outappt As Outlook.AppointmentItem



   On Error Resume Next

    

   Set outobj = GetObject(, "Outlook.Application")

   

   If Err <> 0 Then

   Set outobj = CreateObject("Outlook.Application")

   Err.Clear

   End If

   

   Set outobj = CreateObject("Outlook.Application")

   Set outappt = outobj.CreateItem(olAppointmentItem)

           With outappt

               .Start = CDate(Me.Metin193) - "1" & " " & CDate("0,4375")

               .Duration = "1440"

               .Subject = "" & Me.Metin27

               .Body = "" & Me.Metin7

               .ReminderMinutesBeforeStart = "60"

               .ReminderSet = True

               .Save

           End With

           

   outappt.Display