Leider hab ich bisher nur einmal angefangen was in Outlook VBA zu machen. Dann hat allerdings die Zeit gefehlt und sp�ter wurde das Projekt ganz gecancelt. Was ich mir vorstellen kann, w�re ein Generationskonflikt, d.h. vielleicht wurde das f�r Outlook 97/98 geschrieben. Auf der Office CD m�sste aber auf jeden Fall eine gute Hilfe f�rs Outlook Object und Event Modell sein (Ich mach sowieso immer Vollinstallation), das du in diesem Fall mit dem Code abgleichen kannst und um zu sehen, ob es bei den Objekten hakt.
Gibt ers denn keine Fehlermeldung, sondern funktioniert einfach nicht? Andreas Roth -------------------------------------- [EMAIL PROTECTED] *jetzt mit Chat* http://www.EuphoriasChild.DarkTech.org -------------------------------------- > -----Urspr�ngliche Nachricht----- > Von: Thomas Bandt [mailto:[EMAIL PROTECTED]] > Gesendet: Donnerstag, 17. Januar 2002 13:48 > An: AspGerman Kaffeehaus > Betreff: [aspdecoffeehouse] Makro f�r Outlook > > > Sers, > > ich will E-Mails die in meinem Posteingang landen und > eine Bedingung erf�llen automatisch als .txt Datei in > einem Ordner speichern. > > Folgenden Code hat mir ein netter Mensch schon zusammen- > gebastelt... nur leider funktioniert er nicht. > > W�re super wenn jemand Rat w�sste... > > Private Function Enthaelt(Zeichenkette As String, > DieZeichenkette As > String) As Boolean > Dim i As Long > Enthaelt = False > If Len(Zeichenkette) >= Len(DieZeichenkette) Then > For i = 1 To (Len(Zeichenkette) - Len(DieZeichenkette)) + 1 > If Mid$(Zeichenkette, i, Len(DieZeichenkette)) = > DieZeichenkette Then > Enthaelt = True > Exit For > End If > Next i > End If > End Function > > Private Sub Application_NewMail() > ' On Error Resume Next > > Set myNamespace = Application.GetNamespace("MAPI") > Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox) > Set myItem = myFolder.Items(1) > > Dim Betreff As String, MailText As String > Betreff = myItem.Subject > MailText = myItem.Body > > If Enthaelt(MailText, "=== Customer") Then > Dim Dateiname As String, Ordner As String > Dim Zeile As String > Dim i As Long > Ordner = "d:\data\" > Dateiname = Ordner & Hour(Time) & Minute(Tine) & > Second(Time) & ".txt" > Open Dateiname For Output As #9 > Print #9, MailText; > Close #9 > ' MsgBox "Neue eMail erhalten", vbOKOnly Or vbInformation Or > vbSystemModal, "eMail" > End If > End Sub > > > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv > | Sie k�nnen sich unter folgender URL an- und abmelden: > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
