Hallo!
> Der Code wurde schon f�r Outlook 2000 geschrieben, ist
> ja extra gemacht wurden... er bringt keine Fehlermeldung,
> nein.
Es fehlt aber die Verkn�pfung der Prozedur mit dem Event. In der MSDN
steht das so drin (VBA):
Dim With Events otl as Outlook.Application
Set otl = CreateObject("Outlook.Application")
Private Sub otl_NewMail()
... jetzt kommt Deine NewMail-Prozedur ...
End Sub
Steht alles in der MSDN beschrieben und auch im Handbuch zu Office
Developer.
Freundliche Gr��e
Joachim van de Bruck
>
> 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
| [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
