Office: Dateiauswahl-Fenster in Outlook per Makro öffnen

Hallo,

ich habe in VBA einen Code zusammengestellt, der durch Klick eines Buttons in Excel eine neue Mail in Outlook generiert. Nun würde ich gerne bei der Erstellung dieser Mail, dass mir das Makro auch gleich den Outlook-Befehl für "Datei einfügen" ausführt.

Ich möchte nicht, dass automatisch schon eine Datei angehängt wird, nur dass in der Outlook-Mail das Fenster für die Datei-Auswahl geöffnet wird.

Kann mir hierbei einer weiterhelfen?

Vielen Dank und sonnige Grüße

moonr


Code:

:)

 

Hallo moonr

Code:

 

Hallo woerny01,

vielen Dank. Leider bin ich kein Programmierer und steh mit dem Code etwas auf dem Schlauch.

Ich habe den Befehl "Mail.Attachments.Add AttachPfadzurDatei" ganz am Ende reingemacht, aber da gab es bei mir jetzt eine Fehlermeldung.

Könntest du mir sagen wie der komplette Code aussehen würde?

 

Sorry mein Fehler *Smilie

Code:

 

Hallo moonr,

Du kannst das FileDialog-Objekt nutzen:
http://www.ms-office-forum.de/forum/...69&postcount=3

Grüße
EarlFred

 

Vielen Dank woerny01. Ich habe einen Pfad angegeben, leider kriege ich aber bei der Ausführung des Codes eine Fehlermeldung.

"Automatisierungsfehler
Das System kann die angegebene Datei nicht finden."

Auch wenn dies jetzt geklappt hätte. Wäre bei deinem Vorschlag es doch so, dass er gleich eine Datei bei der Mail anhängt.

Ich wollte ja,dass er bei der Erstellung der Mail nur das Dateiauswahlfenster für den Anhang öffnet, aber noch keine Datei als Anlage speichert.

 

\@EarlFred:
Vielen Dank! Den Code habe ich auch gerade ausprobiert, allerdings öffnet er ein Durchsuchen-Fenster und nicht das Dateiauswahl-Fenster für die Anlagen.
Das bringt mir leider nichts.

 

\@woerny01,

der Code hat doch geklappt. Aber wie ich es schon vermutet habe, hängt er bei diesem Befehl gleich die Datei an.

 

Durch weitere Recherchen im Netz habe ich einen passenden Code gefunden, den ich euch nicht vorenthalten möchte.

Code: