- Katılım
- 15 Ağustos 2006
- Mesajlar
- 33
- Excel Vers. ve Dili
- 2002 ingilizce
Merhaba arkadaslar,
Outlookta gelen mailleri txt uzantili olarak sabit diske kaydetmenin yolu var mi. Buna uygun bir makro yazabilecek olanlara cok tesekkürler. Mailler zaten html uzantili degil. Txt olarak kaydedilmeye uygunlar.
Cok arastirdim bu konuyu. Maillerin eklerini otomatik olarak kaydeden bir makro buldum. Onu size iletiyorum. Birinin isine yarayabilir.
Ama benim istedigim mailin body kismini kaydetmek.
Ilgilenen herkeze tesekkürler
*******Mail Eklerini Diske Kaydeden Kod*************
Public WithEvents myOlItems As Outlook.Items
Private Sub Application_Startup()
Set myOlItems = _
Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub myOlItems_ItemAdd(ByVal Item As Object)
Const sPfad As String = "C:\KayitDosyasi\"
Dim iAttachCnt As Integer
Dim i As Integer
If TypeName(Item) = "MailItem" Then
With Item.Attachments
iAttachCnt = .Count
If iAttachCnt > 0 Then
For i = 1 To iAttachCnt
.Item(i).SaveAsFile sPfad & .Item(i).FileName
Next i
End If
End With
End If
End Sub
Outlookta gelen mailleri txt uzantili olarak sabit diske kaydetmenin yolu var mi. Buna uygun bir makro yazabilecek olanlara cok tesekkürler. Mailler zaten html uzantili degil. Txt olarak kaydedilmeye uygunlar.
Cok arastirdim bu konuyu. Maillerin eklerini otomatik olarak kaydeden bir makro buldum. Onu size iletiyorum. Birinin isine yarayabilir.
Ama benim istedigim mailin body kismini kaydetmek.
Ilgilenen herkeze tesekkürler
*******Mail Eklerini Diske Kaydeden Kod*************
Public WithEvents myOlItems As Outlook.Items
Private Sub Application_Startup()
Set myOlItems = _
Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub myOlItems_ItemAdd(ByVal Item As Object)
Const sPfad As String = "C:\KayitDosyasi\"
Dim iAttachCnt As Integer
Dim i As Integer
If TypeName(Item) = "MailItem" Then
With Item.Attachments
iAttachCnt = .Count
If iAttachCnt > 0 Then
For i = 1 To iAttachCnt
.Item(i).SaveAsFile sPfad & .Item(i).FileName
Next i
End If
End With
End If
End Sub