Access-o-Mania

Office-Forum => Microsoft Excel => Thema gestartet von: Pergus am Juli 03, 2018, 17:18:44

Titel: Explorer-Fenster mit vorgegebenem variablen Pfad und Datei in Email-Anlage
Beitrag von: Pergus am Juli 03, 2018, 17:18:44
Hallo Excel-Freunde,

ich versuche schon seit Tagen folgendes Problem zu lösen:

Ich möchte aus Excel heraus in VBA ein Explorer-Fenster mit variablem Pfad (z.B.: "C:\Test\Jahr", wobei Jahr das aktuelle Jahr ist) öffnen
und der Benutzer wählt eine, notfalls auch mehrere PDF-Dateien aus (also eine Art Multiselect)
die dann als Anlage in eine neue Email-Nachricht eingefügt wird.
Als Betreff soll dann auch der/die Name/n der ausgewählten Datei/en stehen.

Weiß wer wie man das macht???

Vielen Dank im Voraus!

Lg aus Südtirol
Gustav
Titel: Re: Explorer-Fenster mit vorgegebenem variablen Pfad und Datei in Email-Anlage
Beitrag von: Beaker s.a. am Juli 03, 2018, 18:27:03
Hallo Gustav,
Das macht man mit dem FileSystemObject.
Suche danach in der OH oder bemühe Google.
Falls du nicht weiterkommst meldest du dich wieder. Dazu solltest
du aber auch hier im Forum schon was finden.
gruss ekkehard
Titel: Re: Explorer-Fenster mit vorgegebenem variablen Pfad und Datei in Email-Anlage
Beitrag von: Lachtaube am Juli 04, 2018, 01:34:37
Man könnte einen Auswahl-Dialog dazu verwenden.   Dim f, v

   v = Application.GetOpenFilename(FileFilter:="Pdf-Dateien (*.pdf),*.pdf", _
                                   MultiSelect:=True)
   If IsArray(v) Then
      For Each f In v
         Debug.Print f   'weiter verarbeiten, z.B. als Mail-Attachment
      Next
   Else
      'nichts ausgewählt
   End If
Titel: Re: Explorer-Fenster mit vorgegebenem variablen Pfad und Datei in Email-Anlage
Beitrag von: Pergus am Juli 04, 2018, 10:08:32
Vielen Dank Ekkehard und Lachtaube,

das bringt mich schon ein ganzes Stück weiter.

@Ekkehard:

Ich habe viele Möglichkeiten in Google gefunden, aber keine hat das getan was ich eigentlich bräuchte.
Die eine machte zwar den Explorer-Fenster auf, ließ sich aber nicht in die Anlage der Email einfügen (waren auch zwei Varianten mit Application.FileDialog, eine mit (msoFileDialogFilePicker) und eine andere mit (msoFileDialogOpen))
Eine andere hätte sollen die Datei in die Anlage einfügen, kam aber ne Fehlermeldung
Dann wieder eine Variante mit Auswahl-Dialog, doch auch da keine Angabe wie man einen bestimmten Pfad öffnen kann
und und und...
Grund wieso ich mich an dieses Forum wende, doch immer nur dann, wenn ich nicht mehr weiter weiß...
Hier wurde mir auch meistens und unkompliziert geholfen, dafür ein herzliches Dankeschön an jeden einzelnen von Euch!!!  8)

@Lachtaube:

Hätte bitte noch folgende Fragen...

Meine Codezeilen gleichen einem Roman während Du das in wenigen Zeilen schreibst und dabei das Ziel erreichst, im Gegensatz zu mir  :'(
Ich denke wohl zu kompliziert...

Vielen Dank schon mal!

Lg aus Südtirol
Gustav
Titel: Re: Explorer-Fenster mit vorgegebenem variablen Pfad und Datei in Email-Anlage
Beitrag von: Lachtaube am Juli 04, 2018, 10:37:30
Setze eine entsprechende ChDir-Anweisung (https://msdn.microsoft.com/de-de/vba/language-reference-vba/articles/chdir-statement) vor das Öffnen des Dialogs.
Im Speziellen musst Du Dich mit dem Objektmodell von Outlook , das ich nicht verwende, auseinandersetzen, um die Dateien als Anhang in eine Mail zu befördern. Der Rest besteht dann aus Parsen des Dateipfads.
Titel: Re: Explorer-Fenster mit vorgegebenem variablen Pfad und Datei in Email-Anlage
Beitrag von: Beaker s.a. am Juli 04, 2018, 17:31:07
Mit Outlook kann ich leider auch nicht weiterhelfen.
Titel: Re: Explorer-Fenster mit vorgegebenem variablen Pfad und Datei in Email-Anlage
Beitrag von: DF6GL am Juli 04, 2018, 21:28:37
Hallo,

zum Versenden von Email wäre das CDO-Objektmodell geeignet..


Siehe z. B.:

https://codekabinett.com/rdumps.php?Lang=1&targetDoc=email-versenden-access-vba-cdo