Outlook Kontrolleri

[mustafaine1]

VBA Outlook Not Kontrolu

Function Not_kontrolu(itm As Object) As Boolean
Not_kontrolu = (TypeName(itm) = “NoteItem”)
End Function

VBA Outlook Randevu Kontrolu

Function Randevu_Kontrolu(itm As Object) As Boolean
Randevu_Kontrolu = (TypeName(itm) = “AppointmentItem” And _
itm.MeetingStatus = olNonMeeting)
End Function

VBA Outlook Toplanti kontrolu

Function Toplanti_Kontrolu(itm As Object) As Boolean
Toplanti_Kontrolu = (TypeName(itm) = “AppointmentItem” And _
itm.MeetingStatus = olMeeting)
End Function

VBA Outlook Dokuman Kontrolu

Function Dokuman_mi(itm As Object) As Boolean
Dokuman_mi = (TypeName(itm) = “DocumentItem”)
End Function

VBA Outlook Dagitim Listesi Kontrolu

Function Dagitim_listesinde_mi(itm As Object) As Boolean
Dagitim_listesinde_mi = (TypeName(itm) = “DistListItem”)
End Function

VBA Outlook Mail Kontrolu

Function Mail_mi(itm As Object) As Boolean
Mail_mi = (TypeName(itm) = “MailItem”)
End Function

VBA Outlook Kisilerin Kontrolu

Function Kisilerimden_mi(itm As Object) As Boolean
Kisilerimden_mi = (TypeName(itm) = “ContactItem”)
End Function

VBA Outlook Task Mı Kontrolu

Function Task_mi(itm As Object) As Boolean
Task_mi = (TypeName(itm) = “TaskItem”)
End Function

 

[levo26]

Teşekkürler