freeman_sb

Hallo Leute, folgendes Problem aus dem ich einfach nicht schlau werde. Ich habe ein Makro geschrieben, das je nach Useraktion zwei unterschiedliche Funktionen ausführt. Es werden aber in jedem Fall Mails aus dem Posteingang in Outlook in ein Verzeichnis exportiert. Das Programm funktioniert soweit einwandfrei, jedoch überspringt es ohne ersichtlichen Grund immer wieder Nachrichten im Posteingang und exportiert diese nicht. Ich habe schon getestet, getan und gemacht was ich nur konnte. Es ist einfach nur völlig irrational! Jemand eine Idee? Der Fokus sollte auf den for - each - Schleifen liegen... '------------------------------------------------------------------------------------------------------------------------ 'Programm ermöglicht das Exportieren von Nachrichten in das Dateisystem 'hierzu werden die Nachrichten im Posteingang auf den Absender und Betreff überprüft 'es sind zwei unterschiedliche Exportmethoden möglich - eine vordefinierte für den Absender ************, dass '** Zielverzeichnisse berücksichtigt - je nach Betreffzeile 'oder die Methode, welche Nachrichten auf Absender überprüft und diese in ein eingegebenes Verzeichnis exportiert und löscht 'hierzu muss der User in einem Formular Absender und Zielverzeichnis eingeben. 'Erstellt von: ********** Fachinformatiker Anwendungsentwicklung (FIAE) 'Stand: 19.06.2007 Option Explicit 'benötigte globale Konstante(n) '------------------------------------------------------------------------------------------------------------------------ Const fill As String = "_" '------------------------------------------------------------------------------------------------------------------------ Public WithEvents myOlItems As Outlook.Items Public Sub Initialize_handler() Set myOlItems = Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(5).Items End Sub 'Startoption des Codes festlegen. Bei Wunsch bitte anpassen!------------------------------------------------------------- 'Programmstart bei Eingang jeder neuen Nachricht 'Private Sub Application_NewMail() 'Programmstart beim Starten des Email - Clients Outlook.exe Private Sub Application_Startup() 'Programmstart beim Beenden von Outlook 'Private Sub Application_Quit() 'Konfigurationsbereich -hier können Anpassungen vorgenommen werden- '------------------------------------------------------------------------------------------------------------------------ 'String für Absenderadresse Dim Absender As String 'String(s) für (die) Zielordner Dim DestinationFolderTest As String Dim DestinationFolder1 As String Dim DestinationFolder2 As String Dim DestinationFolder3 As String Dim DestinationFolder4 As String '------------------------------------------------------------------------------------------------------------------------ 'Variablendeklaration '------------------------------------------------------------------------------------------------------------------------ Dim OApplication As Application Dim Folder As MAPIFolder Dim Folder2 As MAPIFolder Dim Message As Object Dim DestinationFolder As String Dim MessageSubject As String Dim pos1 As Integer Dim pos2 As Integer Dim List As Variant Dim StrTemp As String Dim decision1 As String Dim decision2 As String Dim counter As Integer Dim error As Integer Dim Verzeichnis As String '------------------------------------------------------------------------------------------------------------------------ 'Variableninitialisierung '------------------------------------------------------------------------------------------------------------------------ Set OApplication = CreateObject("Outlook.Application") 'Folder wird auf Posteingang gesetzt Set Folder = OApplication.Session.GetDefaultFolder(olFolderInbox) 'Debug.Print (Folder) 'Debug.Print (OApplication.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)) Set Folder = OApplication.Session.GetDefaultFolder(olFolderInbox) 'Festlegung der Zielverzeichnisse -- Reihenfolge nicht verändern! -- Anpassung hier vornehmen '------------------------------------------------------------------------------- DestinationFolder1 = "M:\Daten\testing\" DestinationFolder2 = "M:\Daten\testing\" DestinationFolder3 = "M:\Daten\testing\" DestinationFolder4 = "M:\Daten\testing\" '------------------------------------------------------------------------------- pos1 = 0 pos2 = 0 counter = 0 '------------------------------------------------------------------------------------------------------------------------ 'Userabfrage ob die Nachrichten jetzt exportiert und aus dem Posteingang gelöscht werden sollen decision1 = MsgBox("Möchten sie nun Nachrichten von '******' in die Verzeichnisse exportieren und aus dem Posteingang löschen?", vbYesNo, "Nachrichten exportieren?") If decision1 = vbYes Then 'Programmbeginn 'Jede Nachricht im globalen Posteingang wird auf den Absendernamen überprüft 'For Each Folder2 In Folder.Folders For Each Message In Folder.Items 'handelt es sich auch um ein MailItem - Objekt? If TypeOf Message Is MailItem Then If (Message.SenderName = "******") Then counter = counter + 1 StrTemp = Message.Subject 'Auswertung von StrTemp und schreiben der Dateien If StrTemp Like "***********************" Then MessageSubject = FileName(Message.Subject) Message.SaveAs (DestinationFolder1 & MessageSubject & ".txt"), olTXT ElseIf StrTemp Like "*******************" Then MessageSubject = FileName(Message.Subject) Message.SaveAs (DestinationFolder2 & MessageSubject & ".txt"), olTXT ElseIf StrTemp Like "*******************" Then MessageSubject = FileName(Message.Subject) Message.SaveAs (DestinationFolder3 & MessageSubject & ".txt"), olTXT ElseIf StrTemp Like "*******************" Then MessageSubject = FileName(Message.Subject) Message.SaveAs (DestinationFolder4 & MessageSubject & ".txt"), olTXT 'usw. Else error = error + 1 End If 'Löschen der Nachricht Message.Delete StrTemp = "" End If 'pos1 = 0 'pos2 = 0 StrTemp = "" End If Next 'Next 'Message Box mit der Anzahl der exportierten Nachrichten anzeigen If counter > 1 Then MsgBox "Es wurden " & counter & " Nachrichten gefunden, exportiert und aus dem Posteingang entfernt", vbInformation ElseIf counter = 1 Then MsgBox "Es wurde " & counter & " Nachricht gefunden, exportiert und aus dem Posteingang entfernt", vbInformation ElseIf counter = 0 Then MsgBox "Es wurden keine Nachrichten des Absenders '**********' im Posteingang gefunden", vbInformation End If 'Sollten Fehler aufgetreten sein werden diese hier ausgegeben If error <> 0 Then MsgBox ("Bei " & error & " Nachricht(en) konnte die Betreffzeile nicht ausgewertet werden, da diese unbekannt ist. Bitte im Quellcode korrigieren und gelöschte Nachrichten mit exportieren Nachrichten vergleichen und ggf. wieder herstellen."), vbInformation End If 'Ressourcen freigeben Set Message = Nothing Set Folder = Nothing Set OApplication = Nothing counter = 0 error = 0 Else 'Exportierne anderer Nachrichten ermöglichen decision2 = MsgBox("Möchten sie Nachrichten eines anderen Absenders in ein Verzeichnis exportieren?", vbYesNo, "Nachrichten exportieren?") If decision2 = vbYes Then UserForm1.Show 'Idle solange bis der OK Button des Formulares betätigt wurde Do While UserForm1.ActiveControl = True 'Idle-Prozess Loop Absender = UserForm1.TextBox1.Value Verzeichnis = UserForm1.TextBox2.Value & "\" 'Debug.Print (Absender) 'Debug.Print (Verzeichnis) 'Programmbeginn 'Jede Nachricht im globalen Posteingang wird auf den Absendernamen überprüft 'For Each Folder2 In Folder.Folders For Each Message In Folder.Items 'Überprüfung ob es sich tatsächlich auch um ein MailItem - Objekt handelt 'Debug.Print TypeName(Message) If TypeOf Message Is MailItem Then If (Message.SenderName = Absender) Then counter = counter + 1 'Debug.Print (Absender) MessageSubject = FileName(Message.Subject) Message.SaveAs (Verzeichnis & " - " & Absender & " - " & " " & MessageSubject & ".txt"), olTXT 'Nachricht löschen Message.Delete End If Else End If Next 'Next 'UserForm zurücksetzen UserForm1.TextBox1.Value = "Absender so eingeben wie im Posteingang angezeigt!" UserForm1.TextBox2.Value = "M:\Daten" 'Ausgabe für User generieren If counter = 0 Then MsgBox ("Es wurden keine Nachrichten vom Absender '" & Absender & "' im Posteingang gefunden."), vbInformation ElseIf counter = 1 Then MsgBox ("Es wurde eine Nachrichten vom Absender '" & Absender & "' im Posteingang gefunden, exportiert und gelöscht."), vbInformation Else MsgBox ("Es wurden " & counter & " Nachrichten vom Absender '" & Absender & "' im Posteingang gefunden, exportiert und gelöscht."), vbInformation End If ElseIf decision2 = vbNo Then End If counter = 0 End If End Sub 'Mit dieser Funktion wird ein "erlaubter Dateiname generiert um die Nachrichten abspeichern zu können" Private Function FileName(IncomingString As String) As String Dim Temp As String Temp = IncomingString Temp = Replace(Temp, "/", fill) Temp = Replace(Temp, "\", fill) Temp = Replace(Temp, "*", fill) Temp = Replace(Temp, "?", fill) Temp = Replace(Temp, """", fill) Temp = Replace(Temp, "<", fill) Temp = Replace(Temp, ">", fill) Temp = Replace(Temp, "|", fill) Temp = Replace(Temp, ":", fill) FileName = Temp End Function

Hallo Zusammen, Folgendes Problem: Im untenstehenden Codeabschnitt möchte ich eine Exceldatei erzeugen, in die der Inhalt einer Datenbank exportiert werden soll. Hier soll die Excelfile, falls diese nicht vorhanden ist, erstellt werden und eine Verbindung zu der eben erstellten Datei an den Aufrufer zurückgegeben werden, der diese dann mit den entsprechenden Daten füttert. Leider funktioniert es nicht. Ich habe das Problem, dass die erstellte Datei nicht lesbar ist. Sie wird zwar korrekt im angegebenen Verzeichnis mit korrekten Namen erstellt, lässt sich aber anschließend mit Conn.open(); nicht öffnen. Folglich kann die Verbindung auch nicht übergeben werden. Ich kann die Datei auch nicht manuell mit Doppelklick auf das Icon öffnen. Excel gibt mir als Fehlermeldung lediglich: "Kann Datei nicht lesen" aus. Versuche ich es mit einer Datei die ich manuell im Verzeichnis erstelle, die den gleichen Namen hat, kann ich die Verbindung mit Conn.open() herstellen und diese auch übergeben. Ich habe auch schon versucht die Datei mittels File.Open(newfile, FileMode.Create); zu erstellen - mit dem gleichen Ergebnis. Ich habe wirklich schon so ziemlich alles ausprobiert, bis hin zur Vergabe eines einfachen Namens für die Datei. Leider alles ohne Erfolg. Hatte jemand schon einmal ein gleiches Problem oder hat jemand eine Idee woran es liegen könnte? Ich bin ziemlich ratlos und genervt, da man von solchen Kleinigkeiten unnötig aufgehalten wird. Ich freu mich schon auf eure Antworten. hier der relevante Code: #region Export to Excel - Verbindungsaufbau //Methode erstellt eine xls-Datei mit szenarioabängigen Namen und gibt die Verbindung an den Aufrufer zurück public OleDbConnection xlsExport(string starttime,string endtime,string export) { string Speicherpfad= "C:\\"; string excelfile = export; string newfile=""; string start = starttime; string end = endtime; DateTime Time = DateTime.Now; if(excelfile=="COMS_RC") { newfile=Speicherpfad + "\\False Events_Timeframe-" + start + "-to-" + end + "-based-on-analysis-of-the-" + Time.ToShortDateString() + "-.xls"; } else if(excelfile=="FalseEntries_COMS_INC_Alarm_Code") { newfile=Speicherpfad + "\\False_Entries_COMS_INC_Alarm_Code_Timeframe-" + start + "-to-" + end + "-based-on-analysis-of-the-" + Time.ToShortDateString() + "-.xls"; } if(!File.Exists(newfile)) { File.Create(newfile); } OleDbConnection Conn = new OleDbConnection( "provider=Microsoft.Jet.OLEDB.4.0;" +@"data source="+ newfile +"; " +"Extended Properties=Excel 8.0;"); Conn.Open(); return Conn; } #endregion

die Funktion kann als eine Art abstrakte Funktion angesehen werden. d.h. sie ist momentan leer und enthält nur nur eine Schleife, die eigentlich die Inhalte der einzelnen Arrays auf dem Bildschirm ausgeben soll. Später sollen die Werte mal in eine Datenbank geschrieben werden. Ich weiß dass ich das auch direkt in der oben geposteten Schleife realisieren könnte. Ich finde dies jedoch nicht gerade elegant, da sämtliche Methoden ausgelagert sind.

Die Variablen sind nicht ausserhalb der Schleife deklariert, wenn ich die Funktion aber partiell aus der Schleife heraus aufrufe und explizit die Übergabeparameter bzw. deren Stellenwert innerhalb des Arrays angebe funktioniert es auch nicht. :confused:

Hallo community, folgendes Problem: ich lasse mir eine Tabelle mit Formuarfeldern dynamisch erstellen. Jedes Formularfeld bekommt über eine Schleife dynamische einen Index zugewiesen. Nach ausfüllen des Formulares werden die Werte über <?echo $SERVER[''PHP_SELF]?> an die index.php übergeben. Nun werden die Werte der einzelnen Felder über eine for - Schleife ausgelesen und entsprechenden arrays zugewiesen. Bis hierhehr funktioniert alles einwandfrei. Die Arrays erhalten alle Werte. Woran es scheitert ist die Übergabe der einzelnen Arrays an eine Funktion in einer mit include, eingebundenen Datei. Es will einfach nichts in der Funktion ankommen. Hier mal ein Auszug aus dem Quellcode der index.php (am Beginn der Anweisung wird lediglich überprüft ob die erste Zeile des Formulares ausgefüllt wurde:) include("./database.php"); include("./inc/head.html"); include("./inc/menu.php"); include("./methoden.php"); if($_POST['anzahl']&&$_POST['name1']&&$_POST['vorname1']&&$_POST['adresse1']&&$_POST['geb_dat1']&&$_POST['reg_nummer1'] &&$_POST['pruef_datum1']&&$_POST['pruefer_nummer1']&&$_POST['pruefer_name1']&&$_POST['gruppe1']){ $count=$_POST['anzahl']; $i=1; for($i=1; $i<=$count;$i++){ $name[$i]=$_POST[name.$i]; $vorname[$i]=$_POST[vorname.$i]; $adresse[$i]=$_POST[adresse.$i]; $geb_dat[$i]=$_POST[geb_dat.$i]; $reg_nummer[$i]=$_POST[reg_nummer.$i]; $pruef_datum[$i]=$_POST[pruef_datum.$i]; $pruefer_nummer[$i]=$_POST[pruefer_nummer.$i]; $pruefer_name[$i]=$_POST[pruefer_name.$i]; $gruppe[$i]=$_POST[gruppe.$i]; } insert_plan($count, $name, $vorname, $adresse, $geb_dat, $reg_nummer, $pruef_datum, $pruefer_nummer, $pruefer_name[$i], $gruppe); exit; } Vielen Dank für eure Hilfe

Hallo zusammen, ich bin Anwendungsentwickler, mittlerweile im zweiten Ausbildungsjahr, und habe eine ganz hervorragende Aufgabe über die Ferien bekommen. Also besser gesagt, die gesamte Klasse diese Aufgabe bekommen. Da wir aber alle recht ratlos sind, haben wir uns dazu entschlossen die Aufgabenstellung mal in einigen Foren zu posten. Hier erstmal die Aufgabenstellung: ---------------------------------------------------------------------- Office / Excel Makros und Sicherheit Benotete Hausaufgabe 1.Aufgabe: Warum können Office – Makros gefährlich werden, und welche Schäden können dadurch angerichtet werden? Wie können Makros in ein System gelangen? Nennen Sie Beispiele zu schädlichen Makros aus der Vergangenheit und Gegenwart. Wie kann man sich dagegen schützen? 2.Aufgabe: Suchen Sie zwei sinnvolle Anwendungen für Excel – Makros aus dem privaten oder betrieblichen Bereich, die mit dem Makro – Recorder aufgezeichnet werden können. Fügen Sie die von Ihnen kommentierten Quelltexte bei. ------------------------------------------------------------------ Nun ja, die erste Aufgabe war innerhalb kürzester Zeit beantwortet und die zweite scheint mir zu trivial zu sein. Betonung liegt auf dem Wort Makrorekorder! In meinen Augen kann man mit dem Teil nicht viel anfangen, da Kontrollstrukturen etc. nicht aufgezeichnet werden können. Ein Skript in VBA zu schreiben und zu kommentieren ist nicht das Problem, dass wäre schon längst erledigt wenn die Aufgabenstellung es gefordert hätte. Aber was kann man den sinnvolles mit dem Makrorekorder aufzeichnen? Mal abgesehen von der Automatisierung irgendwelchen Kopiervorgänge oder dem Importieren von Webinhalten? Ich / Wir bitten euch um den ein oder anderen Ratschlag. Danke schonmal für die Antworten