Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
276to280
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsblattausschnitt mailen

Arbeitsblattausschnitt mailen
09.07.2003 14:17:50
Claudio
hallo zusammen, ich hab mir ein arbeitsblatt zur erfassung von geschäftlichen spesen erstellt. für jede kalenderwoche gibt es eine lasche mit den immer gleichen eingabefeldern, sodass ich jederzeit die spesen für irgendeine kalenderwoche nachvollziehen kann. nun ist es so, dass in jeder der 52 laschen in einem ganz bestimmten bereich - sagen wir dem a1:f50 - alle spesen der jeweiligen woche schön aufgelistet werden. genau diesen ausschnitt a1:f50 möchte ich jeweils mailen können.
1. wie geht das?
2. kann ich das ganze sogar so "programmieren", dass ich jeweils einen anderen empfänger nehmen kann?
herzlichen dank im voraus.
claudio

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblattausschnitt mailen
09.07.2003 14:20:24
Bernd Held
Hallo Claudio,
sowas in der Art sollte funktionieren:

Sub BereichAlsEMailVersenden()
Dim s_Empänger As String
Dim s_Titel As String
Dim rng_Bereich As Range
Dim Outl_App As Object
Dim Outl_Mail As Object
s_Empfänger = "machero@aol.com"
s_Kopie = "Held-office@T-Online.de"
s_Titel = "Excel-Bereich als Kopie"
Set rng_Bereich = _
Application.InputBox("Wählen Sie den Bereich aus den versenden möchten", Type:=8)
Range(rng_Bereich.Address).Copy
Set Outl_App = CreateObject("Outlook.Application.10")
Set Outl_Mail = Outl_App.CreateItem(0)
With Outl_Mail
.Subject = s_Titel
.To = s_Empfänger
.Cc = s_Kopie
.Display
SendKeys "{TAB}", True
SendKeys "^{v}", True
'.Send
End With
Application.CutCopyMode = False
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Bücher mit Leseproben(PDF), VBA-Forum und VBA-Schulungen unter: http://held-office.de


Anzeige
Danke Bernd, aber...
09.07.2003 15:53:59
Claudio
... ein kleines Problem hab ich noch. Beim Ausführen des Makros kommt
die Fehlermeldung "Laufzeitfehler 429". Objekterstellung durch
ActiveX-Komponente nicht möglich.
Betroffen ist Zeile:
Set Outl_App = CreateObject("Outlook.Application.10")
Danke nochmals und Gruss
Claudio

AW: Danke Bernd, aber...
10.07.2003 00:06:19
Gert Seler
Hallo Claudio,
ist klar das es an der Zeile hängt !!!
Outlook2000 = 9.0
OutlookXP =10.0 Du arbeitest aber doch mit Office2000 (=9.0)??
mfg
Gert

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige