|
Hallo zusammen.
Habe mich heute zum ersten Mal mit VBA beschäftigt und konnte auch schon einiges zusammenbauen.
Es geht darum:
- Ich habe eine Tabelle, in der jede Zeile für eine E-Mail an eine Person gedacht ist.
- Die E-Mail-Adressen sollen je E-Mail aus den Zellen der Spalte J bezogen und in das BCC eingefügt werden.
- Im Betreff der jeweiligen E-Mail sollen ebenso Daten aus der entsprechenden Zeile gezogen werden.
- Text ist keiner erforderlich.
Habe das nun soweit geschafft, dass dies für die Zeile 2 funktioniert.
Wie bekomme ich das nun hin, dass das auch auf nachfolgende Zeilen angewandt wird?
Leider ändert sich die Anzahl der Zeilen, je nach Fall den ich zu bearbeiten habe, daher müsste auch ein Stop eingebaut werden, wenn keine E-Mail-Adresse in der Excel ist.
Folgendes habe ich bereits, das funktioniert (hald nur auf Zeile 2):
Sub Schaltfläche1_Klicken()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.BCC = Cells(2, "J")
.Subject = "BH-" & Range("F2").Value & " - Sie " & "(" & Range("G2").Value & "." & Range("H2").Value & "." & Range("I2").Value & ")" & " sind hiermit..."
.Body = ""
.Display
End With
End Sub
Kann mit hier bitte jemand weiterhelfen?
Vielen Dank
|