RoutingSlip
22.04.2009 16:04:47
H.
ich verschicke per VBA regelmäßig eine Excel-Datei über den RoutingSlip-Befehl. Jetzt möchte ich in den Nachrichtentext der Email einige Informationen aus der Excel-Datei einfügen. Diese befinden sich z. B. im Zellbereich A1:A10.
Wenn ich bei dem Parameter .Message = Workbooks("Datei.xls").Sheets("Tabelle1").Range("A1:A10") eingebe, erhalte ich in der Email nur den Inhalt der letzten Zelle (A10).
Wenn ich alle Zellen einzeln angebe (.Message = Workbooks("Datei.xls").Sheets("Tabelle1").Range("A1") & vbCrLf & Workbooks("Datei.xls").Sheets("Tabelle1").Range("A2") [...]) klappt das bis zu einer bestimmten Anzahl an Zellen, dann erhalte ich einen Fehler (LZF 1004) - wahrscheinlich zu viele Argumente?
Wie kann ich diese Probleme umgehen? Vielleicht über einen ganz anderen Ansatz? Wie gesagt: VBA sehr bescheiden...
Vielen Dank für Eure Hilfe!