Mail
28.10.2003 20:19:49
arend
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