Merhaba,
Outlook takvimine tarihi yazdırmak için oluşturduğum bir VB kodu var, bunu Modül olarak nasıl yazabilirim?:
burada Private Sub Form_Close() yerine Public Function takvim()  şeklinde modül1 olarak yazmak istiyorum.
burada Metin666 veya Metin yazan yerler FormTakvim adında bir forma ait Metin kutu isimleridir. Bu uygulamayı her çalıştırdığımda bu konu önceden outlooka kayıtlı ise tüm bilgileri eski kaydın üstüne yazsın.

-----------------------------------------------------------------
Private Sub Form_Close()

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.Metin666) & " " & CDate("0,4375")
                .Duration = "1440"
                .Subject = "" & Me.Metin111
                .Body = "" & Me.Metin54
                .MeetingStatus = olMeeting
                .Recipients.Add (Me.Metin400)
                .ReminderMinutesBeforeStart = "60"
                .ReminderSet = True
                .Save
           End With
          
   outappt.Display
End Sub
----------------------------------------------------------------
teşekkür ederim,
saygılarımla...