Hilfe, benötige Code-Anpassung
28.11.2023 10:26:54
Hilfesuchend
ich habe eine Excel-Tabelle in welcher in der Spalte "A" E-Mail-Adressen stehen und in den Spalten daneben die Anhänge (eine Zelle; ein Anhang).
Mein Ziel ist es mit Hilfe von VBA an die E-Mail-Adressen eine Mail zu versenden mit den jeweiligen Anhängen.
Habe im Internet folgenden Code dafür gefunden:
Sub SendEmailsWithAttachments()
Dim OutApp As Object
Dim OutMail As Object
Dim ws As Worksheet
Dim cell As Range
Dim emailAddr As String
Dim attachPath As String ' Initialisiere Outlook
Set OutApp = CreateObject("Outlook.Application")
Set ws = Worksheets("Sheet1") ' Namen des Arbeitsblatts anpassen' Durchlaufe alle Zeilen in Spalte A
For Each cell In ws.Columns("A").Cells.SpecialCells(xlCellTypeConstants)
' E-Mail-Adresse und Anhangspfad lesen
emailAddr = cell.Value
attachPath = cell.Offset(0, 1).Value ' E-Mail erstellen
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = emailAddr
.Subject = "Ihr Betreff hier" ' Betreff eingeben
.Body = "Ihr Text hier" ' E-Mail-Text eingeben
.Attachments.Add attachPath ' Anhang hinzufügen
.Display ' E-Mail senden
End With
' Ressourcen freigeben
Set OutMail = Nothing
Next cell
' Ressourcen freigeben
Set OutApp = Nothing
End Sub
Das Problem ist folgender:
Mit diesem Code kann ich nur 1 Anhang versenden, doch ich würde gerne, dass er alle die Anhänge die sich neben der Mail-Adresse befinden übernimmt.
Nur zur Info: Kenne mich überhaupt nicht mit VBA oder Code-lesen aus.
Falls jemand eine Idee hätte wär das super.
Danke, danke.
LG