Mail verilerinin Excele aktarımı

[honestman]

Herkese merhaba,

Arkadaşlar benim sorum şu outlooktan bir mail geldi diyelim, forward butonuna bastım maili başkasına yönlendireceğim, fakat yönlendirirken de birşeyler yazacağım üstüne... sizden istediğim bu üstüne yazacağım verileri seçip bir excell dosyasına aynı formatta otomatik olarak kaydetme imkanım var mıdır? Bunun için buton seçeneği mi daha iyi olur acaba çünkü cevap yazdığım tüm mailler için konuşmuyorum. Umarım anlatabilmişimdir, şimdiden yardımlarınıza teşekkürler....

 

[honestman]

yazılan mail içinden makro ile veri aktaramıyor muyuz?

 

[hamitcan]

Not:Referanslardan Microsoft Excel XX. Object Library eklemeyi unutmayın.
Kod, mail gönderdiğinde gövde metnini Excel'e aktarıyor.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.WorkSheet
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    xlApp.Visible = True
    xlSheet.cells(1, 1) = Item.Body
End Sub

 

[honestman]

Çok teşekkür erderim, yalnız ben bu kodu excel sayfamın code bölümüne yapıştırdım fakat çalıştıramadım sanırım, microsoft excell 11.0 library ekli... ikinci olarak tüm gönderilen mail cevaplarını değil de kendi belirlediklerimde yapmak istiyorun, anlatmak istediklerimi ek dosyada daha iyi anlattım sanırım.

 

[hamitcan]

Kodu, Outlook Vba kısmına eklemeniz gerekiyor. Sadece sizin yazdıklarınızı mail içinde bulmak zor görünüyor.