Excelmappe an automatisch Email-Verteiler senden
14.07.2004 18:02:23
00011011
Sub VVK_Verteilen()
Dim OutApp, Nachricht As Object
Dim Datei As String
Set OutApp = CreateObject("Outlook.Application")
InitializeOutlook = True
Datei = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xxx"
.Subject = "Neue Version stand: " & Date
.Attachments.Add Datei
.Body = "In der Anlage finden Sie die aktuelle Version"
.Send
End With
End Sub
An die Stelle von xxx möchte ich gerne einen Verweis auf eine Excel-Tabellen-Blatt, in welchem sich 10 bis 20 Email-Adressen befinden, an welche die Datei verschickt werden soll.
Wenn ich für xxx nur eine Adresse angebe, funktioniert das auch alles reibungslos, nur wie schaffe ich es, daß ich mehrere Adressen automatisch einlesen kann.
Diverse Versuche mit Variablen etc. haben leider nicht gefruchtet, sodaß ich mich nun an Euch wende.
Für Eure Hilfe wäre ich sehr dankbar!
Gruß aus Köln
Christian
Anzeige