Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bestimmten Abschnitt versenden.Mit Outlook

Bestimmten Abschnitt versenden.Mit Outlook
05.04.2006 15:23:36
Heinz H
Hallo Leute
Habe untenstehenden Code,der mir ein Tab.Blatt in HTML umwandelt und per Outlook
versendet.
Könnte man das aber auf einen bestimmten Zellbereich begrenzen?
Zb.A1:C28
Weiters könnte man den Code auch so abändern das er das Mail an weitere Personen in CC versendet,die Mailadressen stehen in D2:D30 ???
Könnte mir Bitte da jemand weiterhelfen ??
Danke & Gruß Heinz

Sub mailversenden()
Dim outl As Object
Dim Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
With Mail
.Display
.Subject = "Speiseplan  pro mente"
.To = "heinz@gmx.de"
Sheets("Speiseplan-Mail").Activate
ActiveSheet.UsedRange.Copy
'.Body = "hier die gewünschte tabelle"
SendKeys "{Tab 3}^{End}~~^v"
End With
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmten Abschnitt versenden.Mit Outlook
06.04.2006 14:46:51
Heinz H
Hallo Leute
Herr Gerhard S hat mir per Mail das Makro zukommen lassen.
Danke
Gruß Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige