Microsoft Outlook Calendar Etiketine sahip yazılar.
Oca
6
2009

Visual Basic 6.0 ve Microsoft Outlook Takvim Birlikte nasıl kullanılır? -2

Önceki yazımda anlattığım gibi yine Microsoft Outlook ve Visual Basic 6.0 ile ortaklaşa çalışabilecek takvim özelliklerinden bahsetmek istiyorum.

Bir önceki yazıda sizin de bildiğiniz gibi Visual Basic 6.0 ile Microsoft Outlook yazılımı üzerinde TAKVİM verisi oluşturmuş ve bu bilgileri istediğimiz bir kullanıcının mail adresine göndermiştik.

Bu yazıda ise oluşturulmuş olan TAKVİM verileri arasından belirli bir bilgiyi sorgulayacak ve buna uyan TAKVİM kaydını sileceğiz.

Private Sub Command1_Click()
Const olFolderCalendar = 9
Set objOutlook = CreateObject(“Outlook.Application”)
Set objNamespace = objOutlook.GetNamespace(“MAPI”)
Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)

Set colItems = objFolder.Items
konu = “[Subject] = ” & “‘Deneme'”
yer = “[Location] = ” & “‘ev'”
basla = “[Start] = ” & Chr(34) & “07.01.2009 08:00” & Chr(34)
bitis = “[End] = ” & Chr(34) & “07.01.2009 08:30″ & Chr(34)
sorgu = konu & ” AND ” & yer & ” AND ” & basla & ” AND ” & bitis

Set colFilteredItems = colItems.Restrict(sorgu)

For Each objitem In colFilteredItems
Set objPattern = objitem.GetRecurrencePattern

Debug.Print “Toplantı Adı: ” & objitem.Subject
Debug.Print “Süre: ” & objitem.Duration & ” minutes”
Debug.Print “Yer: ” & objitem.Location
Debug.Print “Başlangıç: ” & objitem.Start
Debug.Print “Bitiş: ” & objitem.End
Debug.Print
objitem.Delete
Next

End Sub

Yukarıdaki yordamdan da anlayacağınız gibi KONUSU Deneme olan, TOPLANTI YERİ ev olan, BAŞLANGIÇ TARİHİ 07.01.2009 ve saati 08:00 olan, BİTİŞ TARİHİ ise 07.01.2009 ve saati 08:30 olan kayıtları AJANDA içersinde sorgular ve bulduklarının detay bilgilerini DEBUG ekranında gösterip siler.

Oca
4
2009

Visual Basic 6.0 ve Microsoft Outlook Takvim Birlikte nasıl kullanılır?

Söz gelimi elinizde bir takvim planlama yazılımı var ve bu yazılım üzerinden iş yerinizdeki tüm etkinliklerini ödeme planlarınızı yönetiyorsunuz. Peki ama programınızda uyarı yada diğer bir deyişle ajanda sistemi yok ise bu planlarınızı size dönem dönem Microsoft Outlook yazılımı aracılığı ile hatırlatılmasını ya da GMAIL TAKVİM  özelliği ile bu uyarıların size SMS yolu ile gönderilmesini istermiydiniz?

Geçtiğimiz günlerde böyle bir yazılıma ihtiyacım oldu ve başladım araştırmaya.

Önceleri OUTLOOK .ics dosya yapısı üzerinde durdum ve bu dosya yapısını CDO component ile nasıl gönderebileceğim konusunu incelerken content-type verisini text/calendar yaptığım halde karşı tarafa ulaşan mesajımda bu bilgi hep text/plain olarak görünüyordu ve bundan dolayıda yazdığım kodlar işe yaramıyordu.

Başladım yine araştırmaya ve olayın Microsoft Outlook Object Library ile çözülebileceğini gördüm. Aşağıdaki kodların çalışabilmesi için öncelikle projenize Microsoft Outlook Object Library referansının eklenmesi gereklidir.

bu referans eklendikten sonra ise artık kod kısmına geçebiliriz.

Private Sub Command1_Click()
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Set objOutlook = CreateObject(“Outlook.Application”)
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
objAppt.MeetingStatus = Outlook.OlMeetingStatus.olMeeting

strRecipients = “Burak ŞEKERCİOĞLU <burak@sekercioglu.eu>”

‘strRecipients bilgisi yukarıdaki gibi yazılmalıdır. Örn: Kişi Adı <mail_adresi>

With objAppt
.Recipients.Add strRecipients
.Start = “04.01.2009 12:00:00” ‘Etkinlik Başlangıç tarih ve saati
.End = “05.01.2009 12:00:00” ‘ Etkinlik Bitiş tarih ve saati
.Duration = 15 ‘ Bu bilgi kullanılacaksa .End değeri girilmemelidir. Dakika olarak etkinlik süresini ifade eder
.Subject = “Etkinlik Mesajımız www.sekercioglu.eu ”
.Body = “www.sekercioglu.eu için toplantı yapılacak”
.Location = “Samsun”
.ReminderMinutesBeforeStart = 10 ‘ dk cinsinden kaç dakika önce anımsatma olacağı bilgisi
.ReminderSet = True

.Save
.Send

End With
Set objAppt = Nothing
Set objOutlook = Nothing
End Sub

Tüm bu veriler girildiğinde ve formunuza bir adet COMMAND Button konulduğunda artık o butona ait fonksiyonda hem takviminize etkinlik verisi kayıt edilir, hemde yukarıda belirtilen StrRecipients değişkenindeki kullanıcıya bu etkinlik bilgisi Microsoft Outlook yazılımınızdaki varsayılan mail hesabınız üzerinden gönderilir.

Sonraki: Visual Basic 6.0 ve Microsoft Outlook Takvim Birlikte nasıl kullanılır? -2

TeamViewer ile İnternet üzerinden Uzaktan Erişim ve Destek Sekercioglu.eu Uzaktan Yardım
Ammyy Uzaktan Yardım
WinRAR
WEBMAIL Google PageRank Checker
Twitterda Takip Edin! Twitterda Takip Edin!
Twitter

Üye Paneli

Son Yazılar

Kategoriler

Son Yorumlar