Bestimmten Abschnitt versenden.Mit Outlook
05.04.2006 15:23:36
Heinz H
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
Anzeige