cyber.space

Hallo! Ich poste mal das ganze Skript: Set "myFixDirs="C:\*.ts.cuts" "C:\*.ts.cuts"" for /f %%i in (‘dir %myFixDirs% ^2^>nul^|find "Datei(en)"‘) do set /a anzahl=%%i set /a i=0 :start if /I %i% GEQ %anzahl% goto :next set /a i=%i%+1 for /f "delims=" %%i in (‘dir /o:-D /b "C:\*.ts.cuts"‘) do @set "Film1=%%i" set Film1=%Film1% set Film2=%Film1:~0,-5% set Film3=%Film2:~0,-3% if not exist "C:\%Film2%" del "C:\%Film3%.eit" del "C:\%Film2%.ap" del "C:\%Film2%.meta" del "C:\%Film2%.sc" del "C:\%Film1%" goto :start :next Es handelt sich um Aufnahmen einer Dreambox. Wenn die *.ts Datei gelöscht ist, sollen auch die zugehörigen Dateien gelöscht werden (mit der Endung: ts.cuts, eit, ap, meta und sc). Da hier der Wiedergabezeitpunkt gespeichert ist (letzte Stelle an der geschaut wurde). Solange aber die ts Datei noch vorhanden ist, sollen auch die dazugehörigen Dateien vorhanden bleiben. Grundsätzlich funktioniert das Skript, nur werden die Variablen bei einem neuerlichen Durchlauf des Skripts nicht neu eingelesen (dh es wird nicht zur nächsten ts Datei gesprungen) Ich hoffe, ihr könnt mir helfen! mfg cyber.space

Hallo! Hat keiner eine Idee? mfg cyber.space

Hallo! Tut mir Leid! Es handelt sich hierbei um VBA im Outlook. mfg cyber.space

Hallo! Ich möchte ein Makro bauen, welches per Regel-Assistent ausgeführt wird. Dieses soll Attachments in einem Pfad abspeichern und den Mitteilungstext (Body-Text der Mail) als txt-Datei abspeichern. Dazu habe ich schon zwei Beispiele gefunden, die ich jedoch nicht zusammenfügen kann. Könntet ihr mir helfen? Mail-Inhalt speichern (sollte aber nur den Body speichern): Code: Public Enum olSaveAsTypeEnum olSaveAstxt = 0 End Enum Private WithEvents Items As Outlook.Items Private Const MAIL_PATH As String = "c:\" Private Sub TextSpeichern(Ns As Outlook.NameSpace) Set Ns = Application.GetNamespace("MAPI") Set Items = Ns.GetDefaultFolder(olFolderInbox).Items End Sub Private Sub Items_ItemAdd(ByVal Item As Object) If TypeOf Item Is Outlook.MailItem Then SaveMailAsFile Item, olSaveAstxt, MAIL_PATH End If End Sub Public Sub SaveMailAsFile(oMail As Outlook.MailItem, _ eType As olSaveAsTypeEnum, _ sPath As String _ ) Dim sName As String Dim sExt As String oMail.To = "" oMail.Subject = "" eType = olSaveAstxt: sExt = ".txt" sName = "versuch" & sExt oMail.SaveAs sPath & sName, eType End Sub Private Sub ReplaceCharsForFileName(sName As String, _ sChr As String _ ) sName = Replace(sName, "/", sChr) sName = Replace(sName, "\", sChr) sName = Replace(sName, ":", sChr) sName = Replace(sName, "?", sChr) sName = Replace(sName, Chr(34), sChr) sName = Replace(sName, "<", sChr) sName = Replace(sName, ">", sChr) sName = Replace(sName, "|", sChr) End Sub Attachment abspeichern: Code: Public Sub AufnahmeMailVerschicken(objNewMail As MailItem) Dim Ordnername As String Dim objPosteingang As MAPIFolder Dim anzahl Dim i On Error Resume Next Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) For Each objNewMail In objPosteingang.Items With objNewMail If .UnRead = True Then anzahl = .Attachments.Count If anzahl > 0 Then Ordnername = "C:\" & objNewMail.SenderName MkDir Ordnername For i = 1 To anzahl .Attachments.Item(i).SaveAsFile Ordnername & "\" & .Attachments.Item(i).FileName Next i End If End If End With Next objNewMail End Sub Danke schon im Voraus für eure Hilfe! cyber.space