Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
Set oAccount = oApp.Logon("", "", "", "", "", "NOAUTH")
Set oUser = oAccount.User

msgbox("Wochenbericht in Ordner \\SERVER\Ressourcen\Formulare suchen")
'leeren AutoreplyText in den Ordner des Users kopieren
Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
Set oAccount = oApp.Logon("", "", "", "", "", "NOAUTH")
Set oArchive = oAccount.GetSpecialArchive(8) 
Set oMessageItems = oArchive.AllItems
For i = 0 To oMessageItems.Count - 1
	If oMessageItems.Item(i).Type = 2 Then
		Set oMailItem = oMessageItems.Item(i)
		If oMailItem.Subject = "Wochenbericht" Then
			msgbox("Textbaustein gefunden")
			oMailItem.Copy oAccount.GetSpecialArchive(103) 
			msgbox("Textbaustein kopiert")
		End If
	End If
Next
msgbox("Testscript ENDE")