- Katılım
- 21 Ekim 2008
- Mesajlar
- 2,323
- Excel Vers. ve Dili
- Office 2013 - Eng
VBA Outlook Not Kontrolu
VBA Outlook Randevu Kontrolu
VBA Outlook Toplanti kontrolu
VBA Outlook Dokuman Kontrolu
VBA Outlook Dagitim Listesi Kontrolu
VBA Outlook Mail Kontrolu
VBA Outlook Kisilerin Kontrolu
VBA Outlook Task Mı Kontrolu
Kod:
Function Not_kontrolu(itm As Object) As Boolean
Not_kontrolu = (TypeName(itm) = NoteItem)
End Function
Kod:
Function Randevu_Kontrolu(itm As Object) As Boolean
Randevu_Kontrolu = (TypeName(itm) = AppointmentItem And _
itm.MeetingStatus = olNonMeeting)
End Function
Kod:
Function Toplanti_Kontrolu(itm As Object) As Boolean
Toplanti_Kontrolu = (TypeName(itm) = AppointmentItem And _
itm.MeetingStatus = olMeeting)
End Function
Kod:
Function Dokuman_mi(itm As Object) As Boolean
Dokuman_mi = (TypeName(itm) = DocumentItem)
End Function
Kod:
Function Dagitim_listesinde_mi(itm As Object) As Boolean
Dagitim_listesinde_mi = (TypeName(itm) = DistListItem)
End Function
Kod:
Function Mail_mi(itm As Object) As Boolean
Mail_mi = (TypeName(itm) = MailItem)
End Function
Kod:
Function Kisilerimden_mi(itm As Object) As Boolean
Kisilerimden_mi = (TypeName(itm) = ContactItem)
End Function
Kod:
Function Task_mi(itm As Object) As Boolean
Task_mi = (TypeName(itm) = TaskItem)
End Function