Herbers Excel-Forum - das Archiv

aus Datei Dateien eines Pfades per Mail senden

Bild

Betrifft: aus Datei Dateien eines Pfades per Mail senden
von: Sandra

Geschrieben am: 15.02.2005 16:28:43
Hallo Forumuser,
ich brauche mal eure Hilfe.
Ich habe eine Datei (C:\Eigene Dateien\Report.xls) geöffnet und ich möchte
nun aus dieser Datei zwei Dateien (D:\Archiv\Kuendigungen.xls & Inkasso.xls) die nicht geöffnet sind als Anlage per Mail versenden.
Habe hier im Forum nur was gefunden um die gerade geöffnete Mappe zu versenden!
Bitte helft mir.
Danke Sandra
Bild

Betrifft: AW: aus Datei Dateien eines Pfades per Mail senden
von: Willie

Geschrieben am: 15.02.2005 18:01:38
Hallo Sandra
Ich hoffe das ist genau das was du suchst.
Den Code kannst du noch anpassen! Falls du noch Fragen hast bitte melden
Rückmeldung wäre nett auch im Sinne des Forums
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 = "TEST für Sandra"
.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 = "maus@abc.de"
.CC = "willie@abc.de"
End With
Mail.Attachments.Add "D:\Archiv\Kuendigungen.xls"
Mail.Attachments.Add "D:\Archiv\Inkasso.xls"
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
End Sub

Bild

Betrifft: AW: aus Datei Dateien eines Pfades per Mail senden
von: Willie
Geschrieben am: 18.02.2005 15:57:25
Hallo Sandra
Wollte mal nachfragen, ob das mit den Mails geklappte hat?
Gruß
Willie
Rückmeldung wäre echt nett
 Bild
Excel-Beispiele zum Thema "aus Datei Dateien eines Pfades per Mail senden"
Alle Dateien im Verzeichnis öffnen Dateien listen
400 leere Textdateien anlegen XL-Dateien in UserForm listen
XL5/7-Dateien nach XL8 konvertieren Dateien aus Listbox auslesen und öffnen
Excel-Dateien eines Ordners listen Alle Dateien ab einem bestimmten Datum listen
Alle Dateien eines Verzeichnisses drucken Textdateien verbinden