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"