email versenden die letzte

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

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
Bild


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


Bild


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


Bild


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



Bild


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


Bild


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


 Bild

Beiträge aus den Excel-Beispielen zum Thema " email versenden die letzte"