PDA

Vollständige Version anzeigen : mehrere Anhänge im Betreff anzeigen


DTaler
08.08.2017, 16:12
Hallo
Ich habe einen Code der mir einen vorgegebenen Text ( " Anfrage") und den Anhang "PDF" im Betreff anzeigt.
Wenn ich nur einen Anhang beifüge funktioniert es. Wie muss ich den Code ändern wenn ich mehrere pdfs im Anhang habe und diese nacheinander im Betreff erscheinen sollen ?

Für Hilfe bin ich unheimlich dankbar


Private Sub Inspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
Set Mail = Inspector.CurrentItem
End If
End Sub

Private Sub Mail_AttachmentAdd(ByVal Attachment As Attachment)


Mail.Subject = "Anfrage" & " " & Attachment.DisplayName


End Sub

lg Angelika

markusxy
08.08.2017, 16:42
Eine Möglichkeit:


Private Sub Mail_AttachmentAdd(ByVal Attachment As Attachment)

If Len(Mail.Subject) Then
Mail.Subject = Mail.Subject & " " & Attachment.DisplayName
Else
Mail.Subject = "Anfrage" & " " & Attachment.DisplayName
End If


End Sub

Hier werte ich aus, ob ein Betreff existiert.
Alternativ könnte man auch Mail.Attachments.count auswerten.

DTaler
09.08.2017, 09:48
Hallo Makusxy

vielen lieben Dank es funktioniert.

Angelika