- #1
M
Mr_Tom
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 06.04.2005
- Beiträge
- 211
- Reaktionspunkte
- 0
Hallo.
Ich habe folgendes Problem. Ich muss regelmäßig *.csv Dateien in einzelnen Mails an eine bestimmte Adresse schicken. Da ich bei >50 Dateien leicht aus dem Rhythmus komme, welche bereits Versand ist und welche nicht, war meine Idee eine Prozedur zu schreiben, die die Dateien zählt, für jede eine neue Mail anlegt und jeweils eine dieser Dateien anhängt. Der automatische Emailversand steht bereits:
Komme hier leider nicht weiter. Wer kann mir helfen?
Dankeschön
Ich habe folgendes Problem. Ich muss regelmäßig *.csv Dateien in einzelnen Mails an eine bestimmte Adresse schicken. Da ich bei >50 Dateien leicht aus dem Rhythmus komme, welche bereits Versand ist und welche nicht, war meine Idee eine Prozedur zu schreiben, die die Dateien zählt, für jede eine neue Mail anlegt und jeweils eine dieser Dateien anhängt. Der automatische Emailversand steht bereits:
Code:
Option Explicit
Sub senden()
Dim fso As Object, a as Byte
Dim ol As Outlook.Application
Dim olMail As MailItem
Set ol = CreateObject(Outlook.Application)
Set olMail = ol.CreateItem(olMailItem)
Set fso = CreateObject(Scripting.Filesystemobject)
For a = 1 To fso.getfolder(C:/bla/bla).Files.Count
With olMail
.To = email@empfänger.de
.Subject = Betreff
.Attachments.Add (strgAnhang)-> hier soll jeweils die nächste Datei eingefügt werden
.Send
End With
Set olMail = Nothing
Set ol = Nothing
Set fso = Nothing
Next a
End Sub
Komme hier leider nicht weiter. Wer kann mir helfen?
Dankeschön