Butonla Outlook`a Gorev Atama

[mustafaine1]

Arkadaslar merhaba ekteki dosyada butonla 2. satirdaki bilgileri outlookta gorev olarak atiyor ve hatirlatma kurabiliyorum, yalniz istegim bu sayfada daha fazla bilgi listeleyip dongu halinde hepsini tek tek actirmaktir..

Benzeri bi konum vardi farkli istekler oldugundan dolayi baska bir konu actim..

vba/tolls menusunden referanslara girip microsoft outlook object 12.0 tolls`u isaretleyiniz.

 

[paribus]

dosya yok malesef ekleyebilirmisiniz

 

[mustafaine1]

dosya eklendi..

 

[mustafaine1]

Arkadaslar fikirde alabilirim konuyla neden hic ilgilenilmiyor ki illa kimseden tum sorunu cozmesini istemiyorum..

 

[Ömer]

Merhaba,

İlgili bölümü aşağıdaki gibi değiştirerek denermisiniz.

For i = 2 To [C65536].End(3).Row
    With olTask
        .Subject = Cells(i, "c").Value
        .Body = Cells(i, "b").Value
        .StartDate = Cells(i, "d").Value
        .DueDate = Cells(i, "e").Value
        .Status = olTaskWaiting
        .Importance = olImportanceHigh
        .ReminderSet = True
        .ReminderTime = Cells(i, "f").Value
        .ReminderPlaySound = True
        .Save
    End With
Next i

.

 

[mustafaine1]

Hocam, "i" icin degisken atanmamis hatasi veriyor..

 

[Ömer]

Hocam, "i" icin degisken atanmamis hatasi veriyor..

Sub Create_Task()

Dim olApp As Outlook.Application
Dim olTask As Outlook.TaskItem
Dim i As Long

Makronun ilgili bölümüne kırmızı ile işaretlediğim tanımlayı ekleyin.

.

 

[mustafaine1]

Hocam tesekkurler bu sekilde yaptim sorun suki baska bir mantik hatasi var sanirim cunku dongudeki en son neyse onu task olarak aciyor, bu konu uzerine cok zaman kaybetmesek iyi olacak sanirim, iki gun ugrastim bosuna, elinize saglik..

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
 
Sub Create_Task()
'Microsoft Object Library x.x referansi tool menusunden acilmali..
 
Dim olApp As Outlook.Application
Dim olTask As Outlook.TaskItem
Dim X As Long
 
Set olApp = New Outlook.Application
 
Application.ScreenUpdating = False
 
For X = 2 To Range("A65536").End(3).Row
    Set olTask = olApp.CreateItem(3)
    With olTask
        .Subject = Cells(X, "C").Value
        .Body = Cells(X, "B").Value
        .StartDate = Cells(X, "D").Value
        .DueDate = Cells(X, "E").Value
        .Status = olTaskWaiting
        .Importance = olImportanceHigh
        .ReminderSet = True
        .ReminderTime = Cells(X, "F").Value
        .ReminderPlaySound = True
        .Save
    End With
Next
 
Set olTask = Nothing
Set olApp = Nothing
 
Application.ScreenUpdating = True
 
MsgBox "Task List Basari Ile Duzenlendi..", vbInformation
End Sub

 

[mustafaine1]

Korhan Bey kodum zaten suan bununla ayni sadece i yerine x degisken atamissiniz.. Bu sekilde en son satiri sadece aciyor sanirim yaptiginin ustune aciyor taski.. oltask olan item`inda dongu kadar degismesi gerekiyor sanirim..

 

[mustafaine1]

korhan bey sanirim oyle yapmamissiniz cunku calisiyormus ilkten calismamisti ama sanirim outlooktaki gecikmelerden ben gec gordum..

 

[mustafaine1]

Peki bu konuyla ilgili son madde olarak ayni task`tan iki tane acmamasini saglayabilirmiyiz..

 

[Korhan Ayhan]

Selamlar,

Kodu bende F8 ile ilk çalıştırdığımda iki task oluşmuştu. Sonra makroyu direk çalıştırdığımda bu sorun düzelmişti.

 

[mustafaine1]

Peki tasklarin ikinci basista ayni konu olanlarin tekrar acilmamasini saglamak mumkunmudur, bunuda yapabilirsek bence bu konuda guzel bi database`imiz olacak..

 

[mustafaine1]

Arkadaslar n satirina entryID`lerini aldirarak check ettirerek ve nothing atayarak dosyayi calisir hale getirdim, ilgilenenlere tesekkur eder, son draft halini ilginize sunarim gule gule kullanin..

 

[mustafaine1]

Bu ilgi gormedi sanirim..

 

[senol1979]

Elinize sağlık güzel olmuş. Şimdi bu görevi başkasına nasıl atarız diye uğraşıyorum.

 

[mustafaine1]

onu excelden maıl atarak yapabılırsınız, sitede mail atmakla ilgili bir cok ornek var, kendiniz kriterleyeceginiz sekilde deneyiniz.. fakat gorev seklinde yapmak icin sanirim outlookta kod yazmak gerekir yada bu skeilde bisey yapilabilirmi bilmiyorum..

 

[senol1979]

Teşekkürler. Biraz uğraştım ama bilgilerim çerçevesinde halledemedim. Mutlak bir yolu vardır elbet ama umarım bulurum.

 

[mustafaine1]

isteginiz aciklama bolumunu mail atmak mi yoksa bu gorevi baskasinda outlookuna gorev atamak mi?