email versenden die letzte

• email versenden die letzte von jhaustein vom 21.09.2003 08:13:08
  • AW: email versenden die letzte - von Willie am 21.09.2003 10:22:08
    • AW: email versenden die letzte - von jhaustein am 21.09.2003 11:41:30
      • AW: email versenden die letzte - von Willie am 22.09.2003 06:34:12
        • AW: email versenden die letzte - von jhaustein am 22.09.2003 09:33:22
  • AW: email versenden die letzte - von Ramses am 21.09.2003 10:29:27

Betrifft: email versenden die letzte
von: jhaustein
Geschrieben am: 21.09.2003 08:13:08
hallo sonntagsgemeinschaft

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

Betrifft: AW: email versenden die letzte
von: Willie
Geschrieben am: 21.09.2003 10:22:08
Hallo Jörg
Wenn es dir reicht, dann kann ich dir morgen früh ab 6Uhr ein Makro ins Forum stellen,
dass das kann!
Gruß
Willie

Betrifft: AW: email versenden die letzte
von: jhaustein
Geschrieben am: 21.09.2003 11:41:30
das reicht - super vielen dank - ich warte dann in diesem thread

Betrifft: AW: email versenden die letzte
von: Willie
Geschrieben am: 22.09.2003 06:34:12
Guten Morgen Jörg hier wie versprochen! Hast du dir die Seite von Ramses angeschaut
die ist doch auch für dich wie angegossen! oder?
Gruß Willie und noch einen schönen Tag!

Sub BereichAlsEMailVersenden()
Dim Empfänger As String
Dim Bereich As Range
Application.SheetsInNewWorkbook = 1
Empfänger = InputBox("Geben Sie den Empfänger des e-Mails ein!")
If Empfänger = "" Then Exit Sub
Set Bereich = Application.InputBox("Wählen Sie den Bereich aus Sie den versenden möchten", Type:=8)
Range(Bereich.Address).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "TEST.xls"
Application.Dialogs(xlDialogSendMail).Show _
Empfänger, "markierter Bereich"
End Sub

Betrifft: AW: email versenden die letzte
von: jhaustein
Geschrieben am: 22.09.2003 09:33:22
hi und ebenfalls guten morgen

vielen dank für deine mail und deine hilfe -

gruss
jörg

Betrifft: AW: email versenden die letzte
von: Ramses
Geschrieben am: 21.09.2003 10:29:27
Hallo

schau mal hier vorbei

http://www.office.gmxhome.de/_excel_outlook.htm

Sollte dein Bedüfnis abdecken.

Gruss Rainer

Excel-Beispiele zum Thema " email versenden die letzte"
Arbeitsmappe als Email versenden	Arbeitsmappe zeitgesteuert per Email an einen Verteiler versenden
Tabellenblattbereich als Email versenden	Aus Excel heraus eine Email ohne Arbeitsmappenanlage versenden
Eine Tabelle periodisch mit dem Standard-Emailprogramm versenden	Inhalt einer Tabelle periodisch mit Outlook versenden
Excel-Zellinhalte in Worddokument einlesen um per Email versenden	Inhalt von Zelle A1 mit Outlook versenden
In Abhängigkeit von einem Formelwert Mail mit Outlook versenden	Beim Öffnen der Arbeitsmappe Email versenden