excelde hücreceleri outlookun takvimine atmak mümkün mü?

[gaggos]

Merhaba arkadaşlar;

Benim merak ettiğim şey excelde hazırlamış olduğumuz bir muhasebe dökümanında, örneğin çeklerimizin girişleri var tarih cari tutar v.b. bunları exceldeki tarihe göre outlook ve\veya benzeri bir takvim programına otomatik attırmamız makrolarla mümkün mü? Mümkünse Nasıl

 

[Recep İpek]

Aşağıdaki kodlar ile çek bilgilerinizi Outlook'a toplantı notu olarak ekleyebilirsiniz.

Sub OutlookToplantiEkle()
Dim ol As New Outlook.Application
Dim ns As Outlook.Namespace
Dim appt As Outlook.AppointmentItem

    Set ns = ol.GetNamespace("MAPI")

    Set appt = ol.CreateItem(olAppointmentItem)
    With appt
        .MeetingStatus = olMeeting
        .Importance = olImportanceHigh
        .Subject = "Six Sigma Eğitimi"
        .Body = "Toplantı Planı :" & vbCr & vbCr & "1-Six Sigma Nedir?" & vbCr & vbCr & "2-Six Sigma'nın Amacı."
        .Start = "10:00 PM 09/01/2007"
        .End = "11:00 PM 09/01/2007"
        .Location = "Toplantı Odası 1"
        '.RequiredAttendees = "xxx@yyyy.com"
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 30
        .Save
        '.Send
        .Display
    End With

    Set ol = Nothing
    Set ns = Nothing
    Set appt = Nothing
End Sub

Ayrıca aşağıdaki linkide inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=11833

 

[gaggos]

cevabın için teşekkürler biraz geç inceleyebildim.. söylediğini yaptım fakat
"ol As New Outlook.Application" bu satırın bu kısmında hata veriyor ve makro isminin yazdığı sütünü sarıya boyuyor. neden acaba

 

[Recep İpek]

VBE ekranında Tools>>Referances bölümünü açıp, buradan

Microsoft Outlook ?.? Library

seçmeniz gerekmektedir.