Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blatt nicht als Anlage sondern direkt per Mail

Forumthread: Blatt nicht als Anlage sondern direkt per Mail

Blatt nicht als Anlage sondern direkt per Mail
02.07.2008 10:27:16
Tom
Hallo,
habe eigentlich genau das richtige im Archiv gefunden, möchte es nun aber erweitern:
Ich würde gerne bei der Funktion
.Introduction = "Materialanforderung" & Chr(13) & "Danke Holger"
folgendes ändern: Anstatt Holger möchte ich als Variable die Zelle B1 haben.
Ebenso hier .Item.Subject = "Materialanforderung" die Variable Zelle B1.
Ist dies möglich?
Gruß und danke vorab
TOM
Archivbeitrag:
Hallo Werner
So verschicke ich meine Materialanforderung an meinen Chef.
lr = Cells(Rows.Count, 3).End(xlUp).Row ' lr ist die letzte beschriebene Zelle
ActiveSheet.Range(Cells(1, 1), Cells(lr, 9)).Select 'Druckbereich festlegen
'Das anzeigen der Envelope Commandbar ist unabdingbar ( nicht von mir funktioniert aber )
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = "Materialanforderung" & Chr(13) & "Danke Holger"
.Item.To = "Deine Addresse@server.de" 'hier EMail-Addresse eintragen
.Item.Subject = "Materialanforderung"
End With
Gruß Holger

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt nicht als Anlage sondern direkt per Mail
02.07.2008 12:09:00
Hoffi
Hallo,
.Introduction = [B1].Value
.Item.Subject = [B1].Value
Grüße
Hoffi

AW: Blatt nicht als Anlage sondern direkt per Mail
02.07.2008 13:47:00
Tom
Hallo Hoffi,
funktioniert prima - danke.
Kann ich auch eine Fragebox dazwischenschalten, an welche Mailadresse es gehen soll (evtl. 3 zur Auswahl)?
Zudem, wie lege ich den Druckbereich von A1:M38 fest?
Wäre super, wenn Du mir hierzu nochmal helfen könntest - VBA eben nur mit Recorder ... :-(
Gruß und danke vorab
TOM

Anzeige
AW: Blatt nicht als Anlage sondern direkt per Mail
02.07.2008 15:46:00
Hoffi
Hallo,
die Mailadresse würde ich vorher abfragen, über eine Inputbox:
Dim strMailAddi As String
strMailAddi = InputBox("Bitte Mailadresse eingeben:", "Achtung Eingabe", "meine.Addresse@meineDomain.de")
den Druckbereich legst Du so fest:
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$38"
Grüße
Hoffi

Anzeige
AW: Blatt nicht als Anlage sondern direkt per Mail
02.07.2008 15:55:04
Tom
Hallo Hoffi,
1. Druckbereich: es wird dennoch das ganze Blatt gesendet ...
2. Wie schaffe ich eine Leerstelle zwischen (2.Zeile von unten)
.Item.Subject = "Wochenkontrolle GP" & "" & [B1].Value & "" & [C1].Value
Hier der komplette Code:

Sub perMail()
lr = Cells(Rows.Count, 3).End(xlUp).Row ' lr ist die letzte beschriebene Zelle
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$38"
'Druckbereich festlegen
'Das anzeigen der Envelope Commandbar ist unabdingbar ( nicht von mir funktioniert aber )
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = "Anbei die Wochenkontrolle." & Chr(13) & "Gruß" & Chr(13) & [B1].Value
.Item.To = "test@test.de" 'hier EMail-Adresse eintragen
.Item.Subject = "Wochenkontrolle GP" & "" & [B1].Value & "" & [C1].Value
End With
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 Beiträge
Tabelle per Mail senden
And

Hallo,
Habe aus dem Archiv folgenden Code:
Sub Blattsenden() Sheets("Tabelle1").Copy On Error Resume Next ActiveWorkbook.SendMail Recipients:="Otto@gmx.de", Subject:="Testmail" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True If Err.Number > 0 T...
19.03.2009 11:01:22
Thread-ID: 1061745
9 Beiträge
Anzeige
excel-datei per email versenden
meixner

Hallo zusammen,
Habe ein Makro, dass eine Excel - Datei nach Aufmachen aktualisiert und dann per Email versendet, wenn ich dies anklicke.
Möchte, dass um eine bestimmte Uhrzeit z.B. 17.00 Uhr die Datei automatisch sich aktualisiert und versendet wird.
Habt ihr eine Idee?
wsZiel....
25.03.2009 18:13:18
Thread-ID: 1063913
2 Beiträge
Warnung wenn Tabelle per E-mail verschickt
Deister

Hallo,
Ich verschicke mit folgendem Code eine Seite per E-mail
Sheets("Tabelle1").Select
ActiveWorkbook.SendMail Recipients:="Hier die E-Mail Adresse eintragen"
Dann bekomme ich aber folgende Warnung:
A program is trying to automatically send e-mail on your behalf.
Do yo...
24.04.2009 16:29:13
Thread-ID: 1071009
20 Beiträge
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 Beiträge
Anzeige
Tabellenbereich per Email
Matthias

Hallo,
ich bin auf der Suche nach einer Möglichkeit, einen Tabellenbereich per Email zu versenden und zwar direkt in den Textbereich z.B. als Grafik und NICHT als Anhang.
Leider kann ich dazu nix im Netz finden.
Gibt es diese Möglichkeit ? und wenn ja, wie geht sie ?
Vielen Dank...
22.06.2009 12:49:18
Thread-ID: 1083437
4 Beiträge
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
Tabelle in Intervallen per Mail verschicken
Universal

N`Abend zusammen! :-)
Ich würde gern meine Arbeit etwas erleichtern ... meine Kollegen und ich haben eine Excel-Tabelle, die jede Stunde mit Daten gefüllt wird. Wie ich Mails per VBA verschicken kann weiss ich. Leider fehlt mir aber das Wissen um die Tabelle in einem stündlichen Intervall a...
21.12.2009 23:03:13
Thread-ID: 1125480
7 Beiträge
Tabelle per Mail versenden
liese

Hallo,
habe folgendes Anliegen.
Ich möchte gerne, wenn eine Mappe geöffnet wird,
eine bestimmte Tabelle im Hintergrund mit dem
Standardmailprogramm ohne Rückfragen versenden.
Wie geht das.
Danke schon mal für Hilfe.
Viele Grüsse
Anneliese
01.01.1970 00:00:00
Thread-ID: 1139930
37 Beiträge
Anzeige
Copoe per Mail versenden
Paul

Hallo Excel-Freunde,
folgenden Code habe ich gebastelt um, gestartet über einen Button auf Sheet 1 eine Copy von Format und Werte des Sheets "Übersicht zu erstellen und diese dann frei von Macro's an die im Feld "MailAdd" stehenden Empfänfer zu senden
Das funktioniert soweit auch, nur k...
25.02.2010 10:04:02
Thread-ID: 1141285
2 Beiträge
x-beliebiege Datei als Hyperlink in E-Mail zeigen
Urmila

Hallo alle zusammen,
ich hoffe ihr könnt mir weiterhelfen.
Ich würde gerne in einer E-Mail nur einen Hyperlink zu einer Datei einfügen.
Das Problem ist nur, die Dateieindung kann immer anders sein, also doc, pdf, xls etc.
Pfad ist immer "C:\Test\", Dateiname steht in Spalte A, a...
08.04.2010 15:45:38
Thread-ID: 1150644
3 Beiträge
Anzeige
Tabelle per Mail - Warnmeldung umgehen
F.

Hallo zusammen
Ich möchte ein Tabellenblatt an eine festgelegte Adresse senden lassen.
Dabei sollte die im Betreff der Inhalt der Zelle C4 und "test" stehen. Zudem sollte
die Warnmeldung umgangen werden. Einzeln klappte das recht gut. Aber nie zusammen.
Im Code unten fehlt ua....
15.04.2010 15:05:50
Thread-ID: 1152005
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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