EMail versenden / Empfänger in bestimmten Zellen
20.02.2013 09:22:10
Toumas
ich hatte gestern die Frage unter :
https://www.herber.de/forum/archiv/1300to1304/t1300012.htm
bereits eingestellt.
Mittlerweile habe ich im Netz noch was gefunden und wollte das Makro entsprechend anpassen. Leider nimmt er mir immer wieder nur die erste Zeile für die EMail und fügt die restlichen Zeilen nicht ein. Auch versendet er mir die EMail nicht sofort, sondern macht erst Outlook auf und zeigt mir die Mail an, damit ich diese bestätigen muss. (ich hab auch schon das ' vor dem .send entfernt... aber da verschickt er mir auch keine sofort.)
Da ich, wie gesagt keinen Plan habe von VBA wäre ich für einen Tipp sehr dankbar.
Vielen Dank
Toumas
Sub MailVersenden()
Dim obNachricht As Object
Dim obMail As Object
Dim lngZeile As Long
Dim strBCC As String
' erste Adresse für BCC aus Zelle M9
strBCC = Cells(9, 13)
' in einer Schleife alle Adressen aus Spalte M ab Zeile 2 zu einem String zusammenfassen
For lngZeile = 2 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, _
Rows.Count)
strBCC = strBCC & "; " & Cells(lngZeile, 1)
Next lngZeile
Set obMail = CreateObject("Outlook.Application")
Set obNachricht = obMail.CreateItem(0)
With obNachricht
.To = strBCC ' "Meine@Adresse.de" '