Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1672to1676
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
Inhaltsverzeichnis

einzelne Zeile als e-mail verschicken

einzelne Zeile als e-mail verschicken
07.02.2019 14:00:39
Andre
Hallo Zusammen
Ich habe mal wieder ein Problem
Und zwar habe ich eine Tabelle mit 29 Zeilen und 6 Spalten
In Spalte F3-F29 stehen E-Mail Adressen diese sollen ins Outlook übernommen werden.
Als Betreff soll der Zellinhalt von C3-C29 stehen.
Beispiel:
An.. = E-Mail Adresse F3
Betreff... = Zellinhalt C3
An.. = E-Mail Adresse F4
Betreff... = Zellinhalt C4
usw.
bis in Spalte F keine E-Mail Adresse steht.
Das bedeutet im schlimmsten Fall werden 26 E-Mails gesendet.
Kann man das überhaupt umsetzen oder hat jemand ein Tip wie ich das anders lösen könnte
vielen Dank im voraus

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

Betreff
Datum
Anwender
Anzeige
AW: einzelne Zeile als e-mail verschicken
07.02.2019 14:31:50
Bernd
Servus Andre,
das geht folgendermaßen...

Sub EMailSenden()
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String
Dim EMailan As String
Dim Betreff As String
Dim strName As String
Dim i As Integer
Dim intLZ As Integer
intLZ = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row
Set objOL = CreateObject("Outlook.Application")
For i = 3 To intLZ
Set objMail = objOL.CreateItem(0)
EMailan = ActiveSheet.Cells(i, 6).Value
Betreff = ActiveSheet.Cells(i, 3).Value
With objMail
.to = EMailan
.Subject = Betreff
.Body = "Hier der Mailtext"
.Display    ' anzeigen
'.Send       ' abschicken
End With
Set objMail = Nothing
Next i
MsgBox intLZ - 3 & " eMails wurde erfolgreich versendet!"
Set objOL = Nothing
End Sub
Grüße, Bernd
Anzeige
AW: einzelne Zeile als e-mail verschicken
07.02.2019 14:35:26
Bernd
Servus Andre,

Dim Bezeichnung As String
Dim strName As String
...kannst du noch löschen...
Grüße, Bernd
AW: einzelne Zeile als e-mail verschicken
07.02.2019 14:45:02
Andre
Hallo Bernd
Das ist echt super
läuft
Vielen Dank

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige