Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
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
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Outlook email - mehrere Empfänger

Makro Outlook email - mehrere Empfänger
06.12.2016 16:29:55
Hans
Hallo Gemeinde,
ich habe folgendes Problem: Ich möchte in meinem Makro bei ".to" mehrere Adressaten ca. 100-200, ich habe einen weg gefunden, der ist jedoch sehr aufwendig bei sovielen Adressaten
Mein Problem:
Mail
.Subject = Range("B2")
.HTMLBody = btext
.to = Range("H1") & ";" & Range("H2")
End With
Gibt es sowas in der Art --> to. = Range("H1:H200") ?
Danke im Voraus
Hans

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Outlook email - mehrere Empfänger
06.12.2016 16:41:56
Bastian
Mach doch einfach eine schleife davor.
z.B
Dim Adressaten as string
Dim z as range
For each z in Range("H1:H200")
Adressaten = Adressaten & ";" & Z
next
und dann so in der art
.to mid(Adressaten ,2)
Gruß basti
AW: Makro Outlook email - mehrere Empfänger
06.12.2016 16:47:21
Michael
Hallo!
Sammle die Zell-Werte (Email-Adressen) in einer Variablen, und weise deren Inhalt dann der Empfänger-Zeile zu, schematisch:
    'Zusätzliche Variablen
Dim AdrSammler As String, Adr As Range
'Alle Zellinhalte des Bereichs inkl. Trennzeichen
'in einer Variablen sammeln
For Each Adr In Range("H1:H200")
If Not IsEmpty(Adr) Then
AdrSammler = AdrSammler & Adr.Text & ";"
End If
Next Adr
AdrSammler = Left(AdrSammler, Len(AdrSammler) - 1)
.to = AdrSammler
'...
Lg
Michael
Anzeige
AW: Makro Outlook email - mehrere Empfänger
07.12.2016 07:41:46
Hans
Hallo zusammen,
Vielen Danke, das mit der Schleife hat super gekklappt. Verstehe gerade nicht warum ich nicht selber draufgekommen bin... :D
ohne Schleife..
07.12.2016 11:05:46
UweD
Hallo
..geht es auch
    Dim AdrSammler As String, Adr() As Variant
    Adr = WorksheetFunction.Transpose(Range("H1:H200").SpecialCells(xlCellTypeConstants, 2))
    AdrSammler = Join(Adr, ";")

LG UweD
Anzeige
Stimmt, schön wenn jemand mitdenkt ;-), lg und owT
07.12.2016 15:57:10
Michael

20 Forumthreads zu ähnlichen Themen

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
Emailadressen aus Outlook ablesen
VerenaK

Guten Morgen alle zusammen!
Ich habe ein Makro gebastelt, das automatisch Emails verschickt und sich die adressen dazu selber aus Outlook zieht, indem es eine Spalte mit Namen aus einer Exceltabelle ausliest.
Es funktioniert soweit auch, aber bei zwei Feldern hängt es sich auf.
Bei...
02.12.2011 23:16:50
Thread-ID: 1240355
2 Beiträge
VBA Lotus Notes E-Mail mehrere Adressaten
Andreas

Hallo,
ich habe folgenden Quellcode im Netz gefunden, um per VBA Dateien per Mail (Lotus Notes) zu versenden. Das klappt auch soweit, so lange ich immer nur einen Adressaten habe.
Ich möchte aber gerne die Mail an mehrere Personen senden. Ich habe schon versucht, die Personen mit Hilfe...
14.12.2014 21:41:30
Thread-ID: 1397975
4 Beiträge
Anzeige
Email an mehrere Email-Adressen aus einer Zelle
Christian

Hallo,
ich habe folgendes Problem:
Ich möchte eine autom. Email an mehrere Email Adressen, die in einer Zelle Hinterlegt sind, verschicken. Es gibt jedoch auch Zellen, in der nur eine Email steht (das funktioniert aber!).
Die Email Adressen in der Zelle habe ich so geschrieben:
...
05.03.2015 14:55:09
Thread-ID: 1412992
2 Beiträge
Email an mehrere Email-Adressen aus einer Zelle
Christian

Hallo,
ich habe bereits geschafft, Emails per Button automatisch zu versenden, jedoch zieht sich Outlook nur die Adressen für die "To" Zeile. Mein Anliegen wäre, eine zweite Email Adresse direkt ins "CC" zu kopieren.
Kann mir jemand helfen?
Hier mein Code: Sub AUTOMATISIERTE_EMAIL()...
10.03.2015 10:39:41
Thread-ID: 1413962
15 Beiträge
EMail an mehrere Empfänger in Excel Liste
Marcel

Hallo,
bin nicht so gut mit VBA Codes, deshalb die Frage.
Möchte an x Personen die in jeder zweiten Spalte meiner Tabelle stehen, eine Mail mit dem Inhalt der Zeilen unter der EMail Adresse schicken.. sprich
AE5 Empfänger1@mail.com
AE6 Daten Empf1
AE7 Daten Empf1
AE50 D...
03.09.2015 14:11:12
Thread-ID: 1445805
3 Beiträge
E-Mail aus excel an mehrere Empfänger
Benni

Hallo zusammen,
ich bin neu im Forum und auch ein ziemlicher VBA-Neuling und habe mir folgenden Code zusammengesucht und angepasst. Dieser funktioniert auch einwandfrei, allerdings würde ich die E-Mails gerne an mehrere Empfänger senden (Die Email-Adressen sind ab Zelle (I12) abwärts hinte...
22.10.2015 11:43:00
Thread-ID: 1453762
6 Beiträge
VBA mehrere Empfänger und Anhang
Pellton

Hallo Zusammen
Ich habe folgenden Code zusammengebastelt. Das einzige kleine Problem dass ich noch habe ist dass ich einen zusätzlichen Empfänger ins CC setzen möchte. Oder wenigstens einen zusätzlichen Empfänger in die Empfängerzeile. Funzt leider nicht mit Semikollon oder Komma etc. Kann...
13.06.2017 13:39:15
Thread-ID: 1563900
12 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
6
1
1
3
8
1
14
2
5
11
4
1
5
18
1
2
2
3
7
1