outlook ta excel eki dosyaya kaydetmek

[catalinastrap]

Eksik olmayın...

İyi günler.

Selam Hocam;

"döküm.xls:: dosya biçimi geçerli değil"

hatası alıyorum exceli açmaya çalışırken

 

[isteobenim]

Merhaba,

Aşağıdaki kodları Outlook 2013 32 Bit sürümde kullanabiliyordum, ancak 64 Bit sürümde kullanamıyorum, manuel olarak çalışıyor ancak mail geldiğinde otomatik çalıştıramadım, çözümü hakkında yardımcı olabilir misiniz?

(4.mesajda deklare konusu var, denedim ancak çözemedim)

------------------------------------------------------
Murat OSMA tarafından gönderildi Mesajı Görüntüle
Bu kodları bir deneyiniz (Konuya göre );
Kod: Tüm Kodu Seç (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub deneme()
Const olFolderInbox = 6
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
Set colItems = objFolder.Items
For Each objMessage In colItems
If objMessage.Subject = "Buraya konuyu yazın" Then
intCount = objMessage.Attachments.Count
If intCount > 0 Then
For i = 1 To intCount
objMessage.Attachments.Item(i).SaveAsFile "C:\Veri\" & _
objMessage.Attachments.Item(i).FileName
Next i
End If
End If
Next objMessage
End Sub

Budur Hocam,
ellerine kollarına sağlık çooooook teşekkür ederim.