Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
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
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Emails aus Excel mit Anhang

Emails aus Excel mit Anhang
02.03.2016 10:13:05
JensP
Hallo zusammen,
ich sage es lieber gleich vorweg: Meine Anfrage ist umfangreich!
In meiner Beispieldatei ist angegeben, was ich geliefert bekomme. Damit habe ich
verschiedene Bearbeitungsschritte vor, die mir der Makrorekorder nicht aufzeichnet.
Als Ergebnis möchte ich folgendes erreichen:
Jeder Ansprechpartner bekommt eine Email mit dem gleichen Betreff und einem
Excel-Anhang mit dem(n) zugeordneten Account(s). Es kann passieren, dass ein
Ansprechpartner viele zugeordnete Accounts hat, deshalb die Idee mit dem Anhang.
Vielleicht kann man das auch in den Emailbody einfügen?
Die geschlechtsspezifische Anrede kann, muss aber nicht integriert sein. Die
Ausgangsdatei könnte ich entsprechend mit Herr bzw. Frau per SVERWEIS erweitern.
Die Zellinhalte wären Werte, Zahlen oder Text, keine Formeln.
Bin für jede Hilfe dankbar.
https://www.herber.de/bbs/user/104028.xlsx

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Emails aus Excel mit Anhang
03.03.2016 06:07:12
fcs
Hallo Jens,
in der hochgeladenen Datei findest du 2 Varianten für den Mail-Versand via MS Outlook:
1. Alle Informationen werden im Mail-Body eingefügt.
2. Die Account-Daten werden in eine Textdatei geschrieben und der Mail als Anhang hinzugefügt.
https://www.herber.de/bbs/user/104059.txt
Gruß
Franz

AW: Emails aus Excel mit Anhang
03.03.2016 08:47:38
JensP
Hallo Franz,
vielen Dank für Deine Mühen.
Leider funktioniert das noch nicht. Ich habe die zwei Programm-Teile auf zwei unterschiedliche
Excel-Tabellen verteilt. Einmal Beispiel.xlsm und einmal Beispiel_2.xlsm
In der ersten Datei rufe ich das abgespeicherte Makro
Tabelle1.Mails_senden_Serienmail
zum Ausführen auf und die Entwurfsansicht startet mit einem
"Fehler beim kompilieren: Sub oder Funktion nicht definiert"
bei der Zeile 51 bei Call MailVersenden(strSubject, strBody, varTo, bolSend:=False)
Es macht keinen Unterschied, ob der bolSend auf True oder False steht.
Rufe ich das Makro
Tabelle1.Mails_senden_Serienmail_mit_Attachment
in Beispiel_2.xlsm auf, bekomme ich eine MessageBox mit "Fehler-Nr.: 446 Objekt
unterstützt keine benannten Argumente. Problem bei Mail-Erstellung."
Auch hier kein Unterschied, ob bolSend auf True oder False steht.
Diese Meldung erscheint zwölf mal. Das entspricht der Anzahl der Empfänger.
https://www.herber.de/bbs/user/104064.xlsm
https://www.herber.de/bbs/user/104065.xlsm
Habe ich den Code korrekt getrennt und richtig auf die zwei Excel-Dateien verteilt?
Gruesse
Jens

Anzeige
AW: Emails aus Excel mit Anhang
03.03.2016 14:47:57
JensP
Hallo Franz,
der Code mit dem Sub Mails_senden_Serienmail() funktioniert!
Ich hatte das Sub MailVersenden nicht unter den ersten Code-Teil kopiert...
Der zweite läuft immer noch auf den Fehler, das macht aber nichts, ich finde die Lösung mit
der Aufzählung der Kennungen im Emailbody elegant.
In Sub Mails_senden_Serienmail() habe ich noch eine If Abfrage eingefügt, die mir den
Titel plus Leerzeichen vor den Namen baut, wenn vorhanden.
'Titel wird mit Leerzeichen zugefügt, wenn vorhanden
If arrData(2, intD) False Then
'Anrede mit Titel
strBody = "Sehr geehrte/r " & arrData(2, intD) & " " & arrData(3, intD) & ","
& Chr(13) & Chr(13)
Else
'Anrede ohne Titel
strBody = "Sehr geehrte/r " & arrData(3, intD) & "," & Chr(13) & Chr(13)
End If
Den Body habe ich noch erweitert. Ein Zeilenumbruch wird hier mit & Chr(13) realisiert,
hat etwas gedauert, bis ich das raushatte. & vbnewline funktioniert nicht ...
Ich habe zusätzlich noch einen Anhang für die Email erstellen lassen:
In Sub MailVersenden:
Als Variablendeklaration:
Dim strAttachmentPfad1 As String
Und dann vor "If bolSend = True then" eingetragen:
strAttachmentPfad1 = "C:\temp\Datei.docx"
olMail.Attachments.Add strAttachmentPfad1
Trotzdem würde ich noch gern wissen, woher bei der zweiten Version ein "Fehler-Nr.: 446 Objekt unterstützt keine benannten Argumente" herkommt. Vielleicht kannst Du das nochmal ansehen?
Habe also mit meinen autodidaktischen Fähigkeiten und Deiner Riesenhilfe eine Lösung gefunden.
Vielen Dank dafür!
Gruesse
Jens

Anzeige
AW: Emails aus Excel mit Anhang
05.03.2016 11:16:10
fcs
Hallo Jens,
probie mal ob es funktioniert, wenn du in dem nachfolgenden Abschnitt des VersendeMakros die Parameternamen wegläßt. 
    If Not IsMissing(varAttachment) Then
'        olMail.Attachments.Add Source:=varAttachment, Type:=1  ' 1 = olByValue
olMail.Attachments.Add varAttachment, 1  ' 1 = olByValue
End If

Gruß
Franz

AW: Emails aus Excel mit Anhang
07.03.2016 09:14:34
JensP
Hallo Franz,
jetzt wird auch der entsprechende Anhang erstellt. Danke dafür!
Aktuell habe ich eine neue Frage ins Forum gestellt. Es geht mit dem selben Code von Dir
noch weiter. Ich bekomme das Sendepostfach nicht eingestellt. Vielleicht kannst Du dazu auch
was schreiben?
Hierzu nochmal: Vielen Dank! Das war schon ein große Hilfe!
Gruesse
Jens

Anzeige
AW: Emails aus Excel mit Anhang
07.03.2016 11:28:07
JensP
Hallo Franz,
jetzt funktioniert es auch mit einem Anhang.
Vielen Dank nochmal! Das war eine super Hilfe!
Jetzt habe ich noch eine weitere Frage mit deinem Code in einen neuen Beitrag gestellt.
Es geht um die Absenderadresse und wie ich diese einstelle. Das funktioniert nicht und
läuft auf einen Fehler. Vielleicht kannst Du Dir das auch mal anschauen?
Gruesse
Jens

307 Forumthreads zu ähnlichen Themen

Mailversand mit Anhang
Tom

Hallo zusammen,
habe eigentlich genau das im Archiv gefunden, was ich wollte - Mailversand an viele Empfänger.
Habe es auch etwas angepaßt. https://www.herber.de/bbs/user/54483.xls
Was mir jetzt noch fehlt, ist, dass ich gerne eine Datei aus dem Verzeichnis
(C:\Dokumente und Ei...
10.08.2008 09:44:49
Thread-ID: 1000570
12 Beiträge
Anzeige
Mail als Blindkopie versenden
PeterE

Hallo zusammen
da bin ich mal wieder
ich habe folgenden Befehl gefunden
Call ShellExecute(0&, "Open", "mailto:" + sAdr + "?Subject=" + sSub + "&Body=" + sBody, "", "", 1)
der funktioniert auch bestens, doch ich möchte das gleiche Mail an meherer Benutzer schicken und des...
10.12.2008 20:15:00
Thread-ID: 1031815
3 Beiträge
email mit Betreff versenden
Tobiax

Hallo!
Ich würde gerne auf Knopfdruck meine gesamte Exceldatei abc.xls versenden.
In der Betreff Zeile soll aus dem Blatt "Tabellen" die Zelle E2 verwedet werden
Die email Adressen sind Spalte A des Blattes "Verteiler" eingetragen.
Ich würde aber gerne noch einen Text selber sch...
09.03.2009 13:48:59
Thread-ID: 1058146
13 Beiträge
Anzeige
excel-datei per email versenden
meixner

Hallo zusammen,
Habe ein Makro, dass eine Excel - Datei nach Aufmachen aktualisiert und dann per Email versendet, wenn ich dies anklicke.
Möchte, dass um eine bestimmte Uhrzeit z.B. 17.00 Uhr die Datei automatisch sich aktualisiert und versendet wird.
Habt ihr eine Idee?
wsZiel....
25.03.2009 18:13:18
Thread-ID: 1063913
2 Beiträge
e-Mail-Versand mit PDF-Anhang
kutzmutz

Hallo nochmal,
ich hab noch ein Problem mit dem eMail-Versand.
Ich generiere mir eine Liste. Diese will ich als PDF-Anhang in einer e-Mail verschicken. Der Macro-Rekoder hat mir dazu folgendes geliefert:
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\...
06.06.2009 16:06:45
Thread-ID: 1079612
2 Beiträge
Tabellenblatt per Mail versenden
Sandra

Hallo zusammen,
vor lauter Bäumen habe ich nix im Archiv gefunden (irgendetwas passte nie). Vielleicht hat ja jemand von Euch ein derartiges Makro schon einmal gemacht.
Ich möchte aus einer Datei ein Makro starten, was folgendes macht:
Ein Tabellenblatt dieser geöffneten Datei soll...
12.06.2009 15:45:33
Thread-ID: 1081014
4 Beiträge
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:47:56
Thread-ID: 1084609
2 Beiträge
Serien-Mail mit Anhang
Boulbadaoui

Hallo,
ich versuche mit dem folgenden Makros, einen Serienmail zu gestalten, leider bekomme ich immer die Zeitlauffehlermeldung 7225!
_____________________________________________________________
Sub testmail() Dim i, empfänger, anlagen, titel, mailtext, An As Variant Dim Entwurf...
26.06.2009 14:32:33
Thread-ID: 1084612
7 Beiträge

Links zu Excel-Dialogen

MessageBox

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
11
1
2
12
8
1
1
3
1
6
5
3
2
1
1
36
1
2
3
6
2
3
3
5
14