Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

email mit anlage versenden

email mit anlage versenden
30.01.2004 14:33:12
dietmar knoll
hallo
ich möchte aus excel heraus eine email mit outlook versenden und aus einem vordefiniertem verzeichnis eine anlage mitschicken.
können sie mir hier weiterhelfen?
danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: email mit anlage versenden
30.01.2004 14:53:32
AndreasS
Hallo,
probiers mal damit:

Sub EmailverschickenAnhang()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
Set obtObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = "Rechnung"
.body = "Bitte angehängte Rechnungen prüfen"
.To = "xyz@xyz.de"
.cc = "xyz@xyz.de"
End With
With Application.FileSearch
.NewSearch
.LookIn = "c:\Rechnungen\"
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
Mail.attachments.Add .FoundFiles(i)
Next i
End With
Mail.display
Set Mail = Nothing
Set ouobj = Nothing
End Sub

gruß Andreas
Anzeige
AW: email mit anlage versenden
30.01.2004 16:34:21
dietmar knoll
Echt toll Danke ! Funktioniert prima !
Dietmar

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige