Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

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

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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