(09/06/2015, 14:07)zanakkaya yazdı:

(09/06/2015, 09:30)ssdestek yazdı: .send=Me.Metin21   şekline yazdım ama olmadı,

Mevzuyu anlamadım ama .send kodu ile çalışmaz. Outlook hatırlatıcı resmi ekleyebilir misiniz?

merhaba,

Private Sub Komut57_Click()
DoCmd.RunCommand acCmdSaveRecord
    Dim outobj As Outlook.Application
    Dim outappt As Outlook.AppointmentItem
    Set outobj = CreateObject("outlook.application")
    Set outappt = outobj.CreateItem(olAppointmentItem)
    With outappt
    .Start = CDate(Me.Metin193) - "1" & " " & CDate("0,4375")
                .Duration = "1440"
                .Subject = "" & Me.Metin16
                .Body = "" & Me.Metin7
                .To = Me.Metin11
                .ReminderMinutesBeforeStart = "60"
                .ReminderSet = True
                .Save
            End With
outappt.Display
End Sub
           

yukarıdaki kod çalışıyor. Buraya ilaveten  .To = Me.Metin11 ekledim hata verdi. Yapmak isteğim Metin11 kutusunda yer alan mail adreslerini Outlook Takvimde Kime kısmına yazdırtmak. böylece hatırlatma maili bu kişilere de gitsin istiyorum. resim ektedir.