email versenden die letzte
21.09.2003 08:13:08
jhaustein
folgendes prob
ich habe folgendes script
Sub AktiveTabelleAlsEMailVersenden()
Dim Empfänger As String
Dim iMax As String
iMax = Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Row
For i = 1 To iMax
Empfänger = Sheets("Tabelle1").Cells(i, 1).Value
Sheets("Tabelle2").Activate
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs ActiveSheet.Name & ".xls"
ActiveWorkbook.SendMail Recipients:=Empfänger, _
Subject:="SerienMail"
ActiveWorkbook.Close savechanges:=False
Next
End Sub
dieses verschickt allerdings nur eine tabelle
wie bekomme ich es hin, dass es nur einen bestimmten zellbereich versendet und dann auch wirklich als plaintext nur einfügt und nicht die ganze tab bversendet
;-) jörg