Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

E-Mail versenden mit Anlage an mehrere Empfänger

E-Mail versenden mit Anlage an mehrere Empfänger
11.06.2018 15:10:36
Walter
Hallo,
möchte aus Excel heraus E-Mails mit Anlagen an mehrere Empfänger versenden.
In Spalte A stehen die E-Mail Adressen der Empfänger und
in Spalte B die Dateinamen der Anlagen.
Spalte A.........Spalte B
a1@xyz.de.....0063.xlsx
a2@xyz.de.....0101.xlsx
a2@xyz.de.....0014.xlsx
Nun sollen die Empfänger jeweils nur eine E-Mail mit den zugeordneten Anlagen aus Spalte B erhalten.
Also: a1 erhält eine E-Mail, a2 auch nur eine aber mit zwei Anlagen.
Wer kann mir helfen?
Vielen Dank schon einmal!
Grüße
Walter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: E-Mail versenden mit Anlage an mehrere Empfänger
11.06.2018 21:45:58
Jan
Hallo Walter,
ich benutze zum eMail Versand folgenden Code:

'Declaration
Dim OutApp      As Object
Dim OutMail     As Object
Dim Recipient   As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'define body
With OutMail
.To = RecipientList
.Subject = Header
.HTMLBody = Body
Select Case Opt
Case 0: .send
Case 1: .Display
End Select
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Um einen Anhang hinzuzufügen, musst du noch .attachments.Add Anhang hinzufügen, wobei "Anhang" der vollständige Pfad (String) auf die Datei ist (für ein Workbook über .FullName zu bekommen).
Um deine Aufgabe zu lösen, bedarf es dann noch einer for-Schleife, die obigen eMail Versand so oft aufruft wie gewünscht (for i = FirstColumn to .Cells(Rows.Count, Column).End(xlUp).Row - 1).
Damit a2 zwei Anlagen aber nur eine eMail erhält, würde ich eher den Weg über zwei Spalten gehen und per if-Abfrage prüfen, ob Spalte 1 (= Anhang 1) und Spalte 2 (= Anhang 2) gefüllt sind.
Gruß, Jan
Anzeige

301 Forumthreads zu ähnlichen Themen

Emailversand an mehrere Teilnehmer
Peter

Hallo Forum,
ich bin leider gar nicht bewandert in VB und Excel. Ich habe nach einem Skript gesucht um aus einer ExcelTabelle Emails zu versenden, da ich so etwas brauche.
Folgendes Skript (siehe unten) habe ich endeckt und es funktioniert auch prima. Allerdings habe ich knapp 400 Teil...
01.11.2008 16:38:42
Thread-ID: 1021041
2 Beiträge
Anzeige
Email Adressen aus mehreren Spalten in eine Spalte
Martin

Hallo Leute!
Ich hab heut wiedermal eine Frage an euch.
Ich hab ein Excelblatt in dem in verschiedenen Spalten Email Adressen stehen. Ich möchte nun aber, dass alle Adressen in einer Spalte zb. "X" stehen jedoch in der Zeile bleiben in der sie gestanden sind.
z.B.: steht in der Zel...
03.03.2009 14:03:50
Thread-ID: 1055974
5 Beiträge
Email mit Dateianlage senden
And

Hallo,
aktuelle Datei wird im Archiv mit Name+Datum+Zeit gespeichert
ChDrive ("G:\")
ChDir ("G:\Projekte\Archiv\")
Tagesdatum = Application.Text(Now(), "dd.mm.yyyy hh.mm")
Sicherung = "Arbeitsplanung-M" & "-" & "gesendet am " & Tagesdatum & "Uhr" & ".xls"...
25.03.2009 09:03:50
Thread-ID: 1063586
14 Beiträge
Anzeige
Empfänger aus Mappe in ne Mail kopieren
Kai

Hallo,
ich möchte ein Email-Empfänger , der sich in der Tabelle1 / B9 befindet in eine geöffnete Mail schreiben. Wenn ich den Empfänger hart reinprogrammkiere, gehts (Mailto: "blabla@bla.de")
Der Empfänger wird zwar ausgelesen, (masgbox) aber nicht in die Mail rein.
Empfänger = Shee...
11.09.2009 16:51:43
Thread-ID: 1101775
2 Beiträge
Email als Einfügen und Anhang senden
Volker

Hallo liebe Excel- Gemeinde,
habe da mal wieder ein Problem mit Excel und dem versenden von einer Exceldatei.
Den Code habe ich aus dem Forum, ein wenig abgeändert. Leider ist das Ergebnis nicht "vollkommen" wie ich es haben wollte
https://www.herber.de/bbs/user/65540.xls
Ich b...
03.11.2009 07:22:25
Thread-ID: 1113911
6 Beiträge
email senden > empfänger in zelle
Stef@n

Hallo Excel-Freunde
mittels folgendem Makro sende ich ein email, wenn ein bestimmter Text in einer Zelle steht.
funktioniert auch wunderbar.
jetzt möchte ich noch eines erreichen
Die Empfängeradresse soll im Tabellenblatt in die Zelle L13 geschrieben werden,
Das Makro soll s...
10.11.2009 15:05:16
Thread-ID: 1115908
4 Beiträge
Versand an mehrere Empfänger ...
Didi

Hallo,
nochmal danke für die schnellen Antworten !! Echt spitze.
Man bekommt die Informationen aber immer nur Etappenweise (geht mir zumindest so).
Die Tabelle mit den Werten siehe meine letzte Frage
soll jetzt nicht "nur" an eine E-Mail gesendet werden, sondern an eine von derz...
16.11.2009 14:12:54
Thread-ID: 1117609
7 Beiträge
Notes per VBA an mehrere Empfänger - WIE??
Christoph

Hallo zusammen.
Ich bekomm es einfach nicht hin eine mail an mehrere Empfänger GLEICHZEITIG zu senden.
Diesen Code verwende ich um 1 mail zu senden und der klappt wunderbar - nur mehrere Empfänger krieg ich einfach nicht hin. Sub NotesMail Antwort = Shell("C:\Program Files\Lotus\Notes\n...
07.12.2009 15:29:44
Thread-ID: 1122225
7 Beiträge
Anzeige

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
1
2
4
13
1
1
5
3
6
6
1
4
2
2
5
2
1
6
4
4
13
2
2
5
3