---

Ich soll für meine Projektarbeit eine neue Benutzeroberfläche, bzw. neue Masken in Outlook erstellen, mit denen man neue Kunden erfassen und zusätzliche Daten abfragen, einfügen und speichern kann.

Wo finde ich Material über diese Problemstellung???

Danke für jede Antwort und Hilfestellung

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
hab zwar keine direkte AW, aber vielleicht kommst du hier weiter:
http://vb-tec.de/olmail.htm

------------------
CADworkerDieter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

und nocheiner:
http://www.aboutvb.de/res/bch/resbchmutjlioutlook2000.htm

------------------
CADworkerDieter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Tag Allerseits,
ich kann leider irgendwie keinen Thread aufmachen hier, also muss ich leider diesen hier hijacken.
Ich bin relativ neu zu VB und habe meinem Chef geholfen einen Makro in VB zu finden, mit dem man Anhänge Automatisch auf die HD mit einem Knopfdruck speichern kann.
Funktioniert auch wunderbar, jetzt mal meine kurze Frage: Wie bekomme ich es hin, dass das Makro anstelle des Namens des Senders .SenderName einen Ordner als Verzeichnisnamen zum Abspeichern nimmt aus Outlook.
Hier mal der Code auszug aus dem Makro.
--------------------------------------
..... Element As MailItem
Set Aktiv = Application.ActiveExplorer: Set Auswahl = Aktiv.Selection
For Each Element In Auswahl
    Count = Element.Attachments.Count
    For Zähler = Count To 1 Step -1
        With Element.Attachments.Item(Zähler)
        Pfad = "C:\Anhang\" & Element.SenderName
        If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad
        .SaveAsFile Pfad & "\" & .FileName: .Delete: End With: Next Zähler
    With Element: Select Case .GetInspector.EditorType
--------------------------------------------------------

vielen Dank schonmal, wenn jemand mir helfen kann.
Gruß Sven

------------------
Ridcully: "QUUUÄÄÄÄÄÄÄÄÄSSSSTOOOOOOORRR!!!!"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok das gute alte Trial and Error hat geholfen.

Hier der Code mit dem es dann geht:
-------------------------------------
...
Dim objFolder As MAPIFolder
Set objFolder = Application.ActiveExplorer.CurrentFolder
For Each Element In Auswahl
    Count = Element.Attachments.Count
    For Zähler = Count To 1 Step -1
        With Element.Attachments.Item(Zähler)
        Pfad = "C:\Anhang\" & objFolder
...
----------------------------------------

------------------
Ridcully: "QUUUÄÄÄÄÄÄÄÄÄSSSSTOOOOOOORRR!!!!"

[Diese Nachricht wurde von N24Reporter am 10. Feb. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP