Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1512to1516
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
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range selected - Email versenden

Range selected - Email versenden
02.09.2016 09:53:44
Donald

Hallo zusammen,
Bisher habe ich folgendes:
Ich selektiere eine Zeile (bisher eine Zeile, keine Range!) (z.B. A1:Q1) und kann sie dann automatisch an den Empfänger in G7 senden. Ich benötige nun jedoch die Schleife, mit der ich alle E-Mails je nach Zeile und je nach Empfänger von A1:Q1 bis A50:Q50 an G1 bis G50 sende - quasi eine Schleife, die mir jede Zeile innerhalb der markierten Range einzeln hochzählt und immer die passende Zeile an den entsprechenden Empfänger in Spalte G sendet.
Hänge da leider gerade!
Ich hoffe ich konnte es gut genug erklären,
MfG,
Donald

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range selected - Email versenden
02.09.2016 09:57:28
RPP63
Moin!
Geht es auch etwas genauer?
Zeig mal Deinen bisherigen Code.
Gruß Ralf
AW: Range selected - Email versenden
02.09.2016 10:01:01
Donald
Hallo, klaro! :-)
Sub SendSelection()
Dim Zeilenvariable As Integer
With Selection
For Zeilenvariable = 1 To 70
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Subject = "Database"
.Introduction = "" & vbCrLf & "TestBody"
.Item.To = Selection.Cells(Zeilenvariable, 7)
.Item.Send
End With
Next
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub

Damit sende ich mir aber, wenn ich eine Zeile selektiert habe, diese eine Zeile 70 mal und wenn ich eine Range selektiert habe diese Range 70 mal.
MfG,
Donald
Anzeige
AW: Range selected - Email versenden
05.09.2016 07:27:24
Donald
Wäre noch offen.. :-)
AW: Range selected - Email versenden
06.09.2016 08:21:50
ChrisL
Hi Donald
Vielleicht so...

Sub SchickMal()
Dim iZeile As Long
If Selection.Rows.Count = 1 Then
Call SendSelection(Selection.Row)
Else
For iZeile = Selection.Row To Selection.Row + Selection.Rows.Count - 1
Call SendSelection(iZeile)
Next iZeile
End If
End Sub

Private Sub SendSelection(Zeilenvariable As Long)
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Subject = "Database"
.Introduction = "" & vbCrLf & "TestBody"
.Item.To = Selection.Cells(Zeilenvariable, 7)
.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub

cu
Chris
Anzeige
AW: Range selected - Email versenden
06.09.2016 08:41:35
Donald
Fast perfekt - Empfänger wechseln pro Zeile klappt super und die Mails kommen zu den richtigen Adressen - jetzt dürfte nur auch immer nur die eine Zeile gesendet werden. Aktuell wird der komplette markierte Bereich an den Empfänger in z.B. G7 gesendet. Dieser soll aber nur z.B. A7 - I7 bekommen.
Wäre das noch möglich?
Liebe Grüße & danke schonmal für die Hilfe,
Donald
AW: Range selected - Email versenden
06.09.2016 08:52:26
ChrisL
Hi Donald
Dann vielleicht so (quick & dirty mit Select)...
Sub SchickMal()
Dim iZeile As Long, rng As Range
Set rng = Selection
If Selection.Rows.Count = 1 Then
Call SendSelection(Selection.Row)
Else
For iZeile = rng.Row To rng.Row + rng.Rows.Count - 1
Rows(iZeile).Select
Call SendSelection(iZeile)
Next iZeile
End If
End Sub


Private Sub SendSelection(Zeilenvariable As Long)
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Subject = "Database"
.Introduction = "" & vbCrLf & "TestBody"
.Item.To = Selection.Cells(Zeilenvariable, 7)
.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub

cu
Chris
Anzeige
AW: Range selected - Email versenden
06.09.2016 10:29:40
Donald
Servus,
Jetzt klappt das wechseln zwischen den Zeilen aber das wechseln zwischen den Empfängern nicht mehr :-(
Irgendwie hängt er sich bei einem Empfänger fest und ich stehe total auf dem Schlauch wo...
Ich markiere z.B. A5:I10 - dann sollte er sechs E-Mails versenden: A5 bis I5 an Empfänger in G5, A6:I6 an G6, A7:I7 an G7, A8:I8 an G8, A9:I9 an G9 und A10:I10 an G10.
LG
Donald
AW: Range selected - Email versenden
06.09.2016 12:52:20
ChrisL
Hi
Ja da war noch ein Fehler drin.
Ändere mal:
.Item.To = Cells(Zeilenvariable, 7)
(ohne Selection)
cu
Chris
AW: Range selected - Email versenden
06.09.2016 13:43:49
Donald
Danke! Funktioniert perfekt. owT

299 Forumthreads zu ähnlichen Themen

Mailversand mit Anhang
Tom

Hallo zusammen,
habe eigentlich genau das im Archiv gefunden, was ich wollte - Mailversand an viele Empfänger.
Habe es auch etwas angepaßt. https://www.herber.de/bbs/user/54483.xls
Was mir jetzt noch fehlt, ist, dass ich gerne eine Datei aus dem Verzeichnis
(C:\Dokumente und Ei...
10.08.2008 09:44:49
Thread-ID: 1000570
12 Beiträge
Anzeige
Emails an mehrere Empfänger mit Dateinhalten
Julia

Liebes Forum,
Ich wende mich mit der folgenden Bitte an Euch:
In meiner Excel-Datei habe ich einen Code geschrieben, mit dem ich eine Lotus-Notes-EMail an eine bestimmte EMail-Adresse und mit einem bestimmten Inhalt verschicken kann.
Die Datei https://www.herber.de/bbs/user/58345.xl...
13.01.2009 17:14:00
Thread-ID: 1039317
3 Beiträge
excel tabellenblatt mit outlook versenden
Hansi

Bitte um Hilfe - ich habe ein VBA Scrip zum versenden einzelner Tabellenblätter:
Sub Blatt_senden() Sheets("NAME").Copy ActiveWorkbook.SendMail "PERSON@PROVIDER", "Aktuelle Zahlen" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True End Sub
Wie kann...
19.02.2009 10:00:00
Thread-ID: 1052006
5 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
Email per Code senden
Volker

Schon wieder ein für mich wichtige Frage:
Wie kann ich bei einer Veränderung einer Bestimmten Zelle eine Sendung dieses Tabellenblatts als Anhang an eine bestimmte Emailadresse automatisch (möglichst ohne ein zutun vom Benutzer) auslösen?
Der Code sollte mit dem öffnen der Arbeitsmappe...
27.05.2009 18:20:55
Thread-ID: 1077791
11 Beiträge
e-Mail-Versand mit PDF-Anhang
kutzmutz

Hallo nochmal,
ich hab noch ein Problem mit dem eMail-Versand.
Ich generiere mir eine Liste. Diese will ich als PDF-Anhang in einer e-Mail verschicken. Der Macro-Rekoder hat mir dazu folgendes geliefert:
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\...
06.06.2009 16:06:45
Thread-ID: 1079612
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
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:47:56
Thread-ID: 1084609
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
1
2
4
8
1
10
1
3
1
6
3
9
2
1
6
1
6
2
36
1
2
3
1
6