Mail Adressen aus einer Anzahl variabler Zellen

Hallo zusammen,
ich brauche mal wieder Hilfe.
Ich habe eine Funktion, in der eine Mail ohne Empfänger erstellt wird.
Nun möchte ich hier die Mail Empfänger automatisch auslesen lassen.
Die Mailempfänger stehen auf dem Tabellenblatt "Data" in den Zellen A2:A60. In jeder Zelle ein Empfänger.
Es ist auch möglich, dass hier nur Mail Adressen bis Zeile 20 drin sind. Die Anzahl ist variabel.
Wie bekomme ich es in meinen Code eingebaut? Ich hatte es so versucht:
.To = Sheets("Data").Range("A2:A60").Text
Da erhalte ich allerdings einen Laufzeitfehler.
Könnte man in diesem Zuge auch noch überprüfen, ob sich in den Zellen A2:A60 doppelte Einträge befinden und diese trotzdem nur einmal mit in die Empfänger der Mail mit aufzunehmen?
Danke für die Hilfe
Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim iZeile As Integer Dim strMailTo As String With Worksheets("Data") For iZeile = 2 To 60 If WorksheetFunction.CountIf(.Range("A2:A" & iZeile), .Cells(iZeile, 1)) = 1 And _ .Cells(iZeile, 1) "" Then If strMailTo = "" Then strMailTo = .Cells(iZeile, 1) Else strMailTo = strMailTo & ";" & .Cells(iZeile, 1) End If End If Next iZeile End With MsgBox strMailTo End Sub

Hi zusammen,
@Chris: gefällt mir; ich hätte viel zu umständlich gedacht ...
Ich habe leider kein Outlook, aber ist es nicht so, daß bei .To= vieleAdressen alle Adressen bei allen Adressaten angezeigt werden? Wenn, dann besser BCC oder vielleicht alle mails einzeln verschicken...
Das ließe sich in Chris' Code integrieren:

Option Explicit
Sub mail_verschicken(adresse As String)
MsgBox "Hier Dein Code für mail an: " & adresse
End Sub
Sub t()
Dim iZeile As Integer
Dim strMailTo As String
With Worksheets("Data")
For iZeile = 2 To 60
If WorksheetFunction.CountIf(.Range("A2:A" & iZeile), .Cells(iZeile, 1)) = 1 And _
.Cells(iZeile, 1)  "" Then
mail_verschicken (.Cells(iZeile, 1))
'        If strMailTo = "" Then
'            strMailTo = .Cells(iZeile, 1)
'        Else
'            strMailTo = strMailTo & ";" & .Cells(iZeile, 1)
'        End If
End If
Next iZeile
End With
End Sub

Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Mail Adressen aus einer Anzahl variabler Zellen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mail Adressen aus einer Anzahl variabler Zellen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread