Der Code wurde schon f�r Outlook 2000 geschrieben, ist ja extra gemacht wurden... er bringt keine Fehlermeldung, nein.
Ist denn hier keiner der damit was anfangen kann? Okay... man kann ja mit Access komplette Folder von Outlook importieren, habe ich vorhin ausprobiert - w�rde mir auch mehr m�glichkeiten lassen mit den Daten umzugehen. Aber: wie kann ich denn sowas automatisieren? diesen import? > -----Urspr�ngliche Nachricht----- > Von: Andreas Roth [mailto:[EMAIL PROTECTED]] > Gesendet: Donnerstag, 17. Januar 2002 15:02 > An: AspGerman Kaffeehaus > Betreff: [aspdecoffeehouse] AW: [aspdecoffeehouse] Makro f�r Outlook > > > 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 > | [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
