(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.
Outlook Takvim.zip
(Dosya Boyutu: 130,95 KB | İndirme Sayısı: 17)