Çözüldü Excelden Outlook Takvime Veri Aktarma

akdolunay

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Arkadaşlar Merhaba,

Eklemiş olduğum excelldeki listeyi outlook takvime aktarmak istiyorum,

Takvimde 01.03.2021 tarihi için görünmesini istediğim;

DENEME1 A 100
DENEME2 B 400
DENEME3 C 800
DENEME4 E 1000 şeklinde

Bunu kodla nasıl çözerim ?
Teşekkür ederim.
 

Ekli dosyalar

Tekrar Merhaba,

Şimdilik aşağıdaki kod yardımıyla sorunu çözmüş bulunmaktayım,
Teşekkür ederim.

Sub createappointment()
Set oloutlook = CreateObject("outlook.application")
Set Namespace = oloutlook.getnamespace("MAPI")
Set olofolder = Namespace.getdefaultfolder(9)

lastrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 4 To lastrow

StartDate = Cells(i, 1).Value
Description = Cells(i, 2).Value


Set appointment = olofolder.items.Add

With appointment
.Start = StartDate
.Subject = Description
.Save


End With
Next i


End Sub
 
Konuyu başlatan
Normal Üye
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
1
Üst