ich habe auf meiner Userform ein Listview mit Daten.
Ich möchte je nach Auswahl eines oder mehrere Einträge, diese in eine EMail als Anhang bringen. In der 3 Spalte ist der komplette Pfad der Datei abgelegt. Ich bringe es leider nicht hin. In diesem Fall auf dem Bild müssten der Mail also das 2. und 4. Dokument angehangen werden...
Könnte mir bitte jemand helfen?
Danke
Jack
Private Sub cmdEMail_Click()
Dim Anhang
If Me.lstFiles.SelectedItem Is Nothing Then
MsgBox "Bitte markieren Sie die Anhänge, die versendet werden sollen", vbInformation, "E-Mailversand vorbereiten"
Exit Sub
ElseIf Me.lstFiles.ListItems.Item(i).Selected Then
' MsgBox Me.lstFiles.ListItems.Item(i).Text
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
.To = "mailadresse@domain.tld"
.Subject = "Betreff "
With Me.lstFiles
For Anhang = 0 To .ListItems.Count - 1
If .SelectedItem.Selected(Anhang) = True Then
.Attachments.Add Anhang
End If
Next Anhang
End With
.Body = "Text eingeben"
.Display
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
End If
End Sub