Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1488to1492
1488to1492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Anhänge in Serien E-Mail senden

Forumthread: Mehrere Anhänge in Serien E-Mail senden

Mehrere Anhänge in Serien E-Mail senden
21.04.2016 00:16:51
Robi
Hallo zusammen,
ich möchte mehrere Dateien in einer Serien E-Mail versenden.
Leider kann ich in meiner Version nur eine Datei anhängen.
Kann mir jemand sagen, wie ich das im VBA Code unterbringe? (siehe meine beigefügte Mail).
Außerdem möchte ich, dass in der E-Mail automatisch die Anrede eingefügt wird (z.B. Sehr geehrter Herr Müller).
https://www.herber.de/bbs/user/105124.xlsm
Danke im Voraus.
Robi

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Anhänge in Serien E-Mail senden
21.04.2016 09:30:28
Rudi
Hallo, 
sRec = Cells(iCounter, 1) 'An
sFile = WorksheetFunction.Transpose(WorksheetFunction.Transpose _
(Cells(iCounter, 4).Resize(, 3)))
sSub = Cells(iCounter, 2)  'Betreff
sBody = "Sehr geehrte" & IIf(Cells(iCounter, 9) = "Herr", "r ", " ") _
& Cells(iCounter, 9) & " " & Cells(iCounter, 8) & vbLf
sBody = sBody & Cells(iCounter, 3) 'Text
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(sRec)
.Subject = sSub
.Body = sBody & vbLf & vbLf
For S = LBound(sFile) To UBound(sFile)
If Len(sFile(S)) Then .Attachments.Add sFile(S)
Next S
Gruß
Rudi

Anzeige
AW: Mehrere Anhänge in Serien E-Mail senden
21.04.2016 20:41:10
Robi
Hi,
das funktioniert perfekt! Danke schon einmal!
Kann ich für den E-Mailtext ein Textfeld einfügen (direkt auf das Arbeitsblatt), dass ich auch Formatieren kann (fett, kursiv, unterstrichen, farbig, Schriftart, Schriftgröße, Absätze)?
Und wie kann ich automatisch meine Signatur einfügen? Und auch so, dass die Mail im HTML Format bleibt?
Danke im Voraus!

Anzeige
AW: Mehrere Anhänge in Serien E-Mail senden
23.04.2016 21:49:31
Robi
Hallo zusammen,
ich habe herausgefunden, das ich mit .getinspector.display die Signatur einfügen kann.
Da man in Outlook mehrere Signaturen haben kann, soll die Signatur eingefügt werden, die in Spalte "K" angegeben ist.
Ich bekomme es nicht hin, den VBA Code auf meine Anforderungen zu ändern.
Kann jemand helfen?
https://www.herber.de/bbs/user/105182.xlsm
Danke im Voraus.
Gruß
Robi

Anzeige
AW: Mehrere Anhänge in Serien E-Mail senden
24.04.2016 20:27:11
Robi
Kann keiner helfen?

siehe oben. owT
25.04.2016 17:53:50
Rudi
;

Forumthreads zu verwandten 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
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
Anzeige
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
mehere Mails an Empfängern
Urmila

Hallo alle zusammen,
ich habe bisher mir folgenden Code zusammen gebastelt, was ja funktioniert aber, in meiner Liste sind die Empfänger mehrmals aufgelistet, so dass beim Versenden ein "Automatisierungsfehler" auftaucht...
Dim olApp As Object Dim olMailItm As Object Dim i As Integer Se...
17.08.2009 16:14:23
Thread-ID: 1096478
2 Beiträge
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
Anzeige
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
Email mit Anhang versenden ueber outlook
abu

Hallo Zusammen,
habe folgenden Code gefunden und wuerde den gerne fuer meine Beduerfnisse umstricken. Leider bekomme ich immer eine Fehlermeldung bei dieser Zeile:
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
Wuerde mich ueber hilfe sehr freuen...
16.12.2009 13:28:45
Thread-ID: 1122907
2 Beiträge
Empfänger für Lotus Notes Mail aus Exceltabelle au
Wolfgang

Hallo liebe Excel-Experten !
In einem früheren Posting (auf das ich irgendwie leider nicht zugreifen kann, um dort einen Folgebeitrag zu schreiben), hatte ich gefragt, wie man den Empfänger einer LotusNotes-Mail aus einer
Excel-Tabelle auslesen kann. Ein User namens Andre hat mir danke...
20.05.2010 09:00:38
Thread-ID: 1157953
5 Beiträge
Notes - Emailempfänger aus Zelle auslesen
Wolfgang

Hallo Experten !
Ein begeisterter, aber leider sehr unwissender VBA-Nutzer hofft mal wieder auf Eure Unterstützung.
Dank freundllicher Hilfe dieses Forums habe ich eine Automatik zur Verfügung, um aus einem Excel-Arbeitsblatt E-Mails per Lotus Notes zu versenden. Unter anderem werden di...
14.06.2010 17:14:53
Thread-ID: 1161802
3 Beiträge
PDF als Email Anhang senden
Matthias

Ich möchte mit Excel 2007 Bordmitteln aus einer Arbeitsmappe ein PDF Dokument wandeln und dieses als Anhang per Email versenden.
Also den Weg über Office/Senden/PDF-E-Mail-Anlage... automatisieren
Im Netz habe so einen Fall nicht finden können.
Der Makrorekorder liefert auch keine b...
13.07.2010 13:48:16
Thread-ID: 1166826
3 Beiträge
Mappe als Email-Anhang versenden!?!
TL

Hallo Wissende,in der Recherche finde ich zwar Stichwörter wie
Mailempfänger,
Mailempfänger (als Anlage)...
Mailer
MailLogoff
MailLogon
MailSession
MailSystem
allerdings sind sinniger Weise keine Informationen hinterlegt :(
Und mein xlWebFinder...
15.05.2002 10:56:08
Thread-ID: 120970
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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