PDA

Vollständige Version anzeigen : Dateianhang im Textfeld auflisten


Charly B.
23.09.2003, 09:41
Hallo

gibt es eine Möglichkeit im Outlook 2002, das die Dateinamen von den Dateien die ich einem Mail hinzufüge, im Textfenster automatisch aufgelistet werden (wenn möglich mit der Dateigröße).


Charly

MRR
23.09.2003, 16:03
Ja, gibt es. Folgendes Modul für "DieseOutlookSitzung" erstellen:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim att As Attachment
Dim strDateien As String
Dim i As Attachment
For Each att In Item.Attachments
strDateien = strDateien & att.DisplayName & vbCr
Next
Item.Body = Item.Body & vbCr & strDateien
End Sub

War es das?