VBA in Outlook: save mail als txt

[mbell]

Hallo, ik wil graag in Outlook geselecteerde mailitems laten saven als losse txt-bestanden in een directory. Ik ben een heel eind echter ik denk dat ik een fout maak bij het selectereren van de opeenvolgende mailitems. Dit is mijn code. Kan iemand mij helpen ajb?

Sub SaveAsTXTrep()
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection

For y = 1 To myOlSel.Count
'de regel hieronder is niet goed denk ik.
myOlSel.Item(y).SaveAs "C:\temp\RCV" & y & ".txt", olTXT
Next y
End Sub

 

[epfangb]

Hallo, ik wil graag in Outlook geselecteerde mailitems laten saven als losse txt-bestanden in een directory. Ik ben een heel eind echter ik denk dat ik een fout maak bij het selectereren van de opeenvolgende mailitems. Dit is mijn code. Kan iemand mij helpen ajb?

Sub SaveAsTXTrep()
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection

For y = 1 To myOlSel.Count
'de regel hieronder is niet goed denk ik.
myOlSel.Item(y).SaveAs "C:\temp\RCV" & y & ".txt", olTXT
Next y
End Sub

Bij mij werkt onderstaande:

Sub saving_email_as_text()

Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim Item As MailItem
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer
Dim Lijst As String
Dim Teller As Integer

Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
i = 0

If Inbox.Items.Count = 0 Then
MsgBox "There are no messages in the Inbox.", vbInformation, _
"Nothing Found"
Exit Sub
End If


For Each Item In Inbox.Items

Teller = Teller + 1

Item.SaveAs "d:\temp\bestand" & Teller & ".txt", olTXT

Next Item



End Sub