Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDFs mit bestimmten Namen mailen

Forumthread: PDFs mit bestimmten Namen mailen

PDFs mit bestimmten Namen mailen
08.05.2019 00:11:18
Sabrina
Hallo Leute,
ich lege mit dem Makro mehrere PDF Dateien an am gleichen Tag an.
z.Bsp.
08-05 Hamburg
08-05 Berlin
08-05 Bremen
08-05 xyz
Kann mir jemand helfen .. möchte per Makro alle Dateien mit dem Zeitstempel "Tag" mailen.
Also alle Dateien im Ordner "Bestellung/Mai" welche mit dem Inhalt der Variable "Tag" beginnen, also als Beispiel Heute "08-05" sollen gemailt werden.
Würde mich Hilfe/Tipps/Anregung freuen.
Anbei die TEstdatei
https://www.herber.de/bbs/user/129651.xlsm
LG
Sabbel
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDFs mit bestimmten Namen mailen
08.05.2019 09:34:44
Nepumuk
Hallo Sabbel,
teste mal:
Public Sub Mail_senden()
Dim objOutlook As Object, objMail As Object
Dim strFolder As String, strFileName As String
Dim avntAttachments() As Variant, vntItem As Variant
Dim ialngIndex As Long
strFolder = "D:\Test\Bestellung\" & Format$(Date, "yyyy") & _
"\" & Format(Date, "mmmm") & "\"
strFileName = Dir$(strFolder & Format$(Date, "dd-mm") & "*.*")
Do Until strFileName = vbNullString
ReDim Preserve avntAttachments(ialngIndex)
avntAttachments(ialngIndex) = strFolder & strFileName
ialngIndex = ialngIndex + 1
strFileName = Dir$
Loop
If ialngIndex = 0 Then
Call MsgBox("Keine Dateien gefunden.", vbExclamation, "Hinweis")
Else
Set objOutlook = CreateObject(Class:="Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "name@provider.de"
.Subject = "Betreff"
.Body = "Hallo" & vbLf & vbLf & "im Anhang die Dateien." & _
vbLf & vbLf & "Gruß" & vbLf & "Sabbel"
For Each vntItem In avntAttachments
Call .Attachments.Add(vntItem)
Next
Call .Display 'Anzeigen
'            Call .Send 'direkt senden
End With
Set objMail = Nothing
Set objOutlook = Nothing
End If
End Sub

Gruß
Nepumuk
Anzeige
Vielen Dank Nepumuk .. funktioniert 1A .. owT
08.05.2019 22:44:55
Sabrina
gelöst, dann nicht offen. o.w.T
08.05.2019 22:52:45
Werner
;

Forumthreads zu verwandten Themen

Email Ergänzing, Adresse CC
Karel

Hallo Forum,
habe in diese Forum unterstehende Email VBA code gefunden.
AUF tabelleblatt Mailadresse stehn ab A2 sten untereinander alle Emailadresse
Wie kann ich Emailadresse als CC genau so abfragen auf Tabelleblatt mail adressen ab Zelle C2
Option Explicit
Sub Serien_E...
23.10.2008 19:45:00
Thread-ID: 1018786
7 Beiträge
Anzeige
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
Datei-Namen ändern bei E-Mail-Versand aus Excel
Herbert

Hallo,
kann ich einen Datei-Namen ändern wenn ich sie aus Excel heraus per E-Mail versende und wenn ja wie bitte?
Vielen Dank im Voraus!
Herbert
09.05.2009 11:31:27
Thread-ID: 1074052
5 Beiträge
Anzeige
Email-Adresse automatisch
Tom

Hallo,
mit folgendem Makro wird die aktuelle Mappe per Email versandt.
Wie kann ich erreichen, dass in der Empfängerzeile (An) max.mustermann@musterfirma.de und im Betreff Ihr Auftrag steht
Sub Makro3() Application.Dialogs(xlDialogSendMail).Show End Sub Danke vorab
TOM
01.11.2009 17:30:03
Thread-ID: 1113673
3 Beiträge
Anzeige
Emailadresse auslesen
Tina

Guten Morgen,
in Zelle A1 steht:
achim.bode;achim.boede@vvv.de;
in B1 soll daraus
achim.boede@vvv.de
werden.
Wie geht das per Formel?
Lieben Dank
Gruss Tina
08.04.2010 07:31:20
Thread-ID: 1150565
9 Beiträge
E-Mail Adresse hat keinen Hyperlink VBA
andreas

Hallo zusammen,
ich habe hier einen kleinen Code, damit übertrage ich Werte aus einem Formular in eine externe Tabelle.
Wert in Textbox9 ist immer E-Mail Adresse.
Das auslesen funktioniert problemlos, nur hat die Mail-Adresse in der externen Tabelle den Hyperlink nicht.
Da muss...
09.06.2010 11:56:51
Thread-ID: 1161016
3 Beiträge
VERKETTUNG email-Adressen f.Lotus
nosp52

Hallo
vermutlich für einen Excel-Experten nur ein kleines Problem.
Ich bekam eine Excel-Datei mit ca 1000 Zeilen,5 Spalten, u.a. enthält eine Spalte zeilenweise jeweils die e-mail-adresse einer Person. Nun sollen zur Verteilung eines Rundschreibens per lotus-mail, alle e-mail-Adressen v...
16.06.2010 09:25:15
Thread-ID: 1162089
3 Beiträge
Bereich in e-mail Adresse nach @ wiedergeben
Thorsten

Hallo,
gibt es eine Formel, welche mir den Bereich einer e-mail Adresse nach dem @ zurück gibt?
Die E-mail Adressen sind natürlich unterschiedlich lang
Bsp: t.voland@intime-pos.de soll nachher nur intime-pos.de rausgeben.
Danke für die Hilfe
Thorsten
18.03.2011 20:33:26
Thread-ID: 1206425
8 Beiträge
Emailadresse zusammensetzen aus Auflistung
Karin

Guten Abend!
Ich brüte schon seit Stunden über folgendem Problem:
An eine Liste von Standard Emailadressen (Aufbau: Markt.xx@firma.de" soll eine Email mit jeweils einer speziellen entsprechenden Datei im Anhang ("10xx.pdf") gesandt werden.
Kann ich per For Each ... Next die Marktnum...
06.04.2011 22:07:11
Thread-ID: 1209400
2 Beiträge
E-mail von Excel automatisch generieren
Excel

Hallo,
Ich möchte Excel automatisch eine Mail erstellen lassen, zu einem Zeitpunkt der x Tage vor einem Termin liegt der in einer bestimmten Zelle definiert ist (noch besser wäre immer am Freitag in der Vorwoche) und versendet wird an Empfänger die auch in definierten Zellen stehen. Das gan...
09.06.2011 16:02:38
Thread-ID: 1217871
2 Beiträge
email adressen aus einer excel tabelle in mail via
dirk82

hallo zusammen,
ich hoffe, ihr könnt mir helfen. ich habe folgendes problem:
ich habe einige e-mail adressen in einer excel tabelle stehen. über ein makro erzeuge ich eine e-mail mit einem anhang (das hab ich schon geschafft). nun weiß ich zwar, wie diese email einem empfänger zugeordne...
25.07.2011 22:20:17
Thread-ID: 1223592
2 Beiträge
Keine doppelten Mailadressen bei Mailerstellung
Stefan

Hallo zusammen,
ich brauch mal wieder Eure Hilfe. Ich hab durch dieses Forum einen Code bekommen und diesen etwas angepasst. Nun habe ich aber ein Problem und komme nicht mehr weiter, da meine VBA Kenntnisse leider zu gering sind.
Mit dem Makro wird eine Mail erstellt. Dazu durchsucht e...
03.08.2011 22:36:09
Thread-ID: 1224772
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige