Hallo Ihr,

hoffentlich könnt ihr mir bei folgendem Problem helfen:

Bislang habe ich in einem ausgeblendeten Tabellenblatt die Adressaten einer Serienmail aufgeführt. Nun will ich diesen Verteiler in einer seperaten Datei haben, um ihn nicht jedesmal zu mailen. Unten seht ihr, wie es mit dem Zugriff auf das ausgeblendete Tabellenblatt klappt.

Frage:

Wie muß ich das Makro umbauen, damit der Verteiler aus der Datei: "Verteiler" im Laufwerk C: gefüllt wird


allerbesten Dank

Arend

Dim ob, mailitem As Object
Set ob = CreateObject("Outlook.application")
Set mailitem = ob.createItem(0)
With mailitem
.Subject = "verkäufe 2002"
.body = ActiveWorkbook.Worksheets("Verteiler").Range("d3").Value & Chr(13) _
& Chr(13) & ActiveWorkbook.Worksheets("Verteiler").Range("d5").Value
.To = ActiveWorkbook.Worksheets("Verteiler").Range("a3").Value
.cc = ActiveWorkbook.Worksheets("Verteiler").Range("a4").Value
.readreceiptrequested = True
.attachments.Add "c:\Verkauf.xls"
.display