If MobjIt(Me.Maillist.SelectedIndex + 1).Attachments.Count > 0 Then ' es wird auf Anhänge geprüft Form2.Text5.Text = "" For zaehler = 1 To MobjIt(Me.Maillist.SelectedIndex + 1).Attachments.Count Form2.Text5.Text = ((Form2.Text5.Text & "<").ToString + (MobjIt(Me.Maillist.SelectedIndex + 1).Attachments.Item(zaehler).ToString + ">")).ToString ' die Namen der Anhänge werden ' eingefügt Next zaehler Else Form2.Text5.Text = "Keine Anhänge" ' keine Anhänge da End If
MobjIt is like this Dim MobjIt As Microsoft.Office.Interop.Outlook.Items
line "Form2.Text5.Text = ((Form2.Text5.Text & "<").ToString + (MobjIt(Me.Maillist.SelectedIndex + 1).Attachments.Item(zaehler).ToString + ">")).ToString"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)