Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.11.2025 13:56:33
Anzeige mehrere Bildern über Zelle mit einem Bild performant
05.11.2025 09:23:36
Bedingte Formatierung Geburtstage
04.11.2025 16:13:59
AddIn erstellen und mit Passwort schützen
04.11.2025 15:31:37
Die Summendifferenz zwischen 01.01. und heute berechnen
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien über VB per e-mail verschicken

Forumthread: Dateien über VB per e-mail verschicken

Dateien über VB per e-mail verschicken
10.12.2003 17:36:44
Sandro
Hi Leute,

habe folgendes problem und zwar möchte ich über VB mehrere Excel-Dateien verschicken. Geht das? und wenn wie?

Habe es geschafft eine einzelne Datei zu verschicken in dem ich sie geöffnet habe und über "SendMail" empfänger und betreff angegeben habe. Nur wenn ich mehrere Dateien verschicken möchte ist dies über diese Methode nicht möglich

wäre euch sehr dankbar für eure hilfe.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien über VB per e-mail verschicken
10.12.2003 17:44:25
Willie
Hallo Sandro
Das geht und zwar so ...

Gruß Willie


Sub EMailVerschickenMitAnhängen()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = "Dein Betreff"
.Body = "Sehr geehrte Damen und Herren " & Chr(13) & _
"Bitte prüfen Sie die angehängten Rechnungen" & Chr(13) & _
"Viele Grüße " & Chr(13) & _
Application.UserName
.To = "Rewe@abc.de"
.CC = "Fibu@abc.de"
End With
With Application.FileSearch
.NewSearch
.LookIn = "c:\Rechnungen\" ' Hier dein Pfad eintragen
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles 'Hier kannst du den Dateityp wählen
.Execute
For i = 1 To .FoundFiles.Count
Mail.Attachments.Add .FoundFiles(i)
Next i
End With
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
End Sub

Anzeige
AW: Dateien über VB per e-mail verschicken
10.12.2003 17:58:26
Sandro
Hallo Willi,

vielen vielen Dank!!!
hat funktionier!!!!!!

gruß
sandro
;

Forumthreads zu verwandten Themen

Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 Beiträge
Anzeige
Tabelle per Mail senden
And

Hallo,
Habe aus dem Archiv folgenden Code:
Sub Blattsenden() Sheets("Tabelle1").Copy On Error Resume Next ActiveWorkbook.SendMail Recipients:="Otto@gmx.de", Subject:="Testmail" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True If Err.Number > 0 T...
19.03.2009 11:01:22
Thread-ID: 1061745
9 Beiträge
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
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
Arbeitsmappe per Mail versenden
massimo17

Hallo,
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das P...
10.11.2009 16:52:09
Thread-ID: 1115943
4 Beiträge
Anzeige
Tabelle per Mail versenden
liese

Hallo,
habe folgendes Anliegen.
Ich möchte gerne, wenn eine Mappe geöffnet wird,
eine bestimmte Tabelle im Hintergrund mit dem
Standardmailprogramm ohne Rückfragen versenden.
Wie geht das.
Danke schon mal für Hilfe.
Viele Grüsse
Anneliese
01.01.1970 00:00:00
Thread-ID: 1139930
37 Beiträge
Copoe per Mail versenden
Paul

Hallo Excel-Freunde,
folgenden Code habe ich gebastelt um, gestartet über einen Button auf Sheet 1 eine Copy von Format und Werte des Sheets "Übersicht zu erstellen und diese dann frei von Macro's an die im Feld "MailAdd" stehenden Empfänfer zu senden
Das funktioniert soweit auch, nur k...
25.02.2010 10:04:02
Thread-ID: 1141285
2 Beiträge
x-beliebiege Datei als Hyperlink in E-Mail zeigen
Urmila

Hallo alle zusammen,
ich hoffe ihr könnt mir weiterhelfen.
Ich würde gerne in einer E-Mail nur einen Hyperlink zu einer Datei einfügen.
Das Problem ist nur, die Dateieindung kann immer anders sein, also doc, pdf, xls etc.
Pfad ist immer "C:\Test\", Dateiname steht in Spalte A, a...
08.04.2010 15:45:38
Thread-ID: 1150644
3 Beiträge
Anzeige
Dateien mit Makros
Heinz A. Wankmüller

Hallo Excelfreunde,
ich habe ein Problem mit Dateien, in denen Makros vorhanden sind. Mein Chef hat seit gestern xl2002 installiert bekommen. Er kann jetzt keine Excel-Dateien öffnen, in denen Makros vorhanden sind. Auch der VB-Editor lässt sich nicht öffnen. Ich kann die Stelle, an der sich...
23.05.2002 07:31:21
Thread-ID: 122947
3 Beiträge
Datei mit LotusNotes versenden
walter

Guten Abend zusammen,
ich habe über das Forum eine Makro erhalten und ein wenig verändert.
Es läuft seit 7 Monaten einwandfrei bis auf einem Kollegen der hat eine Fehlermeldung.
Wie gesagt nur bei dem einen Rechner.
Sub Datei_zu_Lotus() Dim session As Object Dim db As Object Dim...
16.07.2011 07:12:48
Thread-ID: 1222357
5 Beiträge
Tabellenbereich als Email versenden
Annette

Hallo,
ich benutze folgendes Makro um eine Email zu versenden: Sub Mail_senden() Dim olApp As Object Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) 'Empfänger .Recipients.Add "empfaenger@provider.de" 'Betreff .Subject = "Test-Mail" 'Nachricht .Body = "Das ist eine...
09.08.2011 06:26:39
Thread-ID: 1225317
4 Beiträge
Mappe per email versenden
Stan

Hallo,
Ich will eine Arbeitsmappe mit makro als email verschicken.
Es funktioniert mit festen Empfänger. Ich will den Empfänger immer von der Zeile A15 nehmen.
Was muss ich hier ändern?
Dim Empfänger As String
Empfänger = A15
ActiveWorkbook.SendMail "Empfänger", "Thema d...
29.11.2011 12:13:57
Thread-ID: 1239871
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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