Excel ile Outlook'a Görev Eklemek

Başlatan Bülent, Ekm 08, 2017, 05:01 ÖS

« önceki - sonraki »

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Bülent

Excel ile Outlook'a Görev Eklemek:

Sub ExceldenOutlookaGorevEkle()
Const olTaskItem = 3

Set objOutlook = CreateObject("Outlook.Application")
Set objTask = objOutlook.CreateItem(olTaskItem)

objTask.Subject = "Outlook Görev Ekleme Denemesi"
objTask.Body = "Outlook görev ekleme denemesi olarak yapılmıştır."
objTask.ReminderSet = True
objTask.ReminderTime = #9/11/2017 12:00:00 PM#
objTask.DueDate = #10/11/2005 12:00:00 PM#
objTask.ReminderPlaySound = True
objTask.ReminderSoundFile = "C:\ExcelSitesi\Media\Ding.wav"

objTask.Save

End Sub