Office: (Office 2010) Button -> Text in Zwischenablage

\@bittemerken95,
natürlich geht das.
Der folgende Code zeigt den Weg, wie man über einen Filedialog beliebig viele
Dateien anhängen kann.
Den Code musst Du natürlich etwas anpassen.
Private Sub btnEmailMitAnhangSendenAUSGEWÄHLT_Click()
' Menue: Extras -> Verweise Microsoft Office yy.x Object Library
' muss aktiv sein!
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim fDialog As Office.FileDialog 'ab 2007 muss es Office.Filedialog heissen
Dim i As Integer
On Error GoTo Fehler
Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)
'Me!DokuOrdner = "C:\" '====

 

oops...hab vergessen, den Code in Tags zu stellen...sorry

Code: