Arbeitsblattausschnitt mailen

Forumthread: 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

AW: Arbeitsblattausschnitt mailen

09.07.2003 14:20:24

Bernd Held
Danke Bernd, aber...

09.07.2003 15:53:59

Claudio
AW: Danke Bernd, aber...

10.07.2003 00:06:19

Gert Seler

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

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)

Forumthread: Arbeitsblattausschnitt mailen

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread