Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile als Email senden

Forumthread: Zeile als Email senden

Zeile als Email senden
06.08.2005 17:52:09
Stan
Hallo Excel Freunde!
Ich will aus einer Excel Datei (Besprechungen.xls) per Button
einen E-Mail schicken der beinhaltet nur eine Zeile
aus einer Adressen.xls Datei.
In der Zelle F6 Besprechungen.xls steht immer
die Nummer der Zeile zum Verschicken in Adressen.xls.
Mit dem Makro unten sende ich nur die ganze Datei. 

Sub Info_BeiKlick()
ActiveWorkbook.SendMail Recipients:="xxx@t-online.de"
End Sub

Wie kann ich nur die gewisse zeile senden?
Danke für Ihre Hilfe.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile als Email senden
07.08.2005 14:24:47
Lorenz
Hallo Namenloser!
Im Blatt Adressen in Zelle "A1" dein Text; in Zelle "A10" die E-Mailadresse
Code in Blatt "Adressen" einfügen,..
gegebenenfalls ("Adressen" anpassen),..
Makro ausführen (Alt+F8),..
SendeNachricht auswählen...

Sub SendeNachricht()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(Worksheets("Adressen").Range("A10").Value) '@emailadresse
.Subject = "Info"
.Body = Worksheets("Adressen").Range("A1").Value
.Importance = 0
.Send
End With
oOLRecip.Resolve
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
End Sub

Grüsse Lorenz
Anzeige
AW: Zeile als Email senden
07.08.2005 14:27:34
Lorenz
Hallo Stan!
Tschuldigung für das "Namenloser"!
Habe "Stan" übersehen!
Grüsse Lorenz
AW: Zeile als Email senden
07.08.2005 18:44:25
Stan
Hallo Lorenz.
So funktioniert gut, aber nur von der Datei Adressen.xls, Blatt Adressen.. Meine Vorgaben habe ich in der Datei Besprechungen.xls, Blattname ist Daten. Hier habe ich auch die E-Mailadresse, sagen wir in A10.Ich habe das Makro geändert.

Sub SendeNachricht()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(Worksheets("Daten").Range("A10").Value) '@emailadresse
.Subject = "Info"
.Body = Worksheets("Daten").Range("1:1").Value
.Importance = 0
.Send
End With
oOLRecip.Resolve
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
End Sub

Wie kann ich die Zeile Body ändern auf:
D:\adressen.xls und Range (1:1) fir die ganze erste Zeile?
Gruß Stan
Anzeige
;

Forumthreads zu verwandten Themen

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
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
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
Anzeige
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
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
PDF als Email Anhang senden
Matthias

Ich möchte mit Excel 2007 Bordmitteln aus einer Arbeitsmappe ein PDF Dokument wandeln und dieses als Anhang per Email versenden.
Also den Weg über Office/Senden/PDF-E-Mail-Anlage... automatisieren
Im Netz habe so einen Fall nicht finden können.
Der Makrorekorder liefert auch keine b...
13.07.2010 13:48:16
Thread-ID: 1166826
3 Beiträge
Word als Email
Hartmut Mengeler

Hallo, wenn ich eine Excel Datei als Email versende schreibe ich
folgendes Makro:
Application.Dialogs(xlDialogSendMail).Show "email-adresse", "Betreff"
Dabei wird die mail-Adresse und der Betreff direkt in das
Email Programm eingetragen.
Kann mir evtl. jemand sagen, wie das bei...
08.05.2002 12:59:46
Thread-ID: 119531
3 Beiträge
selektierte Zeile als Email versenden
Alex

Hallo zusammen,
ich habe hier im Forum einen wunderbaren Code gefunden. Es ist schon fast das, was ich brauche.
Ich weiß nur nicht, wie ich es hinbekomme, dass das Script die Zellen nimmt, die in der selektierten Zeile stehen.
Ich möchte also, wenn ich eine Zelle in der Zeile 85 sel...
20.10.2010 16:45:25
Thread-ID: 1183238
3 Beiträge
Excel-Range als Word-Dokument speichern
braleta

Hallo Excelianer,
im Archiv werde ich nicht fündig, und ebensowenig mittels googeln:
Ich suche eine Möglichkeit, einen "gerechneten" Excel-Bereich als ein Word-Dokument abzuspeichern.
Nicht mit copy/paste, sondern wirklich einfach nur speichern...
Der Bereich kann unterschiedlic...
15.04.2011 08:47:01
Thread-ID: 1210074
2 Beiträge
Mappe als Email-Anhang versenden!?!
TL

Hallo Wissende,in der Recherche finde ich zwar Stichwörter wie
Mailempfänger,
Mailempfänger (als Anlage)...
Mailer
MailLogoff
MailLogon
MailSession
MailSystem
allerdings sind sinniger Weise keine Informationen hinterlegt :(
Und mein xlWebFinder...
15.05.2002 10:56:08
Thread-ID: 120970
3 Beiträge
Anzeige
Tabellenbereich als Email versenden
Annette

Hallo,
ich benutze folgendes Makro um eine Email zu versenden: Sub Mail_senden() Dim olApp As Object Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) 'Empfänger .Recipients.Add "empfaenger@provider.de" 'Betreff .Subject = "Test-Mail" 'Nachricht .Body = "Das ist eine...
09.08.2011 06:26:39
Thread-ID: 1225317
4 Beiträge
Mappe per email versenden
Stan

Hallo,
Ich will eine Arbeitsmappe mit makro als email verschicken.
Es funktioniert mit festen Empfänger. Ich will den Empfänger immer von der Zeile A15 nehmen.
Was muss ich hier ändern?
Dim Empfänger As String
Empfänger = A15
ActiveWorkbook.SendMail "Empfänger", "Thema d...
29.11.2011 12:13:57
Thread-ID: 1239871
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige