(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.