Access Outlook takvim bağlantısı

1 2
09/06/2015, 16:35

ozanakkaya

.body kodunun altına

.meetingstatus=olmeeting
.recipients.add(me.metin11)

Kodları ekle
09/06/2015, 17:40

ssdestek

(09/06/2015, 16:35)ozanakkaya yazdı: .body kodunun altına

.meetingstatus=olmeeting
.recipients.add(me.metin11)

Kodları ekle
Çok teşekkür ederim, verdiğiniz kod çalıştı. Yeni oluşturduğum bir formda deniyorum şu hatayı veriyor, her şeyi denedim ama beceremedim. FormAA ve References eklentileri ve hata  ekran resimleri ektedir.
nerden hata yapıyorum anlamadım?
09/06/2015, 17:59

ozanakkaya

Koda metin16 yazmışsınız. Formdaki metin27

Kodu aağıdaki ile değiştir.


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.Metin193) - "1" & " " & CDate("0,4375")
               .Duration = "1440"
               .Subject = "" & Me.Metin27
               .Body = "" & Me.Metin7
               .ReminderMinutesBeforeStart = "60"
               .ReminderSet = True
               .Save
           End With
           
   outappt.Display
09/06/2015, 18:01

ozanakkaya

Ayrıca, resimleri konuya ekleyiniz. Rar içinde eklemeyiniz. Yeni cevap sayfasında resim ekle butonu var.
10/06/2015, 09:27

ssdestek

(09/06/2015, 17:40)ssdestek yazdı:
(09/06/2015, 16:35)ozanakkaya yazdı: .body kodunun altına

.meetingstatus=olmeeting
.recipients.add(me.metin11)

Kodları ekle
Çok teşekkür ederim, verdiğiniz kod çalıştı. Yeni oluşturduğum bir formda deniyorum şu hatayı veriyor, her şeyi denedim ama beceremedim. FormAA ve References eklentileri ve hata  ekran resimleri ektedir.
nerden hata yapıyorum anlamadım?
Verdiğiniz bilgiler ve yaptığınız yardımlar sonucu problemim çözüldü. Çok teşekkür ederim, iyi çalışmalar diliyorum, Saygılarımla...
10/06/2015, 17:38

ssdestek

(10/06/2015, 09:27)ssdestek yazdı:
(09/06/2015, 17:40)ssdestek yazdı:
(09/06/2015, 16:35)ozanakkaya yazdı: .body kodunun altına

.meetingstatus=olmeeting
.recipients.add(me.metin11)

Kodları ekle
Çok teşekkür ederim, verdiğiniz kod çalıştı. Yeni oluşturduğum bir formda deniyorum şu hatayı veriyor, her şeyi denedim ama beceremedim. FormAA ve References eklentileri ve hata  ekran resimleri ektedir.
nerden hata yapıyorum anlamadım?
Verdiğiniz bilgiler ve yaptığınız yardımlar sonucu problemim çözüldü. Çok teşekkür ederim, iyi çalışmalar diliyorum, Saygılarımla...
Merhaba, yine ben, biraz yüzsüzlük edeceğim ama her aşamada başka talepler gelince bazı sorular oluşuyor.
Sizin verdiğiniz kod gayet güzel işliyor, fakat network üzerinde paylaşılan bir Access formum var ve her kes aynı anda o formu açıyor ve kullanıyor. bu formun kullandığı Tablo ise Sql den bağlantılıdır. Formu açtığımda tam ekran çıkıyor (ben böyle ayarladığım için) Takvim oluştur butonuna tıklayınca verdiğiniz kod iş yapıyor ve sonunda Outlook un  pop up şeklinde açılan takvim penceresi benim formum arkasında kalıyor ve görünmüyor, taaki formu simge durumuna küçültünce Outlook un açılan Takvim penceresini görebiliyorum, bunu açık olan tam ekran formumun önünde görünmesini veya açılmasını nasıl sağlayabilirim?
iyi çalışmalar...
1 2