Mailadressen aus einer Tabelle übernehmen!
19.06.2015 14:36:09
Lisa
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
Liebe Grüße Lisa