AccessTr.neT

.body kodunun altına

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

Kodları ekle

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

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

Ayrıca, resimleri konuya ekleyiniz. Rar içinde eklemeyiniz. Yeni cevap sayfasında resim ekle butonu var.

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