Access formundan Outlook'a hatırlatıcı ekleme

24/06/2015, 12:56

pheadrus

Arkadaşlar merhaba,


Benim taahhüt işlerini takip etmekte kullandığım, uzun bir süre uğraşarak, bazı kızımlarını forumlardan alarak (eksikleri olsa da) hazırladığım bir veritabanım var.Bu veritabanında müşterilerin bilgilerini, hangi ustanın hangi işi hangi gün yapacağı gibi bilgileri tutuyorum.
Ancak yapamadığım birşey var. İstediğim şey (veritabanını incelediğinizde göreceksiniz) yeni müşteri kaydı adında bir formum var. Ben bu formda müşteri kaydı yaptığımda, outlook takvime montaj tarihinden birgün öncesine bana müşteri ismi, yapılacak iş ve işi yapacak usta ismini içeren bir not eklemesi. 
bu konuda yardımcı olabilir misiniz acaba?
24/06/2015, 13:03

atoz112

sayın pheadrus,


Site Kuralları sayfasını tekrar incelemenizi temenni etmekle birlikte,
Örnek Uygulamalar Kategorisi içerisinde açmış olduğunuz konunuz;
Access Soruları ve Cevapları Kategorisi'ne taşınmıştır.bilginize.

Site içi arama sayfasında,gerek "hatırlatma" veya "hatırlatıcı" diye ve gerekse de "outlook" ifadesini yazmak sureti ile,edineceğiniz çeşitli konulardaki bilgileri ve örnekleri inceleyebilirsiniz.

iyi çalışmalar,
saygılar.
24/06/2015, 14:03

ozanakkaya

Atoz hocanın cevabına ek olarak aşağıdaki bağlantıyı inceleyiniz.

https://accesstr.net/konu-access-outlook...ntisi.html
24/06/2015, 14:31

pheadrus

İlginiz için teşekkür ederim. Ancak Arama Yaptığımda da isatediğim şeyi bulamadım. Verdiğiniz linkteki öreneği kendi veritabanıma nasıl ilave edebilirim yardımcı olur musunuz?
24/06/2015, 16:39

ozanakkaya

Kaydet bütününün tıklandığında olayındaki kodları aşağıdaki ile değiştiriniz.

Private Sub KAYDET_Click()
On Error GoTo Err_KAYDET_Click
Dim strCurrent As String
Dim objApp As New Outlook.Application
Dim outappt As Outlook.AppointmentItem
DoCmd.RunCommand acCmdSaveRecord

On Error Resume Next

Set objApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set objApp = CreateObject("outlook.Application")
Err.Clear
End If

Set outappt = objApp.CreateItem(olAppointmentItem)
With outappt
.Start = DateAdd("d", -1, CDate(Me.MONTAJ_TARİHİ)) & " " & CDate(Time())
.Duration = 10 'başlangıç bitiş tarihi arasındaki süre (dakika)
.Subject = Me.MÜŞTERİ_ADI_ÜNVANI
.Body = Me.ADRESI
.Location = "Hatırlatıcı"
.ReminderMinutesBeforeStart = 60 ' hatırlatıcı süresi (dakika)
.ReminderSet = True
.Save
End With

DoCmd.RunCommand acCmdSaveRecord
If MsgBox("Randevu Eklendi, randevu bilgileri açılsın mı", vbInformation + vbYesNo, "Randevu Eklendi...") = vbYes Then
outappt.Display
Else
outobj.Quit
End If
Set outobj = Nothing
Exit_KAYDET_Click:
Exit Sub
Err_KAYDET_Click:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Resume Exit_KAYDET_Click
End Sub
24/09/2015, 21:36

atoz112

Konu;


gerek paylaşılan bilgiler neticesinde çözüme kavuşturuldu düşüncesi ile ve gerekse de
konu sahibinin zaman zarfında ayrıntılı geri dönüş bildirimleri olmaması nedeni ile,
Cevaplanmış Sorular kategorisi içerisine taşınmıştır.

bilginize.