Mailadressen aus einer Tabelle übernehmen!

Bild

Betrifft: Mailadressen aus einer Tabelle übernehmen!
von: Lisa
Geschrieben am: 19.06.2015 14:36:09

Hallo zusmmen,
ich bin auf der Suche nach einer Möglichkeit in meinem Quellcode zum Emailversand die Adressaten nicht mehr hart zu hinterlegen, sondern sie aus einer Tabelle zu zulesen.
Leider funktioniert es nicht wie gedacht.
Hat hierzu jemand einen Vorschlag wie ich dies umsetzen kann?
Ich habe im Code die Stelle markiert und beschriftet um die es geht!
hier mein Quellcode:

Sub Mail()
Dim C As Range, Bereich As Range
Dim Awf As WorksheetFunction
Set Awf = Application.WorksheetFunction
Set Bereich = Sheets(2).Cells(2, 5)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
If Sheets(1).Cells(1, 16) = "Mail" Then
AWS = Environ("USERPROFILE") & "\" & ThisWorkbook.Name
End If
ThisWorkbook.SaveCopyAs AWS
Application.Visible = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
        .To = "bla.bla@blablagroup.com;bla.blub@blablagroup.com"
'###
'an der Stelle, an der ich die Adressen im Quellcode eingebe, würde ich gern auf 'einen Tabelle  _
'verweisen. zBsp. so:.Sheets(8).Cells(Rows.Count, 1).End(xlUp).Row '
'dies funktioniert leider nicht!
'####
        .Cc = ""
       .Subject = "Bitte um Ergänzung 
" & Sheets(1).Range("D2") & " " & Sheets(1).Range("N3") & " " & Sheets(1).Range("O2") & " " &  _
Sheets(2).Range("E2") & " .xls"
       .Attachments.Add AWS
        .Body = "Hallo zusammen, bitte um Ergänzung!" & vbCrLf & ""
       .Display
      End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Ich bin für jeden Vorschlag/Hilfe dankbar.
Liebe Grüße Lisa

Bild

Betrifft: AW: Mailadressen aus einer Tabelle übernehmen!
von: Rudi Maintaire
Geschrieben am: 19.06.2015 14:48:10
Hallo,
Adressen ab A2

....
with Sheets(8)
strTo = Join(WorksheetFunction.Transpose(.Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))) _
, ";")
end with
.To = strTo
....

Gruß
Rudi

Bild

Betrifft: AW: Mailadressen aus einer Tabelle übernehmen!
von: Lisa
Geschrieben am: 19.06.2015 15:32:03
Hallo Rudi, das ging wirklich schnell.
Vielen herzlichen Dank.
Es funktioniert wie gewünscht.
LG und ein schönes Wochenende.
Lisa

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Mailadressen aus einer Tabelle übernehmen!"