Datum

Titel

24.04.2024 00:20:14

Bestimmte Spalten als xls exportieren per Makro

23.04.2024 22:08:10

Auflisten in Spalte VBA

23.04.2024 21:33:46

Nur farbige/nicht farbige Zellen markieren

23.04.2024 21:29:56

Bestimmte Zellen auf andere Arbeitsblätter kopieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1488to1492

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Mehrere Anhänge in Serien E-Mail senden

Forumthread: Mehrere Anhänge in Serien E-Mail senden
5 Beiträge zu diesem Forumthread
Anzeige
301 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

21.04.2016 09:30:28

Rudi
AW: Mehrere Anhänge in Serien E-Mail senden

21.04.2016 20:41:10

Robi
AW: Mehrere Anhänge in Serien E-Mail senden

23.04.2016 21:49:31

Robi
AW: Mehrere Anhänge in Serien E-Mail senden

24.04.2016 20:27:11

Robi
siehe oben. owT

25.04.2016 17:53:50

Rudi

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

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!

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

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