VB Outlook 2000

[Chrizzzz]

Ik ben een macro voor outlook aan het schrijven.

Wat ik graag wil is dat emails met een bepaald onderwerp uit de inbox geselecteerd worden.

Van die emails moet dan het onderwerp geexporteerd worden naar een excel bestand.

Heb tot nu toe:

Private Const JUNK_SENDERS_FILE As String = _
"\\Alex.RS\dfsroot\Users\cbeerm\Desktop\Delivery.txt"

Sub Delivery()

Dim objExplorer As Outlook.Explorer
Dim objMailItem As Outlook.MailItem
Dim intItem As Integer
Dim objFSO As Scripting.FileSystemObject
Dim objTextStream As Scripting.TextStream

Set objFSO = New Scripting.FileSystemObject

If MsgBox(Prompt:="Weet u zeker dat u " & _
"alle geselecteerde afzenders wilt toevoegen aan uw " & _
"lijst met afzenders van ongewenste e-mail en vervolgens " & _
"alle geselecteerde e-mailberichten " & _
"wilt verwijderen? Waarschuwing: deze actie kan niet " & _
"gemakkelijk ongedaan worden gemaakt!", Buttons:=vbYesNo) = vbYes Then

If objFSO.FileExists(FileSpec:=Delivery) = False Then
Set objTextStream = objFSO.CreateTextFile _
(FileName:=Delivery)
Else
Set objTextStream = objFSO.OpenTextFile _
(FileName:=Delivery, IOMode:=ForAppending)
End If

Set objExplorer = Application.ActiveExplorer

For Each objMailItem In objExplorer.Selection

objTextStream.WriteLine Text:=objMailItem.SenderName

objMailItem.Delete

Next objMailItem

MsgBox Prompt:="Alle geselecteerde afzenders zijn toegevoegd " & _
"aan uw lijst met afzenders van ongewenste e-mail en " & _
"alle geselecteerde e-mailberichten zijn verwijderd."

End If

End Sub

Maar dat exporteert het emailadres van ongewenste email naar een txt.bestand.
Weet echt niets van VB, ga er zelf komende dagen aan klussen.
Alle hulp is welkom!!