Gönderen Konu: Excel ile Outlook'a Görev Eklemek  (Okunma sayısı 79 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1301
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Excel ile Outlook'a Görev Eklemek
« : 11 Ekim 2017, 11:25:24 »
Excel ile Outlook'a Görev Eklemek:

Kod: [Seç]
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

=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")