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

Beiträge aus den Excel-Beispielen zum Thema "aus Datei Dateien eines Pfades per Mail senden"