Herbers Excel-Forum - das Archiv
aus Datei Dateien eines Pfades per Mail senden
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
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
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