Grosse Mailverteiler per Array an LotusNotes6.5
26.07.2005 15:57:01
B.Reichert
ich habe hier eine kleine Knobelaufgabe, an der ich nun schon eine ganze Weile sitze und einfach nicht weiterkomme.
ich will mit der Methode Objekt.SendMail eine Arbeitsmappe an ca 60 emailadresse verschicken, ohne, dass ich diese explizit in den Code eintragen muss.
Die Adressen stehen im Worksheet(1) in Spalte E untereinander.
mein Code sieht bisher folgendermaßen aus (gekürzt):
Public
Sub mailAnAllgemein()
Dim VerteilerAllgemein(1 To 64)
Worksheets(1).Activate
VerteilerAllgemein(1) = Cells(6, 5).Value
VerteilerAllgemein(2) = Cells(7, 5).Value
VerteilerAllgemein(3) = Cells(8, 5).Value
VerteilerAllgemein(4) = Cells(9, 5).Value
VerteilerAllgemein(5) = Cells(10, 5).Value
VerteilerAllgemein(6) = Cells(11, 5).Value
VerteilerAllgemein(7) = Cells(13, 5).Value
VerteilerAllgemein(8) = Cells(14, 5).Value
VerteilerAllgemein(9) = Cells(15, 5).Value
VerteilerAllgemein(10) = Cells(16, 5).Value
VerteilerAllgemein(11) = Cells(17, 5).Value
VerteilerAllgemein(12) = Cells(18, 5).Value
ActiveWorkbook.SendMail Recipients:=VerteilerAllgemein, Subject:=ActiveWorkbook.Name
End Sub
Soweit klappt das auch hervorragend, allerdings nur mit ein paar emailadressen...
sobald der array eine gewisse anzahl an Elementen hat, wird nurnoch die erste adresse an Notes übergeben...
Kann mir einer der hier anwesenden Gurus sagen, woran das liegt?
Gibt es eine gewisse Anzahl an Adressen, die der Verteiler bei "SendMail" nicht überschreiten darf?
Wenn ich die emailadressen einfach per Copy/Paste in den Verteiler einfüge, gehts es auch einwandfrei...es liegt also nicht am Notes, denk ich mir mal.
Ich würde mich sehr über eine Antwort freuen, denn auch obwohl ich eigentlich auf Knobelaufgaben stehe, bekomme ich solangsam die Kretze, wenn ich diesen Code sehe^^
Danke schonmal