VB-Outlook-Skript

@1@86:
   ;	
   ;for(bitc=1;bitc < 256;bitc << 1, i++) {
   ;	
	?debug	L 38
	mov	word ptr [bp-4],1
	mov	ax,word ptr [bp-14]
	mov	word ptr [bp-12],ax
	jmp	short @1@338		= GOTO @1@338
@1@142:
	......
@1@338:
	......
	jmp	short @1@86		= GOTO @1@86

   ; Goto 123
   ; 
        jmp	short @1@123		= GOTO @1@123        
        ......
        ......
@1@123:

Ordner = Application.ActiveExplorer.CurrentFolder

Set Ordner = Application.ActiveExplorer.CurrentFolder 'Den aktuell geöffneten Ordner verwenden.  
Set Selektion = Ordner.Selection 'Die markierten Mails benutzen  
For Each SelektierteMail In Selektion
...

Set olApp = CreateObject("Outlook.Application")  
Set olObj = olApp.CreateItem(0)

Sub Markierte_Mails_Verschicken()

' Dim Ordner As MAPIFolder  
Dim SelektierteMail As MailItem
Dim mySelectedItems As Selection
Dim mailX As MailItem
Dim Anzahl_kopierte_Mails As Integer

On Error GoTo Fehler   

' Set Ordner = Application.ActiveExplorer.CurrentFolder 'Den aktuell geöffneten Ordner verwenden.  
' "ordner"... for what??  
Set mySelectedItems = Application.ActiveExplorer.Selection
' .Selection KANN nur eine Methode des/eines Explorers sein, nicht eines "Ordners"  
' --- s.o Set Selektion = Ordner.Selection 'Die markierten Mails benutzen  
Anzahl_kopierte_Mails = 0 'Set kopierte = 0  

If mySelectedItems.Count = 0 Then
  MsgBox ("Bitte Mails auswählen!")  
Else
 For Each SelektierteMail In mySelectedItems
  Set mailX = SelektierteMail
  Mail_senden mailX 'Übergeben der Mails an das Unterprogramm  
  Anzahl_kopierte_Mails = Anzahl_kopierte_Mails + 1
  Next
End If
Exit Sub

Fehler:
MsgBox (Err.Description + " Bitte sicherstellen, dass im gewählten Ordner Mails markiert sind und der Ordner ein Mailordner ist!")  

End Sub

Private Sub Mail_senden(aMail As MailItem)

'' Hier glaub ich nicht, dass da nun nochmal eine OL-Appz neu geöffnet werden muss!!  
' bitte selbst downsizen!!  
 Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")  
With olApp.CreateItem(0)
'Empfänger  
.Recipients.Add "Mail@Mail.de"  
'Lesebestätigung aus  
.ReadReceiptRequested = False
'Dateianhang  
.Attachments.Add aMail
.Send
End With
Set olApp = Nothing
End Sub