Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Access Outlook takvim bağlantısı

ssdestek
ssdestek
Access Cevaplanmış Soruları
11
5202

Access Outlook takvim bağlantısı

#7
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 06/10/2025,06:04
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.148
Mesleğiniz: Memur
.body kodunun altına

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

Kodları ekle
Cevapla
#8
ssdestek
Aktif Üye
ssdestek
Bul
Aktif Üye
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 09/01/2019,12:14
Yorumları: 110
Konuları: 33
Kayıt Tarihi: 28/03/2013
Teşekkür Puanı: 0
(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?
.zip hata.zip (Dosya Boyutu: 384,84 KB | İndirme Sayısı: 4)
Cevapla
#9
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 06/10/2025,06:04
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.148
Mesleğiniz: Memur
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
Cevapla
#10
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 06/10/2025,06:04
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.148
Mesleğiniz: Memur
Ayrıca, resimleri konuya ekleyiniz. Rar içinde eklemeyiniz. Yeni cevap sayfasında resim ekle butonu var.
Cevapla
#11
ssdestek
Aktif Üye
ssdestek
Bul
Aktif Üye
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 09/01/2019,12:14
Yorumları: 110
Konuları: 33
Kayıt Tarihi: 28/03/2013
Teşekkür Puanı: 0
(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...
Cevapla
#12
ssdestek
Aktif Üye
ssdestek
Bul
Aktif Üye
Adı Soyadı:
Konum: -
Ofis Versiyonu: -
Son Oturumu: 09/01/2019,12:14
Yorumları: 110
Konuları: 33
Kayıt Tarihi: 28/03/2013
Teşekkür Puanı: 0
(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...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da