EMail an Verteilerliste
04.10.2006 14:15:02
Martin
ich versuche verzweifelt nach einer Möglichkeit eine EMail aus Excel heraus an eine Verteilerliste in Outlook zu schicken. Die Verteilerliste ist schon erstellt und heißt "Bestandsveränderung".
Private Sub CommandButton21_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim Text As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Text = "Sehr geehrte Kollegen und Kolleginnen," & vbNewLine
Text = Text & vbNewLine
Text = Text & "hiermit melden wir einen Zugang auf der Station A-West" & vbNewLine
Text = Text & vbNewLine
Text = Text & vbNewLine
Text = Text & "Name: " & Sheets("Mail").Range("A1").Text & Format(", ") & Sheets("Mail").Range("B1").Text & vbNewLine
Text = Text & vbNewLine
Text = Text & "Geburtsdatum: " & Sheets("Mail").Range("F1").Text & vbNewLine
Text = Text & vbNewLine
Text = Text & "Zugang am: " & Sheets("Mail").Range("E1") & " von: " & Sheets("Mail").Range("D1") & vbNewLine
Text = Text & vbNewLine
Text = Text & "Kostform: " & Sheets("Mail").Range("H1").Text & vbNewLine
Text = Text & vbNewLine
Text = Text & "Die Unterbringung erfolgt auf der S-Station, Haftraum " & Sheets("Mail").Range("G1").Text & vbNewLine
Text = Text & vbNewLine
Text = Text & vbNewLine
Text = Text & "Neuer Bestand: " & Sheets("Bestand").Range("F14").Text & vbNewLine
Text = Text & vbNewLine
Text = Text & vbNewLine
Text = Text & "mit freundlichen Grüssen" & vbNewLine
Text = Text & vbNewLine
Text = Text & Sheets("Mail").Range("I1").Text & vbNewLine
Text = Text & Sheets("Mail").Range("J1").Text & vbNewLine
Text = Text & vbNewLine
Text = Text & "Station A-West"
With OutMail
.To = " ------ Hier soll die Verteilerliste stehen ------------ "
.CC = ""
.BCC = ""
.Subject = "Zugang - Station A-West"
.Body = Text
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Da die Verteilerliste recht lang ist und sich häufig ändert, ist das Verschicken an die einzelnen Personen nicht sinnvoll. Gibt es einen anderen Weg?
Bin dankbar für eure Hilfe
Grüße aus dem Cafe Rechteck in Celle