makroyu dakikada bir çalıştırma

[ruonour]

merhaba,

aşağıdaki macroyu dakikada bir çalıştırmak için ne yapmalıyım?


Sub report_kayıt()



Const olFolderInbox = 6

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folde rs("data")

Set colItems = objFolder.Items

For Each objMessage In colItems
intCount = objMessage.Attachments.Count
If intCount > 0 Then
For i = 1 To intCount
objMessage.Attachments.item(i).SaveAsFile "C:\x\deneme.csv"
objMessage.Attachments.item(i).FileName
Next
End If
Next


End Sub




yardımınız için teşekkürler

 

[Merhum İdris SERDAR]

.

Sub kur()

Tarih = Now + TimeValue("00:01:00")
Application.OnTime Tarih, "report_kayıt"

End Sub

Gibi bir kod kullanabilirsiniz.

.

 

[ruonour]

merhaba
kodu eklediğimde Run-time error'438': hatası alıyorum.

teşekkürler

 

[ExcelF1]

Aşağıdaki şekilde deneyebilirsiniz.

Sub report_kayıt()
Const olFolderInbox = 6
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folde rs("data")
Set colItems = objFolder.Items
For Each objMessage In colItems
intCount = objMessage.Attachments.Count
If intCount > 0 Then
For i = 1 To intCount
objMessage.Attachments.item(i).SaveAsFile "C:\x\deneme.csv"
objMessage.Attachments.item(i).FileName
Next
End If
Next
zaman
End Sub

sub zaman()
Application.OnTime Now + TimeValue("00:01:00"), "report_kayıt"
end sub

 

[Merhum İdris SERDAR]

merhaba
kodu eklediğimde Run-time error'438': hatası alıyorum.

teşekkürler

.

Dim Tarih As Date


Sub report_kayıt()

Const olFolderInbox = 6

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folders("data")

Set colItems = objFolder.Items

For Each objMessage In colItems
intCount = objMessage.Attachments.Count
If intCount > 0 Then
For i = 1 To intCount
objMessage.Attachments.Item(i).SaveAsFile "C:\x\deneme.csv"
objMessage.Attachments.Item(i).Filename
Next
End If
Next

Call Kur

End Sub

Sub kur()

Tarih = Now + TimeValue("00:01:00")
Application.OnTime Tarih, "report_kayıt"

End Sub

Kodlar bu şekilde olmalı.

.

 

[ruonour]

tekrar merhaba, söylediğiniz gibi yaptım ama çalıştırdığımda aşağıdaki hatayı almaktayım :S

 

[Merhum İdris SERDAR]

.

Bende çalışıyor gibi... Hata almıyorum.

.

 

[ruonour]

tekrar merhaba,

kodları outlook 2007 için kullanıyor olmam sorun teşkil ediyor olabilir mi?

 

[Merhum İdris SERDAR]

tekrar merhaba,

kodları outlook 2007 için kullanıyor olmam sorun teşkil ediyor olabilir mi?

Yukarıda eklediğim kodda bir düzeltme yaptım.

Tekrar deneyin.

.

 

[ruonour]

maalesef sonuç aynı.

aşağıdaki kısım hata veriyor.

Sub kur()

Tarih = Now + TimeValue("00:01:00")
Application.OnTime Tarih, "report_kayıt"

End Sub

 

[ExcelF1]

Kod bölümünde Tools - References 'de VARSA Missing ile başlayan satırların çentiklerini kaldırarak deneyiniz.